Stap 2: Dus laten we uitleggen...
OK, opent het vak dat vraagt om de naam van de computer die u wilt starten van een gesprek met deze eerste stukje. Het "Als Target" deel vertelt de computer het programma wordt beëindigd als de gebruiker pers annuleert of het veld leeg laat.
Dim Target
Doelstelling = InputBox ("Enter doelcomputer kunnen worden gebruikt:","drager Pigeon v1.7 (TheKnight)")
Als Target = "" dan
WScript.Quit
End IF
Deze tweede bit Relais de input die de gebruiker in de vorige stap, bijvoorbeeld heeft als de gebruikersinvoer de doelcomputer kunnen worden gebruikt als: 'The_Pentagon' dan dit bericht Relais die zegt "Start conversation with The_Pentagon?". Hetzelfde als bovenstaande, gaan als de gebruiker druk op Nee, vervolgens de bewerking zal beëindigen.
Dim beginnen
beginnen = MsgBox ("Begin gesprek met" & target & "?", 36, "Carrier Pigeon v1.7")
Als beginnen = vbNo Then
WScript.Quit
End If
Dit volgende beetje is het deel dat kostte me lang om te schrijven. In principe wordt gemaakt van een batch-bestand en noemt het "~ msngr.bat". Het schrijft vervolgens de juiste opdrachten voor het starten van de NET send.
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
Dit vervolgens wordt uitgevoerd van de batch-bestand, met de "2" om ervoor te zorgen het loopt in een geminimaliseerd venster en vervolgens sluit. Dit maakt het een beetje meer professionelere uitstraling.
Dim shell
set shell=createobject("wscript.shell")
shell. Run "~msngr.bat",2
Loop
Die laatste twee alinea's met opdrachten zijn lus. Hierdoor kan de gebruiker het berichtvenster open te houden en meerdere berichten te verzenden totdat de gebruiker pers annuleren en beslist om het programma te sluiten.