NETsend With VBScripting: 4 koraka

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

U redu, tako da nije potpuno s VBScriptingom, 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 od odgovornosti Nisam u potpunosti odgovoran ako bilo što pođe po zlu s ovim programom ili ako se program zloupotrebljava na bilo koji način. Sad smo to riješili, idemo dalje

Korak 1: Počnimo

Prvo ću vam pokazati skriptu, a na sljedećoj stranici ću objasniti što znači svaki bit.dim TargetTarget = InputBox ("Unesite ciljno računalo:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IFdim beginbegin = MsgBox ("Započni razgovor s" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Zatim WScript. QuitEnd Ifdim messagemessage = "0" Do Until 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") ljuska. Pokreni "~ 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čunala s kojim želite započeti razgovor. Dio "Ako je cilj" govori računalu da završi program ako korisnik pritisne "odustani" ili ostavi polje za unos prazno. dim TargetTarget = InputBox ("Unesite ciljno računalo:", "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 ciljno računalo kao: 'The_Pentagon', zatim ova poruka prenosi poruku koja kaže "Započni razgovor s The_Pentagonom?". Isti dogovor kao gore, ako korisnik pritisne 'ne, operacija će se prekinuti. dim beginbegin = MsgBox ("Započni razgovor s" & 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 batch datoteku i naziva je "~ msngr.bat". Zatim mu zapisuje ispravne naredbe kako bi pokrenuo NET slanje. dim messagemessage = "0" Do 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 "provjerava radi li u smanjenom prozoru, a zatim se zatvara. Zbog toga izgleda malo profesionalnije. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Zadnja dva odlomka naredbi se petljaju. To omogućuje korisniku da prozor s porukama ostane otvoren i šalje više poruka sve dok korisnik ne pritisne 'cancel' i odluči zatvoriti Program.

Korak 3: Budi 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.

Dakle, sada spremite datoteku! pritisnite spremi, provjerite je li nastavak 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 ciljno računalo Sljedeći oni bit će poruka koja potvrđuje da želite započeti razgovor s ovim računalom. Ako ste kliknuli "Da", trebao bi se pojaviti okvir za unos (u gornjem desnom kutu vašeg zaslona, tako da možete nastaviti s onim što želite učiniti) koji će tražiti da unesete poruku. Nakon što se poruka unese i klikne na 'U redu', tada bi cmd prozor trebao izbiti uz vašu alatnu traku, 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 s NET -om za slanje, trebali biste dobiti odgovor natrag!

Korak 4: Posljednja stvar prije nego što krenete NET slanje posvuda

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

Naredba NET send je ukinuta za Vista iz sigurnosnih razloga, stoga će prije toga raditi samo na Windows operativnim sustavima. No, kao što su neki od vas možda primijetili, ja sam ovaj program napisao na Visti! Stoga U TEORIJI djeluje. 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 …