pues para poder comprender los datos que se envian o reciben para eso quiero traducirlo.
aca esta el data arrival:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datoslocales As Variant
Winsock1.GetData datoslocales
Winsock2.SendData datoslocales
If Text1.Text = "" Then
Text1.Text = datoslocales
Else
Text1.Text = Text1.Text & vbCrLf & datoslocales
End If
End Sub
Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim datosvisitantes As Variant
Winsock2.GetData datosvisitantes
Winsock1.SendData datosvisitantes
If Text2.Text = "" Then
Text2.Text = datosvisitantes
Else
Text2.Text = Text2.Text & vbCrLf & datosvisitantes
End If
End Sub
Igualmente te subo el codigo fuente entero son solo 2kilobytes:
http://www.megaupload.com/?d=X3TJIB8Vgracias