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.
una vez me dieron esta funcion
utiliza matrises,. fijate que los controles los carga nada mas,. no los descarga,.
espro te sirva,.
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!
Sale men gracias voy aver que tal