NETsend med VBScripting (1 / 4 steg)
Steg 1: Låt oss komma igång
Dim mål
Target = InputBox ("Ange måldatorn:","Carrier duva v1.7 (TheKnight)")
Om Target = "" sedan
WScript.Quit
Slut om
Dim börjar
börja = MsgBox ("Börja samtalet med" & mål & "?", 36, "Carrier duva v1.7")
Om börja = vbNo då
WScript.Quit
Slut om
Dim meddelande
meddelande = "0"
Inte förrän meddelande = ""
meddelande = InputBox ("Ange meddelande:" & vbcr & vbcr + _
"Inget värde skickar ett tomt meddelande" & vbcr + _
"Tryck på Avbryt eller Alt + F4 för att stänga fönstret","" & mål, "", 13500,100)
Ställa in fs=CreateObject("Scripting.FileSystemObject")
strFileName = fs. BuildPath (Wscript.ScriptFullName & "\..", "~ msngr.bat")
strFileName = fs. GetAbsolutePathName(strFileName)
Ange ts = fs. OpenTextFile (strFileName, 2, True)
TS. WriteLine "off"
TS. WriteLine "set meddelande =" & meddelande
TS. WriteLine "set target =" & mål
TS. WriteLine "net skicka % mål % % message %"
TS. Stäng
Dim shell
ställa in shell=createobject("wscript.shell")
Shell. Kör "~msngr.bat",2
Loop