Étape 2: Nous allons donc expliquer...
OK, ce premier bit ouvre la boîte qui vous demande le nom de l’ordinateur que vous souhaitez démarrer une conversation avec. La partie « Target si » indique à l’ordinateur à la fin du programme si la presse utilisateur annuler ou laisse le champ vide.
Dim cible
Cible = InputBox ("Entrez les ordinateur cible: «, » pigeons v1.7 (TheKnight)")
Si Target = "" alors
WScript.Quit
END IF
Ce deuxième bit relaie l’entrée que l’utilisateur a fait à l’étape précédente, par exemple si l’utilisateur a entré l’ordinateur cible comme: « The_Pentagon » alors ce message relais celui qui dit « Démarrer conversation with The_Pentagon? ». Même affaire que ci-dessus, si la presse utilisateur non, puis mettra fin à l’opération.
Dim commencent
commencer = MsgBox (« Commencer la conversation avec » & cible & "?", 36, « Pigeons v1.7 »)
Si commencer = vbNo Then
WScript.Quit
End If
Ce bit suivant est la partie qui a pris me LONG à écrire. Fondamentalement, il crée un fichier de commandes et l’appelle "~ msngr.bat". Il écrit ensuite les commandes correctes à lui pour qu’il puisse lancer NET send.
Dim message
message = « 0 »
Faire jusqu'à ce que message = ""
message = InputBox ("entrez Message:" & vbcr & vbcr + _
« Aucune valeur n’envoie un message vide » & vbcr + _
"Appuyer sur Cancel ou Alt + F4 pour fermer la fenêtre","" & cible, "", 13 500 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 « off »
TS. WriteLine "set message =" & message
TS. WriteLine "set cible =" & cible
TS. WriteLine "net envoyer % cible %%d message%"
TS. Fermer
Puis, il exécute le fichier de commandes, avec le « 2 » en s’assurant il s’exécute dans une fenêtre réduite et ferme. Cela lui donne une apparence un peu plus professionnel.
Dim shell
Set shell=createobject("wscript.shell")
coque. Exécutez "~msngr.bat",2
Boucle
Les deux derniers paragraphes de commandes sont bouclés. Cela permet à l’utilisateur ouvrir la fenêtre de message et envoyer plusieurs messages jusqu'à ce que l’utilisateur presse annuler et décide de fermer le programme.