NETsend me VBScripting: 4 hapa

2024 Autor: John Day | [email protected]. E modifikuara e fundit: 2024-01-30 12:31

Mirë pra nuk është krejtësisht me VBScripting, por unë mendoj se VBScripting InputBoxes dhe Msgboxes duken shumë më miqësore për përdoruesit sesa futja në një dritare cmd. Oh dhe btw, Ju lutemi mos shkruani "SHUMU M E TAS MADH …" Sepse po të gjithë e dimë që ju mund të hapë cmd dhe të shkruajë "Net send your computername yourmessagehere" Kjo është vetëm një mënyrë më miqësore për ta bërë atë. Disclaimer Unë nuk jam plotësisht përgjegjës nëse diçka shkon keq me këtë program, ose nëse programi keqpërdoret në çdo mënyrë. Tani e kemi kuptuar këtë, le të vazhdojmë

Hapi 1: Le të Fillojmë

Së pari, unë do t'ju tregoj skenarin dhe në faqen tjetër do të shpjegoj se çfarë do të thotë secili bit.dim TargetTarget = InputBox ("Fut Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") Nëse Pastaj WScript. QuitEnd IFdim beginbegin = MsgBox ("Filloni bisedën me" & target & "?", 36, "Pëllumbi Carrier v1.7") Nëse filloni = vbNo Atëherë WScript. QuitEnd Ifdim messagemessage = "0" Bëni deri në mesazh = "" mesazh = InputBox ("Fut Mesazhin:" & vbcr & vbcr + _ "Asnjë vlerë nuk dërgon një mesazh bosh" & vbcr + _ "Shtypni Cancel ose Alt + F4 për të mbyllur dritaren", "" & Target, "", 13500, 100) Vendos fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "ng msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) Cakto ts = fs. Open, 2, E vërtetë) ts. WriteLine "@echo off" ts. WriteLine "set message =" & message ts. WriteLine "set & Target ts. WriteLine" net send send %Target % %mesazh %"ts. Closedim shellset shell = createobject ("wscript.shell") shell. Run "~ msngr.bat", 2Loop

Hapi 2: Pra Le të Shpjegojmë…

Kodi në faqen e mëparshme është treguar më poshtë me disa shënime, nëse e kopjoni dhe ngjisni në fjalë, ju lutemi bëni atë në faqen e mëparshme. Ok, kjo pjesë e parë hap kutinë që kërkon emrin e kompjuterit me të cilin dëshironi të filloni një bisedë. Pjesa "If Target" i thotë kompjuterit që të përfundojë programin nëse përdoruesi shtyp 'anulo ose lë fushën e hyrjes bosh. dim TargetTarget = InputBox ("Enter Computer Target:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IF Ky bit i dytë transmeton hyrjen që ka bërë përdoruesi në hapin e mëparshëm, për shembull nëse futja e përdoruesit kompjuteri i synuar si: 'The_Pentagon' atëherë ky mesazh transmeton atë që thotë "Filloni bisedën me The_Pentagon?". E njëjta marrëveshje si më sipër, nëse përdoruesi shtyp 'jo', atëherë operacioni do të përfundojë. dim beginbegin = MsgBox ("Filloni bisedën me" & target & "?", 36, "Pëllumbi zgarë v1.7") Nëse filloni = vbNo Atëherë WScript. QuitEnd If Ky bit tjetër është pjesa që më mori shumë kohë për të shkruar. Në thelb krijon një skedar grumbull dhe e quan atë "~ msngr.bat". Pastaj i shkruan komandat e sakta që të fillojë dërgimin NET. dim messagemessage = "0" Bëj deri në mesazh = "" mesazh = InputBox ("Fut Mesazhin:" & vbcr & vbcr + _ "Asnjë vlerë nuk dërgon një mesazh bosh" & vbcr + _ "Shtypni Anulo ose Alt + F4 për të mbyllur dritaren "," "& Target," ", 13500, 100) Cakto 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 %Target%%mesazh%"ts. Mbyll Kjo pastaj ekzekuton skedarin e grupit, me" 2 "që sigurohet që të funksionojë në një dritare të minimizuar dhe pastaj mbyllet. Kjo e bën atë të duket pak më profesionale. wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Këto dy paragrafët e fundit të komandave janë Looped. Kjo i lejon përdoruesit të mbajë të hapur dritaren e mesazheve dhe të dërgojë mesazhe të shumta derisa përdoruesi të shtypë 'anulo dhe të vendosë të mbyllet Programi.

Hapi 3: Duro me mua

Ok, e di që ishte shumë për t'u marrë. Por unë me siguri do të paraqes disa udhëzime të reja në sit për VBScripting të thjeshtë, dhe VBScripting më të avancuar nëse mjaft njerëz komentojnë duke e kërkuar atë.

Pra, tani për të ruajtur skedarin! shtypni ruaj, sigurohuni që të bëni zgjerimin e skedarit ".vbs" Unë e di se ishte shumë për të marrë, por unë do të shpjegoj se çfarë ndodh nëse skedari përdoret si duhet: Së pari ju do të merrni një kërkesë që kërkon kompjuterin e synuar Më pas ata Do të jetë një mesazh duke u siguruar që dëshironi të filloni një bisedë me këtë kompjuter. Nëse klikoni 'Po', atëherë duhet të shfaqet një kuti hyrëse (në pjesën e sipërme të djathtë të ekranit tuaj, në mënyrë që të vazhdoni me atë që dëshironi të bëni) duke ju kërkuar që të futni mesazhin. Pasi të futet një mesazh dhe të klikohet 'OK', atëherë një dritare cmd duhet të dalë përgjatë shiritit tuaj të veglave dhe pastaj të zhduket, ky ishte skedari grumbull që dërgonte mesazhin. Nëse shoku juaj (ose armiku) ka të njëjtin program të instaluar në kompjuterin e tij, ose është i mrekullueshëm me NET send, atëherë duhet të merrni një përgjigje!

Hapi 4: Një gjë e fundit para se të shkoni duke dërguar NET kudo

Një mesazh i vogël i fundit: KJO NUK do të funksionojë në vizë!

Komanda e dërgimit NET u shfuqizua për Vista për arsye sigurie, prandaj do të funksionojë vetëm në sistemet operative Windows para kësaj. Por siç mund ta keni vënë re disa prej jush, unë e kam shkruar këtë program në Vista! Prandaj N IN TEORI funksionon. Sidoqoftë, ju lutemi kthehuni me reagime nëse është i suksesshëm apo jo. Faleminderit TheKnight P. S. Përfshini dembelin tuaj për fjalë, skedari është më poshtë Ruajeni atë në dosjen e vet, në mënyrë që ai dhe "~ msngr.bat" të kenë pak kohë vetëm …