Estado del servidor en el cliente

    Comparte
    avatar
    Elaine

    TEMPLARIO


    TEMPLARIO

    PJ :
    Nombre : Elaine
    Monedas de Oro172
    Mana :
    0 / 9000 / 900

    Vida :
    100 / 100100 / 100

    Premios :
    Mensajes : 38
    Edad : 27
    Llegada : 23/08/2010
    Femenino

    Estado del servidor en el cliente

    Mensaje por Elaine el Lun Ago 23, 2010 11:18 pm

    Todo el procedimiento en el cliente:

    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
    avatar
    SuaveChiTow.-

    TEMPLARIO ESTRELLA


    TEMPLARIO ESTRELLA

    PJ :
    Nombre : SuaveChitOw.-
    Monedas de Oro-2261
    Mana :
    900 / 900900 / 900

    Vida :
    100 / 100100 / 100

    Premios :
    Mensajes : 132
    Edad : 27
    Llegada : 25/11/2008
    Masculino

    Re: Estado del servidor en el cliente

    Mensaje por SuaveChiTow.- el Lun Ago 23, 2010 11:19 pm

    ¨Pone los qe puse recien en el th cn todo los cleintes y demas!
    avatar
    Elaine

    TEMPLARIO


    TEMPLARIO

    PJ :
    Nombre : Elaine
    Monedas de Oro172
    Mana :
    0 / 9000 / 900

    Vida :
    100 / 100100 / 100

    Premios :
    Mensajes : 38
    Edad : 27
    Llegada : 23/08/2010
    Femenino

    Re: Estado del servidor en el cliente

    Mensaje por Elaine el Mar Ago 24, 2010 5:11 pm

    Ya esta todo agregado. Wink

    Contenido patrocinado

    Re: Estado del servidor en el cliente

    Mensaje por Contenido patrocinado


      Fecha y hora actual: Miér Mayo 23, 2018 3:53 pm