Bom diferente do que já foi postado aki,esse fazer uma checkagem de 2 em 2 segundos para ver se o servidor está ou não está realmente online.
Ex:o adm está ligando o servidor mais você já esta com o client aberto,se você tiver com o outro sistema de on/off e o adm ligar o servidor depois que o seu client está aberto continuará off,já com esse não só esperar 2 segundos que fica online sem relogar sem nada.
Então vamos lá.
Crie uma label com as seguintes config:
Um timer:
agora dê duplo click no timer e dentro dele coloque:
Creditos:
Sakuray
Guifs
Ex:o adm está ligando o servidor mais você já esta com o client aberto,se você tiver com o outro sistema de on/off e o adm ligar o servidor depois que o seu client está aberto continuará off,já com esse não só esperar 2 segundos que fica online sem relogar sem nada.
Então vamos lá.
Crie uma label com as seguintes config:
- Código:
name:lblonoff
Caption:Offline
ForeColor:&H000000FF&,(vermelhor)
Um timer:
- Código:
Name:Timer1
Interval:2000
agora dê duplo click no timer e dentro dele coloque:
- Código:
If ConnectToServer(1) Then 'verifica a conexão com o servidor
lblonoff.Caption = "Online" ' Muda a caption para online caso o server esteja online
lblonoff.ForeColor = &HFF00& 'Muda a cor para vermelho
Else 'Caso A conecção não seja sucedida
lblonoff.Caption = " Offline" 'Muda a o (caption)nome do label para Offline
lblonoff.ForeColor = &HFF& 'muda a cor para verde
End If ' Finaliza o Codigo da conexão.
Creditos:
Sakuray
Guifs
Última edição por Guifs em Sex Jun 28, 2013 5:23 pm, editado 1 vez(es)