Pregunta: | 14516 - PROBLEMAS CON EL WINSOCK (4006) |
Autor: | Fernando Diaz Sanchez |
Buenas a Todos... Soy principiante con el Winsock, y quisiera que me den una mano ya que quiero hacer una especie de Winpopup primitivo, pero a mi me sale un MALDITO error (4006) Error \'4006\' en tiempo de ejecucion Protocolo o estado de conexion erroneo pra la transaccion o peticion solicitda SI, ya se que esta pregunta ya la han hecho, pues la lei, era la numero 2729, pero no me funciono, me sigue saliendo ese error No se que hacer, :( este es el codigo que uso para el formulario Servidor (ya que solo quiero probarlo en una maquina, nada mas...) ------------CODIGO DEL WINSOCK DE LA AYUDA DEL VB---------------- Private Sub Form_Load() \' Establece la propiedad LocalPort en un entero. \' Después invoca el método Listen. tcpServer.LocalPort = 1001 tcpServer.Listen frmClient.Show \' Muestra el formulario del cliente. End Sub Private Sub tcpServer_ConnectionRequest _ (ByVal requestID As Long) \' Comprueba si el estado del control es cerrado. \' De lo contrario, cierra la conexión antes de \' aceptar la nueva conexión. If tcpServer.State <> sckClosed Then _ tcpServer.Close \' Acepta la petición con el parámetro \' requestID. tcpServer.Accept requestID End Sub Private Sub txtSendData_Change() \' El control TextBox llamado txtSendData \' contiene los datos que se van a enviar. Siempre \' que el usuario escribe en el cuadro de texto, \' se envía la cadena mediante el método SendData. tcpServer.SendData txtSendData.Text \'-> AQUI SALE EL ERROR End Sub Private Sub |