NETsend VBScripting -el: 4 lépés

2024 Szerző: John Day | [email protected]. Utoljára módosítva: 2024-01-30 09:44

Rendben, tehát nem teljesen a VBScripting esetében, de úgy gondolom, hogy a VBScripting InputBoxok és az Msgboxok sokkal felhasználóbarátabbnak tűnnek, mint egy cmd ablakba való beírás. megnyithatja a cmd parancsot, és beírhatja: "Net send computername yourmessagehere" Ez csak egy felhasználóbarátabb módszer. Felelősség kizárása Teljes mértékben nem vállalok felelősséget, ha bármi hiba történik ezzel a programmal, vagy ha a program bármilyen módon visszaél. Most már ezt nem tudjuk, menjünk tovább

1. lépés: Kezdjük el

Először is megmutatom a szkriptet, és a következő oldalon elmagyarázom, hogy mit jelentenek az egyes bitek. Dim TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IFdim beginbegin = MsgBox ("Beszélgetést kezdeni a" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Akkor WScript. QuitEnd Ifdim messagemessage = "0" Do Before message = "" message = InputBox ("Írja be az üzenetet:" & vbcr & vbcr + _ "Nincs érték üres üzenetet küld" & vbcr + _ "Nyomja meg a Mégse vagy az Alt + F4 billentyűkombinációt az ablak bezárásához", "" & Target, "", 13500, 100) Set fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\" "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Állítsa be a tsTfájlnév (, 2, Igaz) 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. lépés: Magyarázzuk el…

Az előző oldalon található kód néhány megjegyzéssel látható alább. Ha másolja és beilleszti a Wordbe, kérjük, tegye meg az előző oldalon. Rendben, Ez az első bit megnyitja azt a mezőt, amely megkérdezi annak a számítógépnek a nevét, amellyel beszélgetést szeretne kezdeni. Az "If Target" rész azt mondja a számítógépnek, hogy fejezze be a programot, ha a felhasználó megnyomja a "Cancel" gombot, vagy üresen hagyja a beviteli mezőt. dim TargetTarget = InputBox ("Írja be a célszámítógépet:", "Carrier Pigeon v1.7 (TheKnight)") Ha akkor WScript. QuitEnd IF Ez a második bit azt a bemenetet továbbítja, amelyet a felhasználó az előző lépésben végzett, például ha a felhasználó a célszámítógépet: "The_Pentagon", akkor ez az üzenet azt küldi, amely azt mondja: "Beszélgetést kezdeni a The_Pentagon -nal?". Ugyanaz az üzlet, mint fent, ha a felhasználó megnyomja a „nem” gombot, a művelet befejeződik. dim beginbegin = MsgBox ("Beszélgetés a" & target & "-vel?", 36, "Carrier Pigeon v1.7") If begin = vbNo Akkor WScript. QuitEnd If Ez a következő bit az a rész, ami sokáig tartott. Alapvetően kötegelt fájlt hoz létre, és "~ msngr.bat" -nak nevezi. Ezután a megfelelő parancsokat írja be, hogy kezdeményezze a NET küldést. dim messagemessage = "0" Do Before message = "" message = InputBox ("Írja be az üzenetet:" & vbcr & vbcr + _ "Nincs érték üres üzenetet küld" & vbcr + _ "Az ablak bezárásához nyomja meg a Mégse vagy Alt + F4 billentyűket "," "& Target," ", 13500, 100) Set fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Állítsa be 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 Ez lefuttatja a kötegelt fájlt, a" 2 "pedig gondoskodik arról, hogy egy minimalizált ablakban fusson, majd bezárul. Így egy kicsit professzionálisabbnak tűnik. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop A parancsok utolsó két bekezdése hurkos. Ez lehetővé teszi a felhasználó számára, hogy nyitva tartsa az üzenetablakot, és több üzenetet küldjön, amíg a felhasználó megnyomja a" Mégse "gombot, és úgy dönt, hogy bezárja A program.

3. lépés: Viselj velem

Rendben, tudom, hogy sok mindent be kellett fogadnom. Valószínűleg néhány új utasítást fogok benyújtani az oldalra az egyszerű VBScripting és a fejlettebb VBScripting számára, ha elég sokan kommentálják ezt.

Tehát most a fájl mentéséhez! Nyomja meg a Mentés gombot, és győződjön meg arról, hogy a ".vbs" fájlkiterjesztés Tudom, hogy sok volt a befogadás, de elmagyarázom, mi történik, ha a fájlt helyesen használják: Először a rendszer kéri a célszámítógépet. Üzenet lesz arról, hogy beszélgetést szeretne kezdeményezni ezzel a számítógéppel. Ha az „Igen” gombra kattintott, akkor egy beviteli mezőnek kell megjelennie (a képernyő jobb felső sarkában, így folytathatja azt, amit szeretne), és kéri, hogy írja be az üzenetet. Miután beírt egy üzenetet, és rákattintott az „OK” gombra, egy cmd ablaknak kell megjelennie az eszköztár mentén, majd eltűnnie, ez volt az üzenetet küldő kötegelt fájl. Ha a barátjának (vagy ellenségének) ugyanaz a programja van telepítve a számítógépére, vagy ügyes a NET send, akkor vissza kell kapnia a választ!

4. lépés: Még egy utolsó dolog indulás előtt NET küld mindenhova

Egy utolsó kis üzenet: EZ NEM MŰKÖDIK A VISTA -N!

A NET send parancs biztonsági okok miatt megszűnt a Vista számára, ezért előtte csak Windows operációs rendszereken működik. De ahogy néhányan észrevettétek, ezt a programot Vista -n írtam! Ezért ELMÉLETBEN működik. Kérjük, térjen vissza visszajelzéssel arról, hogy sikeres -e vagy sem. Köszi TheKnight P. S. Ha túl lusta a szavakhoz, a fájl az alábbiakban található. Mentse el a saját mappájába, hogy ő és a "~ msngr.bat" egyedül maradhassanak…