NET stuur met VBScripting: 4 stappe

2024 Outeur: John Day | [email protected]. Laas verander: 2024-01-30 07:28

Ok, dit is nie heeltemal met VBScripting nie, maar ek dink dat VBScripting InputBoxes en Msgboxes baie meer gebruikersvriendelik lyk as om in 'n cmd -venster in te voer. Oh en btw, skryf asseblief nie 'BAIE MAKLIKER WEG' nie, want ja, ons weet almal dat u kan cmd oopmaak en tik "Net send computername yourmessagehere" Dit is net 'n meer gebruikersvriendelike manier om dit te doen. Disclaimer Ek is nie heeltemal verantwoordelik as daar iets verkeerd gaan met hierdie program nie, of as die program op enige manier misbruik word. Nou het ons dit uit die weg geruim, laat ons verder gaan

Stap 1: Kom ons begin

Eerstens sal ek u die script wys, en op die volgende bladsy sal ek verduidelik wat elke bietjie beteken.dim TargetTarget = InputBox ("Tik doelrekenaar in:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IFdim beginbegin = MsgBox ("Begin gesprek met" & target & "?", 36, "Carrier Pigeon v1.7") As begin = vbNo Dan WScript. QuitEnd Ifdim messagemessage = "0" Doen tot boodskap = "" boodskap = InputBox ("Tik boodskap:" & vbcr & vbcr + _ "Geen waarde stuur 'n leë boodskap" & vbcr + _ "Druk op Cancel of Alt + F4 om die venster te sluit", "" & Target, "", 13500, 100) Stel fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) Stel ts = fs. OpenTextFile (strFileName) in, 2, True) ts. WriteLine "@echo off" ts. WriteLine "set message =" & message ts. WriteLine "set & Target ts. WriteLine" net send %Target % %message %"ts. Closedim shellset shell = createobject ("wscript.shell") shell. Run "~ msngr.bat", 2Loop

Stap 2: Laat ons verduidelik …

Die kode op die vorige bladsy word hieronder met 'n paar aantekeninge getoon. As u dit in woord kopieer en plak, doen dit asseblief op die vorige bladsy. Oké, hierdie eerste stukkie maak die boks oop wat vra na die naam van die rekenaar waarmee u 'n gesprek wil begin. Die gedeelte "As doel" sê vir die rekenaar om die program te beëindig as die gebruiker op 'kanselleer' druk of die invoerveld leeg laat. dim TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IF This second bit relays the input that the user did in the previous step, e.g. if the user input die doelrekenaar as: 'The_Pentagon', dan stuur hierdie boodskap 'n boodskap oor wat sê "Begin gesprek met The_Pentagon?". Dieselfde ooreenkoms as hierbo, as die gebruiker 'nee' druk, word die bewerking beëindig. dim beginbegin = MsgBox ("Begin gesprek met" & target & "?", 36, "Carrier Pigeon v1.7") As begin = vbNo Dan WScript. QuitEnd As Hierdie volgende stukkie is die deel wat my lank geneem het om te skryf. Dit skep basies 'n bondellêer en noem dit "~ msngr.bat". Dit skryf dan die korrekte opdragte daaraan sodat dit NET -stuur kan begin. dim messagemessage = "0" Doen tot boodskap = "" boodskap = InputBox ("Tik boodskap:" & vbcr & vbcr + _ "Geen waarde stuur 'n leë boodskap" & vbcr + _ "Druk Cancel of Alt + F4 om die venster te sluit "," "& Doel," ", 13500, 100) Stel fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Stel ts = fs. OpenTextFile (strFileName, 2, True) ts. WriteLine "@echo off" ts. WriteLine "set message =" & message ts. WriteLine "set & Target ts. WriteLine" net send %Doel%%boodskap%"ts. Close Hiermee word die bondellêer uitgevoer, met die" 2 "om seker te maak dat dit in 'n geminimaliseerde venster loop en dan toemaak. Dit laat dit 'n bietjie meer professioneel lyk. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Die laaste twee paragrawe van opdragte is Looped. Dit laat die gebruiker toe om die boodskapvenster oop te hou en verskeie boodskappe te stuur totdat die gebruiker op 'kanselleer' druk en besluit om te sluit die program.

Stap 3: Verdra my

Ok, ek weet dit was baie om in te neem. Maar ek gaan waarskynlik 'n paar nuwe instruksies by die webwerf indien vir eenvoudige VBScripting en meer gevorderde VBScripting as genoeg mense kommentaar lewer.

So nou om die lêer te stoor! druk op save, maak seker dat die lêeruitbreiding ".vbs" is. Ek weet dat dit baie was om in te neem, maar ek sal verduidelik wat gebeur as die lêer korrek gebruik word: Eerstens kry u 'n vinnige vra na die doelrekenaar. Dit sal 'n boodskap wees om seker te maak dat u 'n gesprek met hierdie rekenaar wil begin. As u op 'Ja' geklik het, moet 'n invoerblokkie verskyn (regs bo op u skerm, sodat u kan voortgaan met wat u wil doen) wat u vra om die boodskap in te voer. Sodra 'n boodskap ingevoer is en op 'OK' geklik is, verskyn 'n cmd -venster langs u werkbalk en verdwyn dit; dit was die bondellêer wat die boodskap stuur. As u vriend (of vyand) dieselfde program op hul rekenaar geïnstalleer het, of as u 'n goeie NET -stuurder het, moet u 'n antwoord kry!

Stap 4: 'n Laaste ding voordat u NET stuur, oral

'N Laaste boodskap: DIT WIL NIE OP VISTA WERK NIE!

Om beveiligingsredes is die NET send -opdrag vir Vista afgeskaf, daarom werk dit eers voorheen op Windows -bedryfstelsels. Maar soos sommige van u dalk opgemerk het, het ek hierdie program op Vista geskryf! Daarom werk dit in TEORIE. Kom egter terug met terugvoer oor of dit suksesvol is of nie. Dankie TheKnight P. S. As u te lui is vir woorde, die lêer is onder Stoor dit in sy eie gids, sodat dit en "~ msngr.bat" 'n bietjie tyd kan hê …