~Odnucaff~
Sargento
 Mensajes : 292
 Fecha de inscripción : 09/05/2011
 Edad : 112
 Localización : En La Compu
 Sexo : 
 |  Tema: Estado del servidor Automatico  Lun Mayo 30, 2011 6:26 pm | |
| Bueno este es automatico suponganse que entro y me dice que el servidor esta Online y el servidor se cae y automaticamente se actualiza sin ninguna otra accion (Es muy sencillo).
Todo en el cliente:
1- Creamos un winsok llamado "Winsock1"
2-Buscamos en el Frm_Connect:
- Código:
-
Private Sub Form_load()
Y antes del Sub agregamos:
- Código:
-
If Winsock1.State <> sckClosed Then
Winsock1.Close
End If
Winsock1.Connect "Ip de su servidor", "Puerto de su servidor"
3- Ahora creamos un Label en el Frm_Connect llamado LblEstado.
4- Al final del Frm_Connect agregamos:
- Código:
-
Private Sub Winsock1_Connect()
LblEstado.ForeColor = vbGreen
LblEstado..Caption = "Online"
End Sub
Private Sub Winsock1_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 : Servers - Argentum |
|
Suranium
Principiante
Mensajes : 13
Fecha de inscripción : 14/05/2011
| | Tema: Re: Estado del servidor Automatico Lun Mayo 30, 2011 7:16 pm | |
| Buen aporte ~Odnucaff~, seguí así, ¡suerte!
Saludos. |
|
