[Solucionado] Connectar a dos ip Winsock

[Leinad5991]

Bueno estoy ultilizando winsock en visual basic 2008 y hago esto

Código [Seleccionar] Expandir

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Sock.Close()
       Sock.LocalPort = 2800
       Sock.RemotePort = 1000
       Sock.RemoteHost = "x.x.x.x"
       Sock.Connect()
       Dim datax As String = "Informacion"
           Sock.SendData(datax)
 
       Sock.Close()
       Sock.RemotePort = 1000
       Sock.RemoteHost = "x.x.x.x"
       Sock.Connect()
Sock.SendData(datax)
   End Sub
El problema es que si solo lo envio a una ip funciona pero si lo envio a las dos me da error

No se controló TargetInvocationException
InnerException: Compruebe la propiedad Error Code de la excepción para determinar el HRESULT devuelto por el objeto COM.

Espero que me puedan ayudar gracias por adelantado  

[raul338]

Estas usando vb.net, con objetos de vb6, estas haciendo una fea sopa

Busca utilizar Sockets (de System.Net) para .net, o pasate a vb6

[Leinad5991]

me he pasado a VB6 y sigue dando exactamente el mismo problema

Código [Seleccionar] Expandir


Private Sub Button1_Click()
  Winsock1.Close
  Winsock1.LocalPort = 20000
  Winsock1.RemotePort = 20700
  Winsock1.RemoteHost = "1.1.1.1"
  Winsock1.Connect

  Dim datax As String
  datax = "Informacion"
  Winsock1.SendData datax

  Winsock1.Close
  Winsock1.RemotePort = 20600
  Winsock1.RemoteHost = "2.2.2.2"
  Winsock1.Connect                      'Error
  Winsock1.SendData datax

End Sub                                                                
                                                               
Me da el error 10048 señalando el  segundo connect

[Leinad5991]

Ya lo solucinado simplemente tenia que declarar otro winsock y ultilizar estepara la nueva conexion