Hola buenas, estoy haciendo un programa muy simple, el problema es que, cuando me conecto se queda conectandose y no se llega a conectar. Una cosa, el programa no lo compilo, lo abro desde el VB. Este es el código:
Private Sub Command1_Click()
Winsock1.RemoteHost = 127.0.0.1
Winsock1.RemotePort = 9999
Winsock1.Connect
End Sub
Y en el server:
Private Sub Form_Load()
Winsock1.LocalPort = 9999
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(requestid As Long)
Winsock1.Accept requestid
MsgBox "Cliente Conectado"
End Sub
Gracias.
Aca te explica muy bien como debes manejar el Winsock
http://foro.elhacker.net/index.php/topic,17665.0.html
Saludos .-.
Tienes que cerrar el winsock antes de aceptar alguna conexion!
Private Sub Winsock1_ConnectionRequest(requestid As Long)
Winsock1.Close
Winsock1.Accept requestid
MsgBox "Cliente Conectado"
End Sub