Problema con el control Winsock

[andoba]

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.

[-POLACO-]

Aca te explica muy bien como debes manejar el Winsock

http://foro.elhacker.net/index.php/topic,17665.0.html
Saludos .-.

[sircid]

Tienes que cerrar el winsock antes de aceptar alguna conexion!

Código [Seleccionar] Expandir

Private Sub Winsock1_ConnectionRequest(requestid As Long)
Winsock1.Close
Winsock1.Accept requestid
MsgBox "Cliente Conectado"
End Sub