conexion multiple con un solo Winsock???

[Dekodex]

Como le hago para hacer varias conexiones con un solo winsock, es decir tengo 2 IP y quiero conectarme con las 2 con un solo winsock....alg uien sabe, Gracias...

[pascual1]

en la propieda index del contror Winsock1 tienes que poner 0 
Dim cuenta As Integer


Private Sub Form_Load()
Winsock1(0).Listen
End Sub

Private Sub Winsock1_Conne ctionRequest(Index As Integer, ByVal requestID As Long)
cuenta = cuenta + 1
Load Winsock1(cuenta)
Winsock1(cuenta).Accept requestID
End Sub

Private Sub Winsock1_DataA rrival(Index As Integer, ByVal bytesTotal As Long)
Winsock1(Index).GetData datos
End Sub


Private Sub Command1_Click()
Winsock1(1).SendData "hola"
End Sub

[pascual1]

si lo que quieres en realidad es conectalte a 2 sevidores  pues utilisa el
siguente

como dige anteriormente tienes que poner la propiedad del contro Winsock1  index en 0
Private Sub Command3_Click()
Load Winsock1(1)   'esta linea lo que ase es cargar otro Winsock1 a partir de uno si                        quieres que cargue otro pon un (2) i asi susesibamente
End Sub

Private Sub Command1_Click()
Winsock1(0).Connect "10.0.0.60", 5567
End Sub

Private Sub Command2_Click()
Winsock1(1).Connect "10.0.0.60", 5568
End Sub

espero entiendas

[Dekodex]

Ok, muchas gracias.... aunque ya habia encontrado un codigo fuente con los mismo procedimientos que mostraste... de todas maneras gracias...

[Dj_Dexter]

Te pasastes esta re bueno