NETsend amb VBScripting: 4 passos

2024 Autora: John Day | [email protected]. Última modificació: 2024-01-30 08:17

D'acord, per tant, no és totalment amb VBScripting, però crec que les caixes d'entrada i les caixes de missatges de VBScripting semblen molt més fàcils d'utilitzar que introduir-les en una finestra cmd. Podeu obrir cmd i escriure "Net send computername yourmessagehere" Aquesta és només una manera més fàcil d'utilitzar. Exempció de responsabilitat No sóc totalment responsable si alguna cosa surt malament amb aquest programa o si el programa s’utilitza de manera incorrecta. Ara ho hem aconseguit, continuem

Pas 1: Comencem

En primer lloc, us mostraré el guió i a la pàgina següent us explicaré què significa cada bit. QuitEnd IFdim beginbegin = MsgBox ("Comença la conversa amb" & objectiu & "?", 36, "Carrier Pigeon v1.7") Si begin = vbNo, llavors WScript. QuitEnd Ifdim messagemessage = "0" Feu fins a missatge = "" message = InputBox ("Introduïu missatge:" & vbcr & vbcr + _ "Cap valor envia un missatge en blanc" & vbcr + _ "Premeu Cancel·la o Alt + F4 per tancar la finestra", "" & Objectiu, "", 13500, 100) Estableix fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) Establir ts = fs. OpenTextFame, 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

Pas 2: doncs, expliquem …

El codi de la pàgina anterior es mostra a continuació amb algunes anotacions, si el copieu i enganxeu a word, feu-ho a la pàgina anterior. D’acord, aquest primer bit obre el quadre que demana el nom de l’ordinador amb el qual voleu iniciar una conversa. La part "Si és objectiu" indica a l'ordinador que finalitzi el programa si l'usuari prem "Cancel·la" o deixa el camp d'entrada en blanc. dim TargetTarget = InputBox ("Introduïu l'ordinador objectiu:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IF Aquest segon bit retransmet l'entrada que l'usuari va fer al pas anterior, per exemple, si l'usuari introdueix l'ordinador de destinació com: 'The_Pentagon', llavors aquest missatge emet un que diu "Voleu iniciar la conversa amb The_Pentagon?". El mateix acord que l'anterior, si l'usuari prem "no", l'operació finalitzarà. dim beginbegin = MsgBox ("Començar la conversa amb" & objectiu & "?", 36, "Carrier Pigeon v1.7") Si begin = vbNo, llavors WScript. QuitEnd Si aquest següent bit és la part que em va trigar molt a escriure. Bàsicament crea un fitxer per lots i l'anomena "~ msngr.bat". A continuació, hi escriu les ordres correctes perquè iniciï l'enviament NET. dim messagemessage = "0" Fer fins a message = "" message = InputBox ("Introduïu missatge:" & vbcr & vbcr + _ "Cap valor envia un missatge en blanc" & vbcr + _ "Premeu Cancel o Alt + F4 per tancar la finestra "," "& Target," ", 13500, 100) Set fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Establir 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 A continuació, s'executa el fitxer per lots, amb el" 2 "assegurant-se que s'executa en una finestra minimitzada i es tanca. Això fa que sembli una mica més professional. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Aquests dos darrers paràgrafs d'ordres estan en bucle. Això permet a l'usuari mantenir la finestra del missatge oberta i enviar diversos missatges fins que l'usuari prem" Cancel·la "i decideix tancar-lo el programa.

Pas 3: Mantingueu-vos amb mi

D'acord, sé que això era molt important. Però probablement vaig a enviar uns quants instructables nous al lloc per a VBScripting senzill i VBScripting més avançat si hi ha prou gent que ho comenta.

Així que ara deseu el fitxer. premeu Desa, assegureu-vos de fer l'extensió de fitxer ".vbs". Sé que era molt important, però explicaré què passa si el fitxer s'utilitza correctament: en primer lloc, rebreu una sol·licitud per demanar l'ordinador de destinació. Serà un missatge que us assegura que voleu iniciar una conversa amb aquest ordinador. Si heu fet clic a "Sí", apareixerà un quadre d'entrada (a la part superior dreta de la pantalla, de manera que pugueu continuar amb el que voleu fer) per demanar-vos que introduïu el missatge. Un cop s'hagi introduït un missatge i es faci clic a "D'acord", apareixerà una finestra cmd al llarg de la barra d'eines i desapareixerà; aquest era el fitxer per lots que enviava el missatge. Si el vostre amic (o enemic) té instal·lat aquest mateix programa a l'ordinador o és intel·ligent amb NET send, hauríeu de rebre una resposta.

Pas 4: una última cosa abans d’anar NET enviant a tot arreu

Un últim petit missatge: AQUEST NO FUNCIONARÀ A VISTA!

L'ordre NET send s'ha suprimit per Vista per motius de seguretat, per tant, només funcionarà en sistemes operatius Windows abans. Però com alguns de vosaltres heu notat, he escrit aquest programa a Vista. Per tant, EN TEORIA funciona. Tanmateix, torneu amb comentaris sobre si té èxit o no. Gràcies TheKnight P. S. Inclou el text massa mandrós per a les paraules, el fitxer es troba a sota Deseu-lo a la seva pròpia carpeta, de manera que ell i "~ msngr.bat" puguin passar una estona sola …