NETsend con VBScripting: 4 pasos

2024 Autor: John Day | [email protected]. Última modificación: 2024-01-30 08:45

Ok, no es totalmente con VBScripting, pero creo que VBScripting InputBoxes y Msgboxes se ven mucho más fáciles de usar que ingresar en una ventana de cmd. Oh y por cierto, por favor no escriba "MUCHO MÁS FÁCIL …" Porque sí, todos sabemos que usted puede abrir cmd y escribir "Net send computername yourmessage here" Esta es una forma más sencilla de hacerlo. Descargo de responsabilidad No soy totalmente responsable si algo sale mal con este programa, o si el programa se usa incorrectamente de CUALQUIER manera. Ahora lo tenemos fuera del camino, sigamos adelante

Paso 1: comencemos

En primer lugar, le mostraré el script y en la página siguiente explicaré lo que significa cada bit.dim TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IFdim beginbegin = MsgBox ("Comenzar conversación con" & target & "?", 36, "Carrier Pigeon v1.7") Si begin = vbNo Entonces WScript. QuitEnd Ifdim messagemessage = "0" Do hasta message = "" message = InputBox ("Ingresar mensaje:" & vbcr & vbcr + _ "Sin valor envía un mensaje en blanco" & vbcr + _ "Presione Cancelar o Alt + F4 para cerrar la ventana", "" & Destino, "", 13500, 100) Establecer fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) Establecer 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

Paso 2: Entonces, expliquemos …

El código de la página anterior se muestra a continuación con algunas anotaciones, si lo está copiando y pegando en Word, hágalo en la página anterior. Ok, este primer bit abre el cuadro que solicita el nombre de la computadora con la que desea iniciar una conversación. La parte "If Target" le dice a la computadora que finalice el programa si el usuario presiona 'cancelar' o deja el campo de entrada en blanco. dim TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IF Este segundo bit transmite la entrada que hizo el usuario en el paso anterior, por ejemplo, si el usuario ingresó la computadora de destino como: 'The_Pentagon' entonces este mensaje transmite uno que dice "¿Iniciar conversación con The_Pentagon?". El mismo trato que el anterior, si el usuario presiona 'no, entonces la operación terminará. dim beginbegin = MsgBox ("Comenzar conversación con" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Entonces WScript. QuitEnd If Este siguiente bit es la parte que me tomó MUCHO tiempo escribir. Básicamente crea un archivo por lotes y lo llama "~ msngr.bat". Luego escribe los comandos correctos para que inicie el envío NET. dim messagemessage = "0" Do until message = "" message = InputBox ("Ingresar mensaje:" & vbcr & vbcr + _ "Ningún valor envía un mensaje en blanco" & vbcr + _ "Presione Cancelar o Alt + F4 para cerrar la ventana "," "& Target," ", 13500, 100) Establecer 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 Esto luego ejecuta el archivo por lotes, con el" 2 "asegurándose de que se ejecute en una ventana minimizada y luego se cierra. Esto hace que parezca un poco más profesional. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Los dos últimos párrafos de los comandos están en bucle. Esto permite al usuario mantener la ventana de mensajes abierta y enviar varios mensajes hasta que el usuario presione 'cancelar y decida cerrar el programa.

Paso 3: ¡Ten paciencia conmigo

Ok, sé que fue mucho para asimilar. Pero probablemente voy a enviar algunos instructivos nuevos al sitio para VBScripting simple y VBScripting más avanzado si suficientes personas comentan y lo solicitan.

¡Así que ahora para guardar el archivo! presione guardar, asegúrese de que la extensión del archivo sea ".vbs". Sé que fue mucho para asimilar, pero explicaré qué sucede si el archivo se usa correctamente: en primer lugar, aparecerá un mensaje preguntando por la computadora de destino. Será un mensaje asegurándose de que desea iniciar una conversación con esta computadora. Si hizo clic en 'Sí', debería aparecer un cuadro de entrada (en la parte superior derecha de la pantalla, para que pueda continuar con lo que desea hacer) pidiéndole que ingrese el mensaje. Una vez que se ingresa un mensaje y se hace clic en 'Aceptar', entonces debería aparecer una ventana de cmd a lo largo de su barra de herramientas y luego desaparecer, este era el archivo por lotes que enviaba el mensaje. Si su amigo (o enemigo) tiene este mismo programa instalado en su computadora, o es ingenioso con NET send, ¡entonces debería recibir una respuesta!

Paso 4: ¡Una última cosa antes de ir NET Sending Everywhere

Un último pequeño mensaje: ¡ESTO NO FUNCIONARÁ EN VISTA!

El comando NET send fue abolido para Vista por razones de seguridad, por lo tanto, solo funcionará en sistemas operativos Windows antes de eso. Pero como algunos de ustedes habrán notado, ¡he escrito este programa en Vista! Por lo tanto EN TEORÍA funciona. Sin embargo, por favor regrese con sus comentarios sobre si fue exitoso o no. Gracias TheKnight P. S. En caso de que sea demasiado vago para las palabras, el archivo está debajo. Guárdelo en su propia carpeta, para que él y "~ msngr.bat" puedan tener algo de tiempo a solas …