NETsend med VBScripting (2 / 4 steg)
Steg 2: Så låt oss förklara...
OK, öppnar denna första biten rutan som frågar efter namnet på den dator du vill starta en konversation med. "Om Target" delen anger datorn för att avsluta programmet om användaren pressens avbryter eller lämnar fältet tomt.
Dim mål
Target = InputBox ("Ange måldatorn:","Carrier duva v1.7 (TheKnight)")
Om Target = "" sedan
WScript.Quit
Slut om
Detta andra stycke förmedlar den ingång som användaren gjorde i föregående steg, till exempel om användaren ingång måldatorn som: 'The_Pentagon' sedan detta meddelande vidarebefordrar en som säger "Starta samtal med The_Pentagon?". Samma hantera som ovan, om användaren pressens nej, sedan operationen avslutas.
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
Denna nästa bit är den del som tog mig lång tid att skriva. Det i grunden skapar en kommandofil och kallar det "~ msngr.bat". Det skriver sedan rätt kommandon till den att initiera NET send.
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
Detta sedan kör kommandofilen, med den "2" se till att det körs i ett minimerat fönster och sedan stängs. Detta gör att det ser lite mer professionell.
Dim shell
ställa in shell=createobject("wscript.shell")
Shell. Kör "~msngr.bat",2
Loop
De sista två punkterna kommandon är loopas. Detta tillåter användaren att hålla meddelandefönstret öppna och skicka flera meddelanden tills användaren pressens avbryta och bestämmer sig för att avsluta programmet.