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.
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.