NETsend with VBScripting: 4 koraki

2024 Avtor: John Day | [email protected]. Nazadnje spremenjeno: 2024-01-30 12:09

V redu, zato ni povsem z VBScripting, vendar mislim, da so VBScripting InputBoxes in Msgboxes videti veliko bolj prijazni do uporabnikov kot vnos v okno cmd. Oh in btw, prosim, ne piši "MNOGO LAKŠE NAČIN …" Ker vsi vemo, da lahko odprete cmd in vnesete "Net send computername yourmessagehere" To je le bolj uporabniku prijazen način. Zavrnitev odgovornosti V celoti ne prevzemam odgovornosti, če bi šlo s tem programom kaj narobe ali če bi bil program na kakršen koli način zlorabljen. Zdaj smo to rešili, gremo naprej

1. korak: Začnimo

Najprej vam bom pokazal skript in na naslednji strani bom razložil, kaj pomeni vsak bit.dim TargetTarget = InputBox ("Vnesite ciljni računalnik:", "Carrier Pigeon v1.7 (TheKnight)") Če potem WScript. QuitEnd IFdim beginbegin = MsgBox ("Začni pogovor z" & target & "?", 36, "Carrier Pigeon v1.7") Če begin = vbNo Potem WScript. QuitEnd Ifdim messagemessage = "0" Do Until message = "" message = InputBox ("Vnesite sporočilo:" & vbcr & vbcr + _ "No Value pošlje prazno sporočilo" & vbcr + _ "Pritisnite Prekliči ali Alt + F4, da zaprete okno", "" & Target, "", 13500, 100) Nastavi fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileNameO, 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

2. korak: Razložimo torej …

Koda na prejšnji strani je prikazana spodaj z nekaj opombami. Če jo kopirate in prilepite v besedo, to storite na prejšnji strani. Ok, ta prvi bit odpre polje, ki zahteva ime računalnika, s katerim želite začeti pogovor. Del »Če je cilj« pove računalniku, naj zaključi program, če uporabnik pritisne »prekliči« ali pusti polje za vnos prazno. dim TargetTarget = InputBox ("Vnesite ciljni računalnik:", "Carrier Pigeon v1.7 (TheKnight)") Če potem WScript. QuitEnd IF Ta drugi bit posreduje vnos, ki ga je uporabnik naredil v prejšnjem koraku, na primer, če je uporabniški vnos ciljni računalnik kot: 'The_Pentagon', potem se v tem sporočilu prikaže sporočilo "Začni pogovor s The_Pentagonom?". Enako kot zgoraj, če uporabnik pritisne 'ne', se bo operacija končala. dim beginbegin = MsgBox ("Začni pogovor z" & target & "?", 36, "Carrier Pigeon v1.7") Če begin = vbNo Potem WScript. QuitEnd If Ta naslednji bit je del, ki mi je dolgo pisal. V bistvu ustvari paketno datoteko in jo pokliče "~ msngr.bat". Nato mu napiše pravilne ukaze, da začne pošiljanje NET. dim messagemessage = "0" Do Do message = "" message = InputBox ("Vnesite sporočilo:" & vbcr & vbcr + _ "No Value pošlje prazno sporočilo" & vbcr + _ "Pritisnite Prekliči ali Alt + F4, da zaprete okno "," "& Target," ", 13500, 100) Set fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Nastavi 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 To nato zažene paketno datoteko, pri čemer" 2 "poskrbi, da deluje v zmanjšanem oknu in se nato zapre. Zaradi tega je videti nekoliko bolj profesionalno. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Zadnja dva odstavka ukazov sta zankana. To omogoča uporabniku, da ohrani odprto okno za sporočila in pošlje več sporočil, dokler uporabnik ne pritisne 'prekliče in se odloči zapreti'. Program.

3. korak: Bodi z mano

V redu, vem, da je bilo to veliko za sprejeti. Ampak verjetno bom na spletno mesto predložil nekaj novih navodil za preprosto VBScripting in naprednejše VBScripting, če bo dovolj ljudi komentiralo to.

Zdaj shranite datoteko! pritisnite shrani, poskrbite, da bo razširitev datoteke ".vbs" Vem, da je bilo veliko za sprejeti, vendar bom razložil, kaj se zgodi, če je datoteka pravilno uporabljena: najprej boste dobili poziv za ciljni računalnik. To bo sporočilo, s katerim se prepričate, da želite začeti pogovor s tem računalnikom. Če ste kliknili »Da«, bi se moralo prikazati polje za vnos (v zgornjem desnem kotu zaslona, da lahko nadaljujete s tem, kar želite narediti), ki vas prosi, da vnesete sporočilo. Ko vnesete sporočilo in kliknete »V redu«, mora okno cmd potegniti okno v orodni vrstici in nato izginiti, to je bila paketna datoteka, ki je poslala sporočilo. Če ima vaš prijatelj (ali sovražnik) na svojem računalniku nameščen isti program ali pa je odličen pri pošiljanju NET, potem morate dobiti odgovor nazaj!

4. korak: Še zadnja stvar, preden NET pošljete povsod

Še zadnje sporočilo: TO NA VISTI NE BO DELALO!

Ukaz NET send je bil za Vista razveljavljen zaradi varnostnih razlogov, zato bo pred tem deloval le v operacijskih sistemih Windows. Toda kot ste morda opazili nekateri, sem ta program napisal na Vista! Zato V TEORIJI deluje. Prosimo, da se vrnete s povratnimi informacijami, ali je uspelo ali ne. Hvala TheKnight P. S. Če ste preveč leni za besede, je datoteka spodaj Shranite jo v svojo mapo, tako da imata lahko ona in "~ msngr.bat" nekaj časa zase …