Paso 2: Vamos a explicar...
OK, este primer bit abre la caja que pide el nombre del equipo que desea iniciar una conversación con. La parte de "Destino si" dice la computadora al terminar el programa si la prensa usuario cancela o deja en blanco el campo de entrada.
Dim destino
Destino = InputBox ("entrar el equipo de destino:","Paloma mensajera v1.7 (TheKnight)")
Si Target = "" entonces
WScript.Quit
END IF
Este segundo bit relés la entrada que hizo el usuario en el paso anterior, por ejemplo, si el usuario de entrada el equipo de destino como: relés de 'The_Pentagon' entonces este mensaje que dice "Iniciar conversación con The_Pentagon?". Mismo tratar como el anterior, si la prensa usuario no, entonces se terminará la operación.
Dim comenzar
comenzar = MsgBox ("Iniciar conversación con" & objetivo & "?", 36, "Paloma mensajera v1.7")
Si comenzar = vbNo Then
WScript.Quit
End If
Esta siguiente es la parte que me largo a escribir. Básicamente crea un archivo por lotes y lo llama "~ msngr.bat". Luego escribe los comandos correctos para él para él a iniciar NET send.
Dim mensaje
mensaje = "0"
Hasta mensaje = ""
mensaje = InputBox ("ingrese el mensaje:" & vbcr & vbcr + _
"Ningún valor envía un mensaje en blanco" & vbcr + _
"Presione Cancel o Alt + F4 para cerrar la ventana","" & blanco, "", 13.500.100)
Set fs=CreateObject("Scripting.FileSystemObject")
strFileName = fs. Haber (Wscript.ScriptFullName & "\...", "~ msngr.bat")
strFileName = fs. GetAbsolutePathName(strFileName)
Sistema ts = fs. OpenTextFile (strFileName, 2, True)
TS. WriteLine "off"
TS. WriteLine "mensaje set =" & mensaje
TS. WriteLine "set destino =" & destino
TS. WriteLine "red enviar % destino % % % de mensaje"
TS. Cerrar
Esto entonces ejecuta el archivo por lotes, con el "2" y asegúrese de que funciona en una ventana minimizada y luego se cierra. Esto hace ver un poco más profesional.
Dim shell
Set shell=createobject("wscript.shell")
cáscara. Ejecutar "~msngr.bat",2
Lazo
Los dos últimos párrafos de los comandos se coloca. Esto permite al usuario mantener abierta la ventana del mensaje, y enviar varios mensajes hasta que la prensa usuario cancela y decide cerrar el programa.
