Desligamento do Server Modificado

Convidado

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()
Static Secs As Long

If Secs <= 0 Then Secs = lblShutdown.Caption
ShutdownTime.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
Secs = 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.

» Server de Pokemon PFO V1.5 [DOWNLOAD Server + Client]
» Criando um server
» Criando Server Non-Steam
» Instalar SQL Server 2000
» Pokemon Tibia Server 8.54