NETsend VBScripting: 4 vaihetta

2024 Kirjoittaja: John Day | [email protected]. Viimeksi muokattu: 2024-01-30 09:04

Ok, joten se ei ole täysin VBScriptingin kanssa, mutta mielestäni VBScripting InputBoxes ja Msgboxes näyttävät paljon käyttäjäystävällisemmiltä kuin cmd -ikkunan syöttäminen. Voi ja btw, älä kirjoita "PALJON HELPPOTAPAAN …" Syy kyllä, me kaikki tiedämme, että sinä voi avata cmd: n ja kirjoittaa "Net send computername yourmessagehere" Tämä on vain käyttäjäystävällisempi tapa tehdä se. Vastuuvapauslauseke En ole täysin vastuussa, jos ohjelmassa tapahtuu jotain vikaa tai jos ohjelmaa käytetään MITÄÄN tavalla. Nyt olemme saaneet asian pois, jatketaan eteenpäin

Vaihe 1: Aloitetaan

Ensin näytän sinulle komentosarjan ja seuraavalla sivulla selitän, mitä kukin bitti tarkoittaa.dim TargetTarget = InputBox ("Anna kohdetietokone:", "Carrier Pigeon v1.7 (TheKnight)") Jos sitten WScript. QuitEnd IFdim beginbegin = MsgBox ("Aloita keskustelu" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbEi Sitten WScript. QuitEnd Ifdim messagemessage = "0" Do Before message = "" message = InputBox ("Kirjoita viesti:" & vbcr & vbcr + _ "No Value lähettää tyhjän viestin" & vbcr + _ "Sulje ikkuna painamalla Peruuta tai Alt + F4", "" & Target, "", 13500, 100) Aseta fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\" "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Aseta tsTiedostotiedosto (, 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

Vaihe 2: Selitetään siis…

Edellisen sivun koodi näkyy alla muutamilla merkinnöillä, jos kopioit ja liität sen sanaksi, tee se edellisellä sivulla. Ok, tämä ensimmäinen bitti avaa ruudun, jossa kysytään sen tietokoneen nimeä, jonka kanssa haluat aloittaa keskustelun. "Jos kohde" -osa kehottaa tietokonetta lopettamaan ohjelman, jos käyttäjä painaa "Peruuta" tai jättää syöttökentän tyhjäksi. himmeä TargetTarget = InputBox ("Anna kohdetietokone:", "Carrier Pigeon v1.7 (TheKnight)") Jos Sitten WScript. QuitEnd IF Tämä toinen bitti välittää syötteen, jonka käyttäjä teki edellisessä vaiheessa, esimerkiksi jos käyttäjän syöttämä kohdetietokoneella: "The_Pentagon", tämä viesti välittää viestin, jossa sanotaan "Aloitetaanko keskustelu The_Pentagonin kanssa?". Sama asia kuin yllä, jos käyttäjä paina 'ei', toiminto päättyy. dim beginbegin = MsgBox ("Aloita keskustelu" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Sitten WScript. QuitEnd If Tämän seuraavan bitin kirjoittaminen vei minut PITKÄN. Se luo pohjimmiltaan erätiedoston ja kutsuu sitä "~ msngr.bat". Sitten se kirjoittaa sille oikeat komennot aloittaakseen NET -lähetyksen. dim messagemessage = "0" Do Before message = "" message = InputBox ("Kirjoita viesti:" & vbcr & vbcr + _ "No Value lähettää tyhjän viestin" & vbcr + _ "Sulje ikkuna painamalla Peruuta tai Alt + F4 "," "& Kohde," ", 13500, 100) Aseta fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Aseta 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 Tämän jälkeen suoritetaan erätiedosto ja" 2 "varmistaa, että se toimii minimoidussa ikkunassa ja sulkeutuu. Tämä tekee siitä hieman ammattimaisemman. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Nämä kaksi viimeistä komentokappaletta ovat silmukoita. Näin käyttäjä voi pitää viesti -ikkunan auki ja lähettää useita viestejä, kunnes käyttäjä painaa" peruuta "ja päättää sulkea ohjelma.

Vaihe 3: Ole kanssani

Ok, tiedän, että se oli paljon otettavaa. Mutta luultavasti aion lähettää sivustolle muutamia uusia ohjeita yksinkertaista VBScriptingia varten ja kehittyneempää VBScriptingia varten, jos tarpeeksi ihmisiä kommentoi sitä.

Joten nyt tallentaa tiedosto! paina Tallenna, muista tehdä tiedostopääte ".vbs" Tiedän, että se oli paljon otettavaa, mutta selitän, mitä tapahtuu, jos tiedostoa käytetään oikein: Ensin saat kehotteen kysyä kohdetietokonetta Seuraavaksi Tulee viesti varmistaaksesi, että haluat aloittaa keskustelun tämän tietokoneen kanssa. Jos valitsit Kyllä, näyttöön tulee syöttökenttä (näytön oikeassa yläkulmassa, jotta voit jatkaa haluamaasi toimintoa), jossa sinua pyydetään syöttämään viesti. Kun viesti on syötetty ja OK -painiketta napsautetaan, cmd -ikkunan pitäisi ilmestyä työkalupalkkiisi ja katoaa sitten, tämä oli viestin lähettävä erätiedosto. Jos ystäväsi (tai vihollisesi) on asentanut saman ohjelman tietokoneelleen tai hän on näppärä NET -lähetyksen kanssa, sinun pitäisi saada vastaus takaisin!

Vaihe 4: Viimeinen asia ennen lähtöä NET lähettää kaikkialle

Viimeinen pieni viesti: TÄMÄ EI TOIMI VISTAlla!

NET send -komento poistettiin Vistasta turvallisuussyistä, joten se toimii vain Windows -käyttöjärjestelmissä ennen sitä. Mutta kuten jotkut teistä ovat ehkä huomanneet, olen kirjoittanut tämän ohjelman Vistassa! Teoriassa se siis toimii. Palaa kuitenkin palautteella siitä, onnistuiko vai ei. Kiitos TheKnight P. S. Jos olet liian laiska sanoille, tiedosto on alla Tallenna se omaan kansioon, jotta se ja "~ msngr.bat" voivat viettää aikaa yksin …