SoloCodigo

Hola, estoy haciendo una aplicacion winsock y todo lot enia funcionando ok, tengo el programa servidor perfecto porque antes funcionaba con otra aplicacion y es un exe que no lo he cambiado , por lo que estoy seguro que el problema es el cliente, estaba funcionando y edspues le csmbie unas cositas ero al volverlas como estaban no funciona, bueno as configuracioen son estas:

Winsock 1

Localport: 888
RemotePort : 888

en los codigos tengo:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
   
   Dim datos As String

   Text1.Text = Text1.Text + datos
   Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    Winsock1.GetData datos

End Sub

Private Sub Command4_Click()
Winsock1.RemoteHost = Text1.Text
Winsock1.Connect
Dim enviar As String
    enviar = Winsock1.LocalIP & "   " & Label1.Caption & Label2.Caption & Label3.Caption
    Winsock1.SendData enviar
End Sub

Cuando apreto el command 4 sale un error que dicee Run.time '40006':
Wrong protocol or connection state for the requested transaction or request y si pongo debug sale  Winsock1.SendData enviar en amarillo....

     ayudenmeee

despues del connect el winsock realiza una serie de operaciones por las cuales "tarda" un poco en conectarse realmente por lo tanto tenes que darle un tiempo.. cuanto?:

Código: Text

1.  
2. Do While winsock1.state <> sckConnected or winsock1.state <> sckError
3.   doevents
4. Loop
5.  
6.  

Ya no sale el error pero l problema es que ese rror lo da porque no lo pueed enviar y no envia anda