Tras haber estudiado un poco mas como funcionan estos programas y conseguir con exito que funcione en 1-1 necesito ver como hacerlo multiconexion.
Con esto me refiero
Quiero que el cliente se parezca al del poison ivy
Que tenga un listbox con las personas que se van conectando, el chiste era que en el momento del connectionrequest se añadiese la WS.RemoteHostIP al list box, despues para comprobar que no repitiese la ip le puse este codigo
Código: Seleccionar todo
Dim n As Integer
Private Sub Form_Load()
Winsock1.Listen
n = 0
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If List1.List(n) = List1.List(n - 1) Then
Else
List1.AddItem Winsock1.RemoteHostIP, n
n = n + 1
End If
End Sub
suma 1 al index, pero no se no funciona...
Tambien probe con esto
Código: Seleccionar todo
If List1.List(n) = Winsock1.RemoteHostIP ThenMe estoy trabando mucho con el cliente, si alguien se ofrece a ayudarme en messenger o a traves de algun mp o algo se lo agradeceria mucho, en todo caso cualquier idea es bienvenida.
Thanks
