[APORTE] Mostrar Estado del Servidor

Tema: [APORTE] Mostrar Estado del Servidor Miér Oct 29, 2008 1:59 am

Hola a todos, les voy a pasar una code para colocar una ventana de Offline u Online para saber cuando el estado de tu Servidor
Version: Mod FenixAO

Programacion en el CLIENTE:

Elementos necesarios para realizarlo:
-Un label con el nombre "ONOFF"
-Un Winsocket

Como colocar un WinSocket:

Ir a Options > Components (Si tienen una version en Castellano, Opciones > Componentes)
[APORTE] Mostrar Estado del Servidor Paso1co7

[APORTE] Mostrar Estado del Servidor Paso1co7

Buscar la Opcion Microsoft WinSock Control 6.0, tildarla en caso q no lo este, y luego hagan click en Aceptar

[APORTE] Mostrar Estado del Servidor Paso2gu1

[APORTE] Mostrar Estado del Servidor Paso2gu1

Luego, para finalizar, a un costado del Formulario, en las herramientas, se encuentra un icono con 2 PCs conectadas, seleccionenlo y coloquenlo en el Formulario

[APORTE] Mostrar Estado del Servidor Paso3uu4

[APORTE] Mostrar Estado del Servidor Paso3uu4

Con esto ya terminado, pueden continuar con la codificacion, que sigue acontinuacion:

Colocar esto en el frmINTRO o en cualquier formulario que quieran que aparecezca el Estado!

Código:: 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)
onoff.ForeColor = vbRed
onoff.Caption = "OFFLINE"
Winsock1.Close
End Sub
Private Sub Winsock1_Connect()
onoff.ForeColor = vbGreen
onoff.Caption = "ONLINE"
Winsock1.Close
End Sub

Luego, coloca esto en el Form_Load de tu Formulario

Código:: If Winsock1.State <> sckClosed Then
Winsock1.Close
End If
Winsock1.Connect "ip", "puerto"
End Sub

Espero que les Sirva.

Atte,
Rakaaa

Tema: Re: [APORTE] Mostrar Estado del Servidor Miér Oct 29, 2008 2:02 am

espicifica para que version son los codigos

Saludos

PD: en los otros codes tambien

Tema: Re: [APORTE] Mostrar Estado del Servidor Miér Oct 29, 2008 2:07 am

Aclarados. Saludos.

Atte,
Rakaaa

» [APORTE] Ullathorpe Modificada
» [APORTE] Anti-Engine
» [APORTE]Todos los ao y sus versiones
» [APORTE] Cambio de Resolucion en la Intro
» [APORTE] Iniciando juego con sonido WAV en vez del Clasico Midi