Tengo 1 problema al conectar varias aplicaciones con el control winsock.
Resulta que acepta las conexiones, pero al mantenerlas me da error.
La primera conexion la acepta y sabe que esta conectada, pero cuando hay mas de una no se porque no la detecta y es cuando me da el error.
Este es el code
Código:
Private Sub tcpServer_ConnectionRequest(index As Integer, ByVal requestID As Long)
If index = 0 Then
intmax = intmax + 1
Load tcpServer(intmax)
tcpServer(intmax).LocalPort = 666
tcpServer(intmax).Accept requestID
List1.AddItem tcpServer(intmax).RemoteHostIP '' añade las ips a 1 listbox
End If
End Sub
Código:
Private Sub Timer1_Timer()
For i = 0 To intmax
If tcpServer(i).State <> 7 And tcpServer(i).State <> 6 Then
Debug.Print tcpServer(i).State
GoTo n
Else
tcpServer(i).Close
tcpServer(i).Listen
End If
n:
Next i
End Sub
Puede echarme alguien 1 mano ?
Gracias