Vanakooli “live” messenger…

23/09/2011 [D_A] Varia, 1

Kunagi oli vajadus arvutist arvutisse lokaalvõrgus sõnumeid saata… Koguaeg aga ei viitsinud arvutinimesid ja pikka koodirida sisse trykkida, miska sai võrguavarustest otsitud selline script nagu “Lake messenger Beta!”

Kood allpool:

:Menu
cls
@echo off
Echo ------------------------------------------------------------------------------
Echo Welcome to Lake Messenger Beta! By Derek_S6 a.k.a. Gr4v3_D1gg3r
Echo.
Echo You are at the Main Menu.
Echo.
Echo You will need to start the messaging service if you just logged on and have not yet used this on this computer. The person receiving the message must also have the messaging service enabled.
Echo.
ECHO 1. Yes, Enable and start Messaging service.
ECHO 2. No, it is already started/I have just started it. I want to go to chat.
Echo 3. Troubleshooter.
Echo Q. Quit
Echo.
set choice=
set /p choice=Type the Character to continue:
if not '%choice%'=='' set choice=%choice:~0,1%
if '%choice%'=='1' goto Enabler
if '%choice%'=='2' goto Chat
if '%choice%'=='3' goto Trouble
if '%choice%'=='q' goto Crash
if '%choice%'=='Q' goto Crash
Echo.

:Error
Echo ERROR

set choice=
set /p choice=Type Q to quit or M to go to Menu:
if not '%choice%'=='' set choice=%choice:~0,1%
if '%choice%'=='M' goto Menu
if '%choice%'=='m' goto Menu
if '%choice%'=='q' goto Crash
if '%choice%'=='Q' goto Crash
pause

:Enabler
cls
@echo off
sc config messenger start= auto
net start messenger
echo.
Echo 1. If no errors came up and operation was successful, Press 1 to continue.
Echo 2. If errors came up press "2" to troubleshoot and get known problems on it.
Echo Q. Quit
Echo.
set choice=
set /p choice=Type the letter to continue:
if not '%choice%'=='' set choice=%choice:~0,1%
if '%choice%'=='1' goto Menu
if '%choice%'=='2' goto Trouble
if '%choice%'=='q' goto Crash
if '%choice%'=='Q' goto Crash
Echo.

:Error
Echo ERROR

set choice=
set /p choice=Type Q to quit or M to go to Menu:
if not '%choice%'=='' set choice=%choice:~0,1%
if '%choice%'=='M' goto Menu
if '%choice%'=='m' goto Menu
if '%choice%'=='q' goto Crash
if '%choice%'=='Q' goto Crash
pause


:Sender
@echo off
Echo.
Echo.
echo Lake Messenger
Echo.
set /p n=Enter the IP address/Computer name/or the user account sending to:
Echo.
set /p m=Your Message to be sent:
net send %n% %m%
Pause
Echo.
Goto Chat

:B
Echo.
set /p m=Message:
net send %n% %m%
Pause
Goto Chat
Echo.

:Error
Echo ERROR

set choice=
set /p choice=Type Q to quit or M to go to Menu:
if not '%choice%'=='' set choice=%choice:~0,1%
if '%choice%'=='M' goto Menu
if '%choice%'=='m' goto Menu
if '%choice%'=='q' goto Crash
if '%choice%'=='Q' goto Crash
pause 

:Chat
cls
Echo:
Echo You are at the chat menu.
Echo.
Echo Type the number of the option that you wish to perform.
ECHO 1. Send to New User/IP/Computer name?
Echo 2. Send to the same computer again?
Echo 3. Go to Main Menu?
Echo 4. Go to Troubleshooter?
Echo Q. Quit
Echo.
set choice=
set /p choice=Type the number to continue:
if not '%choice%'=='' set choice=%choice:~0,1%
if '%choice%'=='1' goto Sender
if '%choice%'=='2' goto B
if '%choice%'=='3' goto Menu
if '%choice%'=='4' goto Trouble
if '%choice%'=='q' goto Crash
if '%choice%'=='Q' goto Crash
pause

:Error
Echo ERROR

set choice=
set /p choice=Type Q to quit or M to go to Menu:
if not '%choice%'=='' set choice=%choice:~0,1%
if '%choice%'=='M' goto Menu
if '%choice%'=='m' goto Menu
if '%choice%'=='q' goto Crash
if '%choice%'=='Q' goto Crash
pause

:Trouble
cls
@echo off
Echo 1. If Lake Messenger crashed chances are you followed something like this. Do not do it, it crashes it.
Echo Solution: Dont type anything related to Net HelpMSG "More help is available by typing NET HELPMSG 2182."
Echo.
Echo 3. If you put in an invalid choice it crashes.
Echo Soltuion: Working on it, currently you just have to restart.
Echo.
Echo 4. "Cannot find User/IP/Computer or User/IP/Computer is not logged in.
Echo Solution: Try retyping it and make sure all your information is correct.
Echo Solution 2: Try re-enabling that messenger in the main menu.
ECho Solution 3. Is the person on the receiving end have messenger enabled and this program set up?
Echo.
Echo 5. "Sending files is no longer supported."
Echo You forgot to enter New User/IP/Computer name.
Echo.
ECho 6. If you have any other problems contact me.
Echo.
Echo M. Return to Main Menu.
Echo Q. Quit.
Echo.
set choice=
set /p choice=Type the letter to continue (Q/M):
if not '%choice%'=='' set choice=%choice:~0,1%
if '%choice%'=='M' goto Menu
if '%choice%'=='m' goto Menu
if '%choice%'=='q' goto crash
if '%choice%'=='Q' goto crash
Pause
echo.

:Error
Echo ERROR

set choice=
set /p choice=Type Q to quit or M to go to Menu:
if not '%choice%'=='' set choice=%choice:~0,1%
if '%choice%'=='M' goto Menu
if '%choice%'=='m' goto Menu
if '%choice%'=='q' goto Crash
if '%choice%'=='Q' goto Crash
pause

:Crash 

Kellel vaja, saab testida.

Arutelu eelmainitud teemal ja script: Chatting with Net Send

Kuidas lubada ainult enda kasutajal arvutisse sisse logida… Kuidas seadistada Windowsis unetaimrit “Sleep timer” (WinXP / Win7)