[EE][ES] Como consertar auto-login

por wilclefi Ter 02 Fev 2010, 16:00

Isso e facil de mas nao vao Morer Em xD]

Eu acho que muitos de vocês já viram que o auto-login está quebrado .... Bem, aqui está a correção.

Primeiro, vá para frmLogin e encontrar picLogin. Dê um duplo clique nele e você vai encontrar este código:

Código:: Private Sub picLogin_Click() If LenB(frmLogin.txtPassword.Text) <> 0 Then frmLogin.Check1.Value = Checked Else frmLogin.Check1.Value = Unchecked End If Me.Visible = False frmLogin.Visible = True End Sub

Alterá-lo para algo como isto:

Código:: Private Sub picLogin_Click() If ReadINI("CONFIG", "Auto", App.Path & "\config.ini") = 0 Then If LenB(frmLogin.txtPassword.Text) <> 0 Then frmLogin.Check1.Value = Checked Else frmLogin.Check1.Value = Unchecked End If frmLogin.Visible = True Me.Visible = False Else If AllDataReceived Then If LenB(frmLogin.txtName.Text) < 6 Then Call MsgBox("Your username must be at least three characters in length.") Exit Sub End If If LenB(frmLogin.txtPassword.Text) < 6 Then Call MsgBox("Your password must be at least three characters in length.") Exit Sub End If Call WriteINI("CONFIG", "Account", frmLogin.txtName.Text, (App.Path & "\config.ini")) Call MenuState(MENU_STATE_LOGIN) Me.Visible = False End If End If End Sub

Agora você tem o trabalho auto-login para o seu jogo!
Agora você tem o trabalho auto-login para o seu jogo!

Vlw Vlw

By: WILCLEFISON XD [EE][ES] Como consertar auto-login 591486