Server Shutdown

[Tutorial Bot]

Author: grimsk8ter11
Difficulty: 1/5

:: SERVER SIDE ::
In frmServer, add:

Code:

Private Sub Form_Load()
    ShutOn = False
End Sub

Replace the tmrShutdown_Timer sub with:[code]Private Sub tmrShutdown_Timer()
Static Secs As Long

If ShutOn = False Then
Secs = 30
Call TextAdd(frmServer.txtText, "Automated Server Shutdown Canceled!", True)
Call GlobalMsg("Server Shutdown Canceled!", BrightBlue)
tmrShutdown.Enabled = False
Exit Sub
End If
If Secs