Hola estoy tratando de hacer un un programa que q haga de intermediario entre dos pc

seria algo asi:


  PC1<----->[Pc infectada con el progrma]<----->PC2

ahora hice una parte pero me falla hay datos q no me llegan o me llegan una vez y cuando los pido de nuevo no me llegan o todos de golpe.


estuve buscando y no encontre nada similar, lo q estoy haciendo es:

WINSOCK2 CONECTA ENTRE PC2 Y EL PROGRAMA

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
data = ""
Winsock2.GetData data, , bytesTotal
Winsock1.SendData data
DoEvents
Sleep 1000
End Sub


WINSOCK1 ENTRE PC1 Y PROGRAMA

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
data = ""
Winsock1.GetData data, , bytesTotal
Winsock2.SendData data
DoEvents
Sleep 1000
End Sub


parece muy boludo pero no funciona queria saber si alguien tiene alguna idea o armo algo similar si me pude dar una mano!! desde ya muchas gracias!

es exactamente lo que estaba buscando, el tema es q nose bien cuanto es el tiempo q tiene q esperar para q no colapse, voy a seguir probando diferentes forma y tiempos y despues posteo como lo solucione

gracias! iba a terminar haciendo eso, es efectivo y no te complicas la vida