NETsend avec VBScript : 4 étapes

2024 Auteur: John Day | [email protected]. Dernière modifié: 2024-01-30 09:11

Ok, donc ce n'est pas totalement avec VBScripting, mais je pense que VBScripting InputBoxes et Msgboxes semblent beaucoup plus conviviaux que de saisir dans une fenêtre cmd. pouvez ouvrir cmd et taper "Net send computername yourmessageici" C'est juste une façon plus conviviale de le faire. Avis de non-responsabilité Je ne suis absolument pas responsable si quelque chose ne va pas avec ce programme, ou si le programme est mal utilisé de quelque manière que ce soit. Maintenant que nous avons réglé le problème, passons à autre chose

Étape 1: Commençons

Tout d'abord, je vais vous montrer le script et sur la page suivante, j'expliquerai ce que signifie chaque bit.dim TargetTarget=InputBox("Enter Target Computer: ", "Carrier Pigeon v1.7 (TheKnight)")If Then WScript. QuitEnd IFdim beginbegin=MsgBox ("Commencer la conversation avec " & target & "?", 36, "Carrier Pigeon v1.7")If begin = vbNo Then WScript. QuitEnd Ifdim messagemessage="0"Do Until message=""message= InputBox("Enter Message: " & vbcr & vbcr + _"Aucune valeur n'envoie un message vide" & vbcr + _"Appuyez sur Annuler ou Alt+F4 pour fermer la fenêtre", "" & Target, " ", 13500, 100) Définir fs=CreateObject("Scripting. FileSystemObject") strFileName = fs. BuildPath(Wscript. ScriptFullName & "\..", "~msngr.bat") strFileName = fs. GetAbsolutePathName(strFileName) Définir ts = fs. OpenTextFile(strFileName, 2, True) ts. WriteLine "@echo off"ts. WriteLine "set message=" & message ts. WriteLine "set & Target ts. WriteLine "net send %Target% %message%"ts. Closedim shellset shell=createobject ("wscript.shell")shell. Run "~msngr.bat", 2Loop

Étape 2: Alors, expliquons…

Le code de la page précédente est montré ci-dessous avec quelques annotations, si vous le copiez et le collez dans Word, veuillez le faire sur la page précédente. Ok, ce premier bit ouvre la boîte qui demande le nom de l'ordinateur avec lequel vous souhaitez démarrer une conversation. La partie "If Target" indique à l'ordinateur de mettre fin au programme si l'utilisateur appuie sur annuler ou laisse le champ de saisie vide. dim TargetTarget=InputBox("Enter Target Computer: ", "Carrier Pigeon v1.7 (TheKnight)")If Then WScript. QuitEnd IF Ce deuxième bit relaie l'entrée que l'utilisateur a faite à l'étape précédente, par exemple si l'utilisateur a saisi l'ordinateur cible comme: 'The_Pentagon', alors ce message en relaie un qui dit "Démarrer la conversation avec The_Pentagon ?". Même chose que ci-dessus, si l'utilisateur appuie sur 'non, l'opération se terminera. dim beginbegin=MsgBox ("Commencer la conversation avec " & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Then WScript. QuitEnd If Ce bit suivant est la partie qui m'a pris LONG à écrire. Il crée essentiellement un fichier batch et l'appelle "~msngr.bat". Il lui écrit ensuite les commandes correctes pour qu'il lance l'envoi NET. dim messagemessage="0"Do Until message=""message=InputBox("Enter Message: " & vbcr & vbcr + _"Aucune valeur n'envoie un message vide" & vbcr + _"Appuyez sur Annuler ou Alt+F4 pour fermer la fenêtre ", "" & Target, " ", 13500, 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 "@echo off"ts. WriteLine "set message=" & message ts. WriteLine "set & Target ts. WriteLine "net send %Target% %message%"ts. Close Ceci exécute ensuite le fichier batch, avec le "2" en s'assurant qu'il s'exécute dans une fenêtre réduite, puis se ferme. Cela lui donne un aspect un peu plus professionnel. dim shellset shell=createobject(" wscript.shell")shell. Run "~msngr.bat", 2Loop Ces deux derniers paragraphes de commandes sont bouclés. Cela permet à l'utilisateur de garder la fenêtre de message ouverte et d'envoyer plusieurs messages jusqu'à ce que l'utilisateur appuie sur annuler et décide de fermer le programme.

Étape 3: Supportez-moi

Ok, je sais que c'était beaucoup à prendre en compte. Mais je vais probablement soumettre quelques nouvelles instructables sur le site pour un VBScripting simple et un VBScripting plus avancé si suffisamment de personnes le demandent.

Alors maintenant, enregistrez le fichier ! appuyez sur enregistrer, assurez-vous de faire l'extension de fichier ".vbs" Je sais que c'était beaucoup à prendre, mais je vais expliquer ce qui se passe si le fichier est utilisé correctement: sera un message vous assurant que vous souhaitez démarrer une conversation avec cet ordinateur. Si vous avez cliqué sur « Oui », une zone de saisie devrait apparaître (en haut à droite de votre écran, afin que vous puissiez continuer avec ce que vous voulez faire) vous demandant de saisir le message. Une fois qu'un message est entré et que vous avez cliqué sur "OK", une fenêtre cmd devrait apparaître le long de votre barre d'outils puis disparaître, il s'agissait du fichier batch envoyant le message. Si votre ami (ou ennemi) a ce même programme installé sur son ordinateur, ou est astucieux avec NET send, alors vous devriez obtenir une réponse !

Étape 4: Une dernière chose avant d'envoyer NET partout

Un dernier petit message: CELA NE FONCTIONNERA PAS SUR VISTA !

La commande NET send a été supprimée pour Vista pour des raisons de sécurité, elle ne fonctionnera donc que sur les systèmes d'exploitation Windows avant cela. Mais comme certains d'entre vous l'ont peut-être remarqué, j'ai écrit ce programme sur Vista ! Donc EN THÉORIE ça marche. Cependant, veuillez revenir avec vos commentaires pour savoir si cela a réussi ou non. Merci TheKnight P. S. Si vous êtes trop paresseux pour les mots, le fichier est ci-dessous. Enregistrez-le dans son propre dossier, afin qu'il et "~ msngr.bat" puissent passer du temps seuls…