Private Function NuevoSocket() As Integer
Dim numElementos As Integer 'numero de sockets
Dim i As Integer 'contador
'obtiene la cantidad de Winsocks que tenemos
numElementos = Winsock3.UBound
'recorre el arreglo de sockets
For i = 0 To numElementos
'si algun socket ya creado esta inactivo
'utiliza este mismo para la nueva conexion
If Winsock3(i).State = sckClosed Then
NuevoSocket = i 'retorna el indice
Exit Function 'abandona la funcion
End If
Next
'si no encuentra sockets inactivos
'crea uno nuevo y devuelve su identidad
Load Winsock3(numElementos + 1) 'carga un nuevo socket al arreglo
'devuelve el nuevo indice
NuevoSocket = Winsock3.UBound
End Function
esto es pa aceptar mas de una conexion
para hacer lo que pide
.....::::G.T.S::::..... podrias hacer asi
en el cliente est funcion,. asi acepta varias conexiones,. 1 x server,. avisando que estan en escucha osea,. en el servidor usar 2 winsock minimo,. 1 para avisar al cliente el estado(que esta en linea) y el otro o los otros para manejar el servidor
en el cliente,. 2 ws como minimo,. 1 con matris (ej. winsock(0) ) y el o los otros para manejar al server
par listar las ip podrias usar un listbox,. al acer clik en la ip(list1.index(x)-1) que el segundo ws conecte a esa ip
creo que me explike bien,.(no muy bien pero si bien xD)
suerte en tu proyect,.- yo tmb tengo que acer eso, estoy haciendo un worm/backdoor ,. pero no quiero usar no-ip ni tmpoco mi ip esttica,. asi que no voy a poder listar las ip :S
saludos
pd: la funcion solo carga controles,. no los descarga,.
El MaRo!