si...
no se lo que pasa con ese codigo ,. loa probe y no se que seyo
te paso mi metodo,. como lo uso yo
esto es simple,... en el boton de conectar le agregas este codigo para que te muestre si esta conectando
lugo pones esto.. cuadno el winsock coanecta se adispara este evento,. le agregas que te avisea en un label
para que te avise cuadno esta desconectado si TU mismo lo desconectas con el boton que utilizas para desconectar...pon esto en el boton para desconectar
ahora si kieres que te avise cuando se desconecta xq el servidor se cerro x algun problema o xq lo cerro el usuario de la pc remota,utiliza el evento winsock_close() que te se dispara cuando la conexión se pierde
esto no se si lo autilizaras pero lo pongo igua,. se dispara cauando se produce algun error
espero que te aya servido lo que te puse,. si no entiendes algo(lo dudo,. xq esta clarito
) me preguntas y te contesto
suerte man
El MaRo!
no se lo que pasa con ese codigo ,. loa probe y no se que seyo
te paso mi metodo,. como lo uso yo
esto es simple,... en el boton de conectar le agregas este codigo para que te muestre si esta conectando
Código [Seleccionar]
If ws.State = 6 Then
label_status.Caption = "Conectando..."
End If
lugo pones esto.. cuadno el winsock coanecta se adispara este evento,. le agregas que te avisea en un label
Código [Seleccionar]
Private Sub ws_Connect()
label_status.Caption = "******* Conexion Establecida *******"
End Sub
para que te avise cuadno esta desconectado si TU mismo lo desconectas con el boton que utilizas para desconectar...pon esto en el boton para desconectar
Código [Seleccionar]
Private Sub cmd_desconectar_Click() 'commandbuttom que desconecta
ws.Close
label_status = "******* Conexion Cerrada *******"
End Sub
ahora si kieres que te avise cuando se desconecta xq el servidor se cerro x algun problema o xq lo cerro el usuario de la pc remota,utiliza el evento winsock_close() que te se dispara cuando la conexión se pierde
Código [Seleccionar]
Private Sub ws_Close()
ws.Close 'tambien cierra tu socket para que no te de error y se te congele la aplicacion en modo de diseño
label_status = "******* Conexion Perdida *******"
End Sub
esto no se si lo autilizaras pero lo pongo igua,. se dispara cauando se produce algun error
Código [Seleccionar]
Private Sub ws_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Se ha producido el siguiente error numero " & Number & Description, vbCritical
End Sub
espero que te aya servido lo que te puse,. si no entiendes algo(lo dudo,. xq esta clarito

suerte man
El MaRo!