NETsend Cu VBScripting: 4 pași

2024 Autor: John Day | [email protected]. Modificat ultima dată: 2024-01-30 11:47

Ok, deci nu este în totalitate cu VBScripting, dar cred că VBScripting InputBoxes și Msgboxes arată mult mai ușor de utilizat decât introducerea într-o fereastră cmd. poate deschide cmd și tastați „Net send computername yourmessagehere” Acesta este doar un mod mai ușor de utilizat. Declinare de responsabilitate Nu sunt total responsabil dacă ceva nu merge bine cu acest program sau dacă programul este folosit în mod necorespunzător în ORICE fel. Acum am scăpat de asta, să mergem mai departe

Pasul 1: Să începem

În primul rând, vă voi arăta scriptul și pe pagina următoare vă voi explica ce înseamnă fiecare bit. QuitEnd IFdim beginbegin = MsgBox ("Începeți conversația cu" & țintă & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Then WScript. QuitEnd Ifdim messagemessage = "0" Do Until message = "" message = InputBox ("Introduceți mesajul:" & vbcr & vbcr + _ "Nicio valoare nu trimite un mesaj necompletat" & vbcr + _ "Apăsați Anulare sau Alt + F4 pentru a închide fereastra", "" & Țintă, "", 13500, 100) Set fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) Set ts = fs. OpenTextFile, 2, True) ts. WriteLine "@echo off" ts. WriteLine "set message =" & message ts. WriteLine "set & Target ts. WriteLine" net send% Target%% message% "ts. Closedim shell shell = createobject ("wscript.shell") shell. Run "~ msngr.bat", 2Loop

Pasul 2: Deci, să explicăm …

Codul de pe pagina anterioară este prezentat mai jos cu câteva adnotări, dacă îl copiați și lipiți în cuvânt, vă rugăm să o faceți pe pagina anterioară. Bine, acest prim bit deschide caseta care cere numele computerului cu care doriți să începeți o conversație. Partea „Dacă țintă” spune computerului să termine programul dacă utilizatorul apasă pe „anulare” sau lasă câmpul de intrare necompletat. dim TargetTarget = InputBox ("Introduceți computerul țintă:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IF Acest al doilea bit retransmite intrarea pe care utilizatorul a făcut-o în pasul anterior, de exemplu dacă intrarea utilizatorului computerul țintă ca: „The_Pentagon”, atunci acest mesaj transmite unul care spune „Începeți conversația cu The_Pentagon?”. Același lucru ca mai sus, dacă utilizatorul apasă „nu, atunci operațiunea se va încheia. dim beginbegin = MsgBox („Începeți conversația cu„ & target &”?”, 36, „Carrier Pigeon v1.7”) If begin = vbNu, atunci WScript. QuitEnd If Următorul bit este partea care mi-a luat LUNG să scriu. Practic creează un fișier batch și îl numește „~ msngr.bat”. Apoi îi scrie comenzile corecte pentru a iniția trimiterea NET. dim messagemessage = "0" Do Until message = "" message = InputBox ("Enter Message:" & vbcr & vbcr + _ "Nicio valoare nu trimite un mesaj gol" & vbcr + _ "Apăsați Cancel sau Alt + F4 pentru a închide fereastra "," "& Țintă," ", 13500, 100) Set fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Set ts = fs. OpenTextFile (strFileName, 2, True) ts. WriteLine "@echo off" ts. WriteLine "set message =" & message ts. WriteLine "set & Target ts. WriteLine" net send % Țintă%% mesaj% "ts. Închide Apoi rulează fișierul batch, cu„ 2”asigurându-se că rulează într-o fereastră minimizată și apoi se închide. Acest lucru îl face să pară ceva mai profesionist. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Ultimele două paragrafe de comenzi sunt Buclate. Acest lucru permite utilizatorului să mențină fereastra de mesaje deschisă și să trimită mai multe mesaje până când utilizatorul apasă pe 'anulare și decide să închidă programul.

Pasul 3: Fii cu mine

Ok, știu că a fost o mulțime de luat în considerare. Dar probabil voi trimite câteva site-uri noi instructabile pentru VBScripting simplu și VBScripting mai avansat dacă mulți oameni comentează cererea acestuia.

Deci acum, pentru a salva fișierul! apăsați Salvare, asigurați-vă că faceți extensia de fișier ".vbs" Știu că a fost mult de luat, dar vă voi explica ce se întâmplă dacă fișierul este utilizat corect: În primul rând veți primi o solicitare pentru computerul țintă Va fi un mesaj care vă asigură că doriți să începeți o conversație cu acest computer. Dacă ați făcut clic pe „Da”, atunci ar trebui să apară o casetă de introducere (în partea dreaptă sus a ecranului, astfel încât să puteți continua cu ceea ce doriți să faceți), solicitându-vă să introduceți mesajul. Odată ce un mesaj este introdus și se face clic pe „OK”, atunci o fereastră cmd ar trebui să iasă de-a lungul barei de instrumente și apoi să dispară, acesta a fost fișierul lot care trimitea mesajul. Dacă prietenul tău (sau inamicul) are același program instalat pe computerul sau este inteligent cu trimiterea NET, atunci ar trebui să primești un răspuns!

Pasul 4: Un ultim lucru înainte de a pleca NET Trimite peste tot

Un ultim mic mesaj: ACESTA NU FUNCȚIONEAZĂ PE VISTA!

Comanda de trimitere NET a fost desființată din Vista din motive de securitate, prin urmare va funcționa numai pe sistemele de operare Windows înainte de aceasta. Dar, după cum probabil ați observat unii dintre voi, am scris acest program pe Vista! Prin urmare, în TEORIE funcționează. Cu toate acestea, vă rugăm să ne întoarceți cu feedback despre dacă are succes sau nu. Mulțumesc TheKnight P. S. Incazați-vă prea leneș pentru cuvinte, fișierul este mai jos Salvați-l în propriul folder, astfel încât acesta și „~ msngr.bat” să aibă un timp singur …