NETsend mit VBScripting - Gunook

2024 Autor: John Day | [email protected]. Zuletzt bearbeitet: 2024-01-30 07:22

Okay, es ist nicht ganz mit VBScripting, aber ich denke, dass VBScripting InputBoxen und Msgboxes viel benutzerfreundlicher aussehen als die Eingabe in ein cmd-Fenster kann cmd öffnen und "Net send computername yourmessagehere" eingeben. Dies ist nur eine benutzerfreundlichere Methode. Haftungsausschluss Ich übernehme keinerlei Verantwortung, wenn mit diesem Programm etwas schief geht oder das Programm in irgendeiner Weise missbraucht wird. Jetzt haben wir das aus dem Weg, lass uns weitermachen

Schritt 1: Lass uns loslegen

Zuerst zeige ich Ihnen das Skript und auf der nächsten Seite erkläre ich, was jedes Bit bedeutet.dim TargetTarget=InputBox("Geben Sie den Zielcomputer ein: ", "Carrier Pigeon v1.7 (TheKnight)")If Then WScript. QuitEnd IFdim beginbegin=MsgBox ("Beginne das Gespräch mit " & target & "?", 36, "Carrier Pigeon v1.7")If begin = vbNo Then WScript. QuitEnd Ifdim messagemessage="0"Do Until message=""message= InputBox("Nachricht eingeben: " & vbcr & vbcr + _"Kein Wert sendet eine leere Nachricht" & vbcr + _"Drücken Sie Abbrechen oder Alt+F4, um das Fenster zu schließen", "" & Ziel, " ", 13500, 100) Set fs=CreateObject("Scripting. FileSystemObject") strFileName = fs. BuildPath(Wscript. ScriptFullName & "\..", "~msngr.bat") strFileName = fs. GetAbsolutePathName(strFileName) Set 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. Closedim shellset shell=createobject ("wscript.shell")shell. Run "~msngr.bat", 2Loop

Schritt 2: Also lassen Sie uns erklären …

Der Code auf der vorherigen Seite wird unten mit einigen Anmerkungen angezeigt. Wenn Sie ihn kopieren und in Word einfügen, tun Sie dies bitte auf der vorherigen Seite. Ok, Dieses erste Bit öffnet das Feld, das nach dem Namen des Computers fragt, mit dem Sie ein Gespräch beginnen möchten. Der "If Target"-Teil weist den Computer an, das Programm zu beenden, wenn der Benutzer "Abbrechen" drückt oder das Eingabefeld leer lässt. dim TargetTarget=InputBox("Enter Target Computer: ", "Carrier Pigeon v1.7 (TheKnight)")If Then WScript. QuitEnd IF Dieses zweite Bit gibt die Eingabe weiter, die der Benutzer im vorherigen Schritt gemacht hat, zum Beispiel wenn die Benutzereingabe dem Zielcomputer als: 'The_Pentagon', dann leitet diese Nachricht eine weiter, die sagt: "Konversation mit The_Pentagon starten?". Dasselbe Verfahren wie oben, wenn der Benutzer "Nein" drückt, wird die Operation beendet. dim beginbegin=MsgBox ("Beginne das Gespräch mit " & target & "?", 36, "Carrier Pigeon v1.7")If begin = vbNo Then WScript. QuitEnd If Dieses nächste Bit ist der Teil, für den ich LANGE geschrieben habe. Es erstellt im Grunde eine Batch-Datei und nennt sie "~msngr.bat". Es schreibt dann die richtigen Befehle hinein, damit es das NET-Senden initiieren kann. dim messagemessage="0"Do Until message=""message=InputBox("Enter Message: " & vbcr & vbcr + _"Kein Wert sendet eine leere Nachricht" & vbcr + _"Drücken Sie Abbrechen oder Alt+F4, um das Fenster zu schließen ", "" & Target, " ", 13500, 100)Set fs=CreateObject("Scripting. FileSystemObject") strFileName = fs. BuildPath(Wscript. ScriptFullName & "\..", "~msngr.bat") strFileName = fs. GetAbsolutePathName(strFileName) Setze 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 Dies führt dann die Batchdatei aus, wobei die "2" sicherstellt, dass sie in einem minimierten Fenster ausgeführt wird und dann geschlossen wird. Dadurch sieht es etwas professioneller aus. dim shellset shell=createobject(" wscript.shell")shell. Run "~msngr.bat", 2Loop Diese letzten beiden Absätze von Befehlen werden in einer Schleife ausgeführt. Dies ermöglicht dem Benutzer, das Nachrichtenfenster geöffnet zu lassen und mehrere Nachrichten zu senden, bis der Benutzer auf "Abbrechen" drückt und sich zum Schließen entscheidet das Programm.

Schritt 3: Tragen Sie mit mir

Ok, ich weiß, dass das viel zu nehmen war. Aber ich werde wahrscheinlich ein paar neue Anleitungen für einfaches VBScripting und fortgeschritteneres VBScripting an die Site senden, wenn genügend Leute kommentieren, die danach fragen.

Also jetzt, um die Datei zu speichern! Drücken Sie auf Speichern, stellen Sie sicher, dass die Dateierweiterung ".vbs" ist. Ich weiß, es war viel zu beachten, aber ich werde erklären, was passiert, wenn die Datei richtig verwendet wird: Zuerst werden Sie nach dem Zielcomputer gefragt ' wird eine Nachricht sein, die sicherstellt, dass Sie eine Unterhaltung mit diesem Computer beginnen möchten. Wenn Sie auf "Ja" geklickt haben, sollte ein Eingabefeld erscheinen (oben rechts auf Ihrem Bildschirm, damit Sie mit dem fortfahren können, was Sie tun möchten), in dem Sie aufgefordert werden, die Nachricht einzugeben. Sobald eine Nachricht eingegeben und auf 'OK' geklickt wurde, sollte ein cmd-Fenster entlang Ihrer Symbolleiste herausspringen und dann verschwinden, dies war die Batch-Datei, die die Nachricht sendete. Wenn Ihr Freund (oder Feind) dasselbe Programm auf seinem Computer installiert hat oder mit NET send geschickt ist, sollten Sie eine Antwort erhalten!

Schritt 4: Eine letzte Sache, bevor Sie NET überall senden

Eine letzte kleine Nachricht: DAS FUNKTIONIERT NICHT AUF VISTA!

Der NET-Sendebefehl wurde aus Sicherheitsgründen für Vista abgeschafft, funktioniert daher nur auf Windows-Betriebssystemen davor. Aber wie einige von euch vielleicht bemerkt haben, habe ich dieses Programm auf Vista geschrieben! Daher funktioniert es THEORIE. Bitte kehren Sie jedoch mit Feedback zurück, ob es erfolgreich war oder nicht. Danke TheKnight P. S. Falls Sie zu faul für Worte sind, finden Sie die Datei unten Speichern Sie sie in einem eigenen Ordner, damit sie und "~msngr.bat" etwas Zeit für sich haben können …