Deixar Online/Offline automaticamente

' Copyright (c) 2009 - Elysium Source. Alguns direitos reservados.
' Tradução e revisão por MMODEV Brasil @ [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
' Este código está licensiado sob a licença EGL.

Option Explicit

Private Sub Form_Load()
Dim I As Long
Dim Ending As String
Dim Packet As String
For I = 1 To 3
If I = 1 Then Ending = ".gif"
If I = 2 Then Ending = ".jpg"
If I = 3 Then Ending = ".png"

Next I

txtName.Text = Trim(GetVar(App.Path & "\config.ini", "CONFIG", "Conta"))
txtPassword.Text = Trim(GetVar(App.Path & "\config.ini", "CONFIG", "Senha"))
If Trim(txtPassword.Text) <> vbNullString Then
Check1.Value = Checked
Else
Check1.Value = Unchecked
End If

frmMainMenu.lblPlayers.Visible = True
frmMainMenu.lblPlayers.Caption = "Pegando Informações..."

If ConnectToServer = True Then
frmLogin.lblOnOff.Caption = "Offline"
frmLogin.lblPlayers.Visible = False
End If

End If
wmpMenuMusic.URL = App.Path & "\Músicas\Menu.mp3"


End Sub
Private Sub Label1_Click()
frmNewPass.Show , frmMainMenu
End Sub

Private Sub lblOnOff_Click()

End Sub

Private Sub lblRecup_Click()
fmrRecuperar.Visible = True
End Sub

Private Sub picConnect_Click()
If Trim(txtName.Text) <> vbNullString And Trim(txtPassword.Text) <> vbNullString Then
If Len(Trim(txtName.Text)) < 3 Or Len(Trim(txtPassword.Text)) < 3 Then
MsgBox "Seu login e sua senha devem possuir, no mínimo, 3 caractéres."
Exit Sub
End If
Call MenuState(MENU_STATE_LOGIN)
Call PutVar(App.Path & "\config.ini", "CONFIG", "Conta", txtName.Text)
If Check1.Value = Checked Then
Call PutVar(App.Path & "\config.ini", "CONFIG", "Senha", txtPassword.Text)
Else
Call PutVar(App.Path & "\config.ini", "CONFIG", "Senha", "")
End If
End If
End Sub



Private Sub picNewAccount_Click()
frmNewAccount.Show , frmMainMenu
End Sub

Private Sub picDeleteAccount_Click()
Dim YesNo As Long

YesNo = MsgBox("Você quer mesmo deletar a sua conta?", vbYesNo, GAME_NAME)
If YesNo = vbYes Then
frmDeleteAccount.Show , frmMainMenu
End If
End Sub



Private Sub picQuit_Click()
Dim YesNo As Long
YesNo = MsgBox("Você tem certeza que deseja sair do jogo?", vbYesNo, GAME_NAME)
If YesNo = vbYes Then
MsgBox ("Obrigado pela preferência, volte sempre")
Call GameDestroy
End If
End Sub

Private Sub tmrInfo_Timer()
lblOnOff.Caption = "O Servidor está Offline"
lblPlayers.Visible = False
tmrInfo.Enabled = False
End Sub