NETsend con VBScripting (1 / 4 paso)

Paso 1: Vamos a empezar

Dim destino
Destino = InputBox ("entrar el equipo de destino:","Paloma mensajera v1.7 (TheKnight)")
Si Target = "" entonces
WScript.Quit
END IF

Dim comenzar
comenzar = MsgBox ("Iniciar conversación con" & objetivo & "?", 36, "Paloma mensajera v1.7")
Si comenzar = vbNo Then
WScript.Quit
End If

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

Dim shell
Set shell=createobject("wscript.shell")
cáscara. Ejecutar "~msngr.bat",2
Lazo