Aca esta el programa lo hice para ver el estado del winsock.
Una vez que esta conectado el estado tendria que ser 7 = sckConnected pero cuando se conecta el estado es 6 = sckConnecting. ¿Esto es asi o el codio tiene algun problema?
Apesar de que esta en 6 y no en 7 manda los datos igual.
Aca el codigo:
Private Sub Command1_Click()
Dim dato As String
dato = Text1.Text
send.SendData dato
End Sub
Private Sub Command2_Click()
listen.LocalPort = 9000
listen.listen
End Sub
Private Sub Command3_Click()
send.RemoteHost = "127.0.0.1"
send.RemotePort = 9000
send.Connect
Label2.Caption = send.State
End Sub
Private Sub listen_ConnectionRequest(ByVal requestID As Long)
listen.Close
listen.Accept requestID
End Sub
Private Sub listen_DataArrival(ByVal bytesTotal As Long)
Dim data As String
listen.GetData data
Label1.Caption = data
End Sub
send.RemoteHost = "127.0.0.1"
send.RemotePort = 9000
send.Connect
Label2.Caption = send.State
En ese momento el estado es 7, pero porque no le das tiempo. Si le pones que te ponga en el label el estado un tiempo despues, el estado debe de ser 6. Por cierto, en el evento click del command2 y command3, yo pondría antes de nada
send.close
ya que si le das dos veces te va a dar error porque el socket se está usando, y antes debes de cerrarlo. ;)