NETsend with VBScripting: 4 koraka

2024 Autor: John Day | [email protected]. Zadnja izmjena: 2024-01-30 08:09

U redu, dakle nije potpuno sa VBScripting -om, ali mislim da VBScripting InputBoxes i Msgboxes izgledaju mnogo prilagođenije korisniku nego unos u cmd prozor. Oh i btw, nemojte pisati "MNOGO LAKŠI NAČIN …" Jer da svi znamo da može otvoriti cmd i upisati "Net send computername yourmessagehere" Ovo je samo jednostavniji način za to. Odricanje odgovornosti Potpuno ne snosim odgovornost ako nešto pođe po zlu s ovim programom ili ako se program zloupotrebljava na bilo koji način. Sada smo to riješili, idemo dalje

Korak 1: Počnimo

Prvo ću vam pokazati skriptu, a na sljedećoj stranici ću objasniti šta svaki bit znači. Dim TargetTarget = InputBox ("Unesite ciljni računar:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IFdim beginbegin = MsgBox ("Započni razgovor sa" & target & "?", 36, "Carrier Pigeon v1.7") Ako begin = vbNo Zatim WScript. QuitEnd Ifdim messagemessage = "0" Učiniti do message = "" message = InputBox ("Unesite poruku:" & vbcr & vbcr + _ "No Value šalje praznu poruku" & vbcr + _ "Pritisnite Cancel ili Alt + F4 da zatvorite prozor", "& Target," ", 13500, 100) Postavi fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileNameO., 2, Tačno) 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

Korak 2: Pa objasnimo …

Kôd na prethodnoj stranici prikazan je ispod s nekim napomenama, ako ga kopirate i zalijepite u word, učinite to na prethodnoj stranici. U redu, ovaj prvi bit otvara okvir koji traži ime računara s kojim želite započeti razgovor. Dio "Ako je cilj" govori računaru da završi program ako korisnik pritisne 'otkaži ili polje za unos ostavi prazno. dim TargetTarget = InputBox ("Unesite ciljni računar:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IF Ovaj drugi bit prenosi ulaz koji je korisnik napravio u prethodnom koraku, na primjer ako je korisnički unos ciljni računar kao: 'The_Pentagon', zatim ova poruka prenosi poruku koja kaže "Započni razgovor sa The_Pentagon?". Isti dogovor kao gore, ako korisnik pritisne 'ne, operacija će se prekinuti. dim beginbegin = MsgBox ("Započni razgovor sa" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Zatim WScript. QuitEnd If Ovaj sljedeći bit je dio koji mi je dugo trajao za pisanje. U osnovi stvara paketnu datoteku i naziva je "~ msngr.bat". Zatim mu zapisuje ispravne naredbe za pokretanje NET slanja. dim messagemessage = "0" Uradi do message = "" message = InputBox ("Unesite poruku:" & vbcr & vbcr + _ "Nema vrijednosti šalje praznu poruku" & vbcr + _ "Pritisnite Odustani ili Alt + F4 da zatvorite prozor "," "& Target," ", 13500, 100) Postavi fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Postavi 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 Ovo zatim pokreće batch datoteku, pri čemu" 2 "pazi da radi u minimiziranom prozoru, a zatim se zatvara. Zbog toga izgleda malo profesionalnije. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Zadnja dva paragrafa naredbi su petlje. To omogućava korisniku da drži prozor s porukom otvoren i šalje više poruka sve dok korisnik ne pritisne 'cancel' i odluči zatvoriti program.

Korak 3: Budite sa mnom

U redu, znam da je to bilo puno za prihvatiti. Ali vjerojatno ću na web mjesto poslati nekoliko novih instrukcija za jednostavno VBScripting i naprednije VBScripting ako dovoljno ljudi komentira to tražeći.

Zato sada spremite datoteku! pritisnite spremi, obavezno unesite ekstenziju datoteke ".vbs" Znam da je bilo mnogo za prihvatiti, ali objasnit ću što se događa ako se datoteka pravilno koristi: Prvo ćete dobiti upit s upitom za ciljni računar. To će biti poruka koja potvrđuje da želite započeti razgovor s ovim računarom. Ako ste kliknuli 'Da', tada bi se trebao pojaviti okvir za unos (u gornjem desnom kutu vašeg zaslona, tako da možete nastaviti sa onim što želite učiniti) koji će tražiti da unesete poruku. Nakon što se poruka unese i klikne na 'OK', tada bi cmd prozor trebao izbiti uz vašu traku s alatima, a zatim nestati, ovo je paketna datoteka koja šalje poruku. Ako vaš prijatelj (ili neprijatelj) ima isti program instaliran na svom računaru, ili mu je odlično što NET šalje, trebali biste dobiti odgovor nazad!

Korak 4: Još jedna stvar prije nego krenete. NETO Šaljete posvuda

Još jedna mala poruka: Ovo neće djelovati na VISTI!

Naredba NET send je ukinuta za Vista iz sigurnosnih razloga, pa će prije toga raditi samo na Windows operativnim sistemima. Ali kao što su neki od vas možda primijetili, ja sam ovaj program napisao na Visti! Stoga U TEORIJI to funkcionira. Međutim, vratite se s povratnim informacijama o tome je li uspješno ili nije. Hvala TheKnight P. S. Ako ste previše lijeni za riječi, datoteka je ispod Spremite je u vlastitu mapu, tako da ona i "~ msngr.bat" mogu imati malo vremena sami…