por lo que pides deduzco que tu cliente no es aun para conexiones multiples... debes saber que mas adelante ya debes etsar pensando en aceptar a todas la peticiones que llegen a tu cliente, es decir multiconexion inversa.
Yo mucho antes pase por lo mismo y como te dijeron pues la solucion es esa, aki esta:
esta funcion booleana recibe la IP a verificar, si ya esta en el List1 entonces devuelve falso y si no verdadero
Function enLista1(cIP As String) As Boolean
Dim g
For g = 0 To List1.ListCount
If cIP = List1.List(g) Then
enLista1 = True
Exit For
Else
enLista1 = False
End If
Next
End Function
asi de simple, ahora como lo vas a usar:
en el conecction request de tu cliente
If enLista1(Ws.RemoteHostIP) = False Then
List1.AddItem Ws.RemoteHostIP
End If
este codigo lo saque de una version muuuy antigua de mi cliente, como te decia tienes que evolucionar eso si poco a poco.
un saludo!
Autor
En línea
