Título: Estado del winsock Publicado por: hentei en 30 Enero 2006, 17:24 pm 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 Título: Re: Estado del winsock Publicado por: sch3m4 en 30 Enero 2006, 17:30 pm Código: send.RemoteHost = "127.0.0.1" 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 Código: 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. ;) |