NETsend koos VBScriptingiga: 4 sammu

2024 Autor: John Day | [email protected]. Viimati modifitseeritud: 2024-01-30 08:51

OK, nii et see pole VBScriptinguga täielikult seotud, kuid ma arvan, et VBScripting InputBoxes ja Msgboxes näevad palju kasutajasõbralikumad välja kui cmd -aknasse sisestamine. Oh ja btw, palun ärge kirjutage "PALJU LIHTSAM VÕIMALUS …", sest me kõik teame, et te saab avada cmd ja kirjutada "Net send computername yourmessagehere" See on lihtsalt kasutajasõbralikum viis seda teha. Vastutusest loobumine Ma ei vastuta täielikult, kui selle programmiga läheb midagi valesti või kui programmi kasutatakse MITTE mingil viisil. Nüüd saime selle lahenduse, liigume edasi

1. samm: alustame

Esiteks näitan teile skripti ja järgmisel lehel selgitan, mida iga bit tähendab. Dim TargetTarget = InputBox ("Sisestage sihtarvuti:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IFdim beginbegin = MsgBox ("Alusta vestlust" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Siis WScript. QuitEnd Ifdim messagemessage = "0" Do Before message = "" message = InputBox ("Sisestage sõnum:" & vbcr & vbcr + _ "No Value saadab tühja sõnumi" & vbcr + _ "Akna sulgemiseks vajutage Cancel või Alt + F4", "" & Target, "", 13500, 100) Määra fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) Määra ts = fileFile, 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

Samm: selgitame siis…

Eelmisel lehel olev kood on allpool näidatud mõne märkusega. Kui kopeerite ja kleepite selle Wordi, tehke seda eelmisel lehel. Ok, see esimene bit avab kasti, kus küsitakse arvuti nime, millega soovite vestlust alustada. Osa "Kui sihtmärk" käsib arvutil programmi lõpetada, kui kasutaja vajutab nuppu "Tühista" või jätab sisestusvälja tühjaks. dim TargetTarget = InputBox ("Sisestage sihtarvuti:", "Carrier Pigeon v1.7 (TheKnight)") Kui Siis WScript. QuitEnd IF See teine bit edastab sisendi, mille kasutaja tegi eelmises etapis, näiteks kui kasutaja sisend sihtarvutit kui "The_Pentagon", siis edastatakse see teade, mis ütleb: "Kas alustada vestlust The_Pentagoniga?". Sama asi nagu eespool, kui kasutaja vajutab "ei", siis toiming lõpetatakse. dim beginbegin = MsgBox ("Alusta vestlust" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Siis WScript. QuitEnd If See järgmine bit on see osa, mille kirjutamine võttis mul kaua aega. Põhimõtteliselt loob see partiifaili ja nimetab seda "~ msngr.bat". Seejärel kirjutab see talle õiged käsud, et see saaks NET -saatmise algatada. dim messagemessage = "0" Do Before message = "" message = InputBox ("Sisestage sõnum:" & vbcr & vbcr + _ "No Value saadab tühja sõnumi" & vbcr + _ "Akna sulgemiseks vajutage Cancel või Alt + F4 "," "& Sihtmärk," ", 13500, 100) Määra fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Määra ts = fs. OpenTextFile (strFileName, 2, True) ts. WriteLine "@echo off" ts. WriteLine "set message =" & message ts. WriteLine "set & Target ts. WriteLine" net send %Target%%message%"ts. Close See käivitab seejärel pakettfaili, kusjuures" 2 "tagab, et see töötab minimeeritud aknas ja sulgub. See muudab selle natuke professionaalsemaks. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Need kaks viimast käskude lõiku on silmus. See võimaldab kasutajal hoida sõnumiakent lahti ja saata mitu sõnumit, kuni kasutaja vajutab nuppu" Tühista "ja otsustab sulgeda programm.

3. samm: kandke minuga

Ok, ma tean, et seda oli palju võtta. Kuid tõenäoliselt esitan saidile mõned uued juhised lihtsaks VBScriptinguks ja täpsemaks VBScriptinguks, kui piisavalt inimesi seda küsib.

Nii et nüüd faili salvestamiseks! Vajutage nuppu Salvesta, veenduge, et faililaiend oleks ".vbs". See on sõnum, mis kinnitab, et soovite selle arvutiga vestlust alustada. Kui klõpsasite nupul „Jah”, peaks ilmuma (ekraani paremas ülanurgas, et saaksite jätkata sellega, mida soovite teha) sisestuskast, mis paluks teil sõnumi sisestada. Kui sõnum on sisestatud ja klõpsatud nupul „OK”, peaks cmd -aken teie tööriistaribal välja kerkima ja seejärel kaduma, see oli sõnumi saatmise partiifail. Kui teie sõbral (või vaenlasel) on sama programm oma arvutisse installitud või kui ta on NET sendiga suurepärane, peaksite vastuse saama!

Samm 4: Viimane asi enne minekut NET saadab kõikjale

Viimane väike sõnum: SEE VISTA EI TOIMI!

Käsk NET send kaotati Vista jaoks turvakaalutlustel, seetõttu töötab see enne seda ainult Windowsi operatsioonisüsteemides. Aga nagu mõned teist ehk märkasid, olen selle programmi Vistale kirjutanud! Seetõttu teoorias see toimib. Palun naaske tagasisidega selle kohta, kas see on edukas või mitte. Aitäh TheKnight P. S. Kui olete sõnade jaoks liiga laisk, siis fail on allpool. Salvestage see oma kausta, nii et tal ja "~ msngr.bat" saaks aega veeta üksinda …