|
Hola a todos, una consulta, estoy tratando de hacer un vbscript que use el winsock y mande caracteres a un puerto el cual a su vez esta siendo escuchado por el netcat; como el netcat no recibe nada decidi crear otro vbscript que escuche en el puerto para verificar si realmente el primer vbscript esta mandando data a ese puerto y por lo que veo si lo hace; el vbscript del 1ero (el que manda data al puerto) es el siguiente
********************************************
Set WinSock1 = CreateObject("MSWinsock.Winsock")
WinSock1.Protocol = 1
WinSock1.RemoteHost = "127.0.0.1"
WinSock1.LocalPort = 800
WinSock1.RemotePort = 801
WinSock1.Connect
WinSock1.SendData "hola"
WinSock1.Close
Set WinSock1 = Nothing
**********************************************
El del 2do. vbscript es el siguiente:
On Error Resume next
Set servidor =wscript.CreateObject("MSWinsock.Winsock")
servidor.protocol= 1
servidor.localport= 801
servidor.bind
If err.number <> 0 Then wscript.quit
Do
SERVIDOR.GETDATA DATO
MENSAJE = CStr(DATO)
If mensaje <> "" Then
On Error Resume Next
MsgBox mensaje
End if
MENSAJE = ""
dato= ""
LOOP
**************************************
En el netcat puse lo siguiente:
c:\>nc -l -vv -p 801
Alguien sabe a que se deberia que el netcat no recibe lo que le envia el 1er. vbscript pero sin embargo el 2do. vbscript si recibe lo que le envia el 1er. vbscript? Será porque esta usando el protocolo UDP? Gracias de antemano por la ayuda.
el angelito!
|
