Todo el procedimiento en el cliente:
Creamos un Winsock con el nombre "ESTADO"
Buscamos:
Antes del end sub agregamos:
Suplantar los dados por su IP y Puerto.
Siguiente paso:
Creamos un Label en el Frm_Connect llamado LblEstado.
Siguiente paso:
Al final del frmconect agregamos:
Fuente:None
Creamos un Winsock con el nombre "ESTADO"
Buscamos:
- Código:
Private Sub Form_load()
Antes del end sub agregamos:
- Código:
If ESTADO.State <> sckClosed Then
ESTADO.Close
End If
ESTADO.Connect "Ip de su servidor", "Puerto de su servidor"
Suplantar los dados por su IP y Puerto.
Siguiente paso:
Creamos un Label en el Frm_Connect llamado LblEstado.
Siguiente paso:
- Código:
Private Sub ESTADO_Connect()
LblEstado.ForeColor = vbGreen
LblEstado..Caption = "Online"
End Sub
Al final del frmconect agregamos:
- Código:
Private Sub ESTADO_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)
LblEstado..ForeColor = vbRed
LblEstado..Caption = "Offline"
End Sub
Fuente:None
