Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Red Mx en 2 Agosto 2006, 19:28 pm



Título: [Ayuda] Conexiones multiples con winsock
Publicado por: Red Mx en 2 Agosto 2006, 19:28 pm
Que onda tengo una duda con las coneiones multiples con el winsock nunca loa via utilisado bueno el pedo esta asi

tengo 3 maquinas en una pongo el server y en las otras 2 el cliente como podria relisar la conexion con ambas sin interferir con la primera o seguna conexion

paro con el cable.

No entiendo como hacer eso  :huh:


Saludos y gracias.


Título: Re: [Ayuda] Conexiones multiples con winsock
Publicado por: elmaro en 2 Agosto 2006, 19:35 pm
una vez me dieron esta funcion
utiliza matrises,. fijate que los controles los carga nada mas,. no los descarga,.
espro te sirva,.

Código:
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




El MaRo!


Título: Re: [Ayuda] Conexiones multiples con winsock
Publicado por: Red Mx en 2 Agosto 2006, 21:36 pm
Sale men gracias voy aver que tal