Stap 1: Let's Get Started
Dim Target
Doelstelling = InputBox ("Enter doelcomputer kunnen worden gebruikt:","drager Pigeon v1.7 (TheKnight)")
Als Target = "" dan
WScript.Quit
End IF
Dim beginnen
beginnen = MsgBox ("Begin gesprek met" & target & "?", 36, "Carrier Pigeon v1.7")
Als beginnen = vbNo Then
WScript.Quit
End If
Dim bericht
Message = "0"
Doen tot bericht = ""
Message = InputBox ("Enter bericht:" & vbcr & vbcr + _
"Geen waarde stuurt een leeg bericht" & vbcr + _
"Druk op annuleren of Alt + F4 om het venster te sluiten","" & doel, "", 13500,100)
Set fs=CreateObject("Scripting.FileSystemObject")
strFileName = fs. BuildPath (Wscript.ScriptFullName & "\..", "~ msngr.bat")
strFileName = fs. GetAbsolutePathName(strFileName)
Instellen van ts = fs. OpenTextFile (strFileName, 2, True)
TS. WriteLine "off"
TS. WriteLine "set bericht =" & bericht
TS. WriteLine "set target =" & doel
TS. WriteLine "net send-% Target % message %"
TS. Sluiten
Dim shell
set shell=createobject("wscript.shell")
shell. Run "~msngr.bat",2
Loop