DevClub


Você não está conectado. Conecte-se ou registre-se

Photo

Desligamento do servidor modificado

Ver o tópico anterior Ver o tópico seguinte Ir para baixo  Mensagem [Página 1 de 1]

Renanr

Renanr
Novato
Eae gente, esse sistema é simples, eu fiz ele aqui e vim disponibilizar pra vocês.

Abra o Server~Side, na frmServer, na aba Painel de Controle/Control Panel, procure pelo botão "Desligar"(Command1). Bem embaixo dele adicione um HScroll. e do lado do Scroll ponha uma label chamada "lblshutdown". (Sem aspas). Ponha nas propriedades da lblShutdown o Max de segundos a serem escolhidos, e o mínimo! Aqui eu pus 1 minimo e 100 máximo. Agora, de dois cliques no HScroll e adicione:
Código:
lblShutdown.Caption = HScroll1.Value

Agora de dois cliques no botão Desligar (Command1) Aparecendo a sub:
Código:
Private Sub Command1_Click()

Mude ela toda para:
Código:
Private Sub Command1_Click()
Dim CTZ As Long
CTZ = MsgBox("Tem certeza de que deseja desligar em " & lblShutdown.Caption & " segundos?", vbYesNo, frmServer.Caption)
    If CTZ = vbYes Then
    Call SendDataToAll("sound" & SEP_CHAR & "ServidorDesligando" & END_CHAR)

    If tmrShutdown.Enabled = False Then
        tmrShutdown.Enabled = True
    End If
    Else
    Exit Sub
    End If
End Sub

Agora na sub do tmrShutdown:
Código:
Private Sub tmrShutdown_Timer()

Mude a sub toda para:
Código:
Private Sub tmrShutdown_Timer()
    tatic Secs As Long

    If Secs <= 0 Then Secs = lblShutdown.Caption
    hutdownTime.Caption = "Desligar em " & Secs & " segundos."

    If Secs = 30 Then Call TextAdd(frmServer.txtText(0), "Desligamento automático do Servidor em " & Secs & " segundos.", True)
    If Secs = 30 Then Call GlobalMsg("Desligamento do Servidor em " & Secs & " segundos.", BrightBlue)
    If Secs = 25 Then Call GlobalMsg("Desligamento do Servidor em " & Secs & " segundos.", BrightBlue)
    If Secs = 20 Then Call GlobalMsg("Desligamento do Servidor em " & Secs & " segundos.", BrightBlue)
    If Secs = 15 Then Call GlobalMsg("Desligamento do Servidor em " & Secs & " segundos.", BrightBlue)
    If Secs = 10 Then Call GlobalMsg("Desligamento do Servidor em " & Secs & " segundos.", BrightBlue)
    If Secs < 6 Then
        Call GlobalMsg("Desligamento do Servidor em " & Secs & " segundos.", BrightBlue)
    End If
    ecs = Secs - 1

    If Secs <= 0 Then
        tmrShutdown.Enabled = False
        Call DestroyServer
    End If
End Sub

É isso aí! Um sistema bem simples galera..

Créditos: RenanR - Por criar o sistema, e postar.

Ver o tópico anterior Ver o tópico seguinte Ir para o topo  Mensagem [Página 1 de 1]

Tópicos semelhantes

-

» Servidor em manutenção

Permissões neste sub-fórum
Não podes responder a tópicos