[ALL]Mudar Senha Pelo Mainmenu

Código:

    frmNewPass.Show , frmMainMenu

Código:

' Menu states
Public Const MENU_STATE_NEWACCOUNT = 0
Public Const MENU_STATE_DELACCOUNT = 1
Public Const MENU_STATE_LOGIN = 2
Public Const MENU_STATE_GETCHARS = 3
Public Const MENU_STATE_NEWCHAR = 4
Public Const MENU_STATE_ADDCHAR = 5
Public Const MENU_STATE_DELCHAR = 6
Public Const MENU_STATE_USECHAR = 7
Public Const MENU_STATE_INIT = 8

Código:

Public Const MENU_STATE_NEWPASS = 9

Código:

Case MENU_STATE_USECHAR
            frmChars.Hide
            frmMainMenu.Hide
            If ConnectToServer = True Then
                Call SetStatus("Conectado, enviando dados do personagem...")
                Call SendUseChar(frmChars.lstChars.ListIndex + 1)
            End If

Código:

        Case MENU_STATE_NEWPASS
            frmNewPass.Visible = False
            If ConnectToServer = True Then
                Call SetStatus("Conectado, enviando pedido de mudança de senha...")
                Call SendNewPass(frmNewPass.txtName.Text, frmNewPass.txtOldPass.Text, frmNewPass.txtNewPass.Text, frmNewPass.txtNewPass2.Text)
            End If

Código:

    ' ::::::::::::::::::::::::::
    ' :: Plain message packet ::
    ' ::::::::::::::::::::::::::
    If Parse(0) = "plainmsg" Then
        frmSendGetData.Visible = False
        n = Val(Parse(2))
       
        If n = 1 Then frmNewAccount.Show , frmMainMenu
        If n = 2 Then frmDeleteAccount.Show , frmMainMenu
        If n = 3 Then frmLogin.Show , frmMainMenu
        If n = 4 Then frmNewChar.Show , frmMainMenu
        If n = 5 Then frmChars.Show , frmMainMenu
       
        Msg = Parse(1)
        Call MsgBox(Msg, vbOKOnly, GAME_NAME)
        Exit Sub
    End If

Código:

    ' ::::::::::::::::::::::::::
    ' :: Plain message packet ::
    ' ::::::::::::::::::::::::::
    If Parse(0) = "plainmsg" Then
        frmSendGetData.Visible = False
        n = Val(Parse(2))
       
        If n = 1 Then frmNewAccount.Show , frmMainMenu
        If n = 2 Then frmDeleteAccount.Show , frmMainMenu
        If n = 3 Then frmLogin.Show , frmMainMenu
        If n = 4 Then frmNewChar.Show , frmMainMenu
        If n = 5 Then frmChars.Show , frmMainMenu
        If n = 9 Then frmNewPass.Show , frmMainMenu
       
        Msg = Parse(1)
        Call MsgBox(Msg, vbOKOnly, GAME_NAME)
        Exit Sub
    End If

Código:

Sub SendDelAccount(ByVal Name As String, ByVal Password As String)
Dim Packet As String
   
    Packet = "delimaccounted" & SEP_CHAR & Trim(Name) & SEP_CHAR & Trim(Password) & END_CHAR
    Call SendData(Packet)
End Sub

Código:

Sub SendNewPass(ByVal Name As String, ByVal OldPass As String, ByVal NewPass As String, ByVal NewPass2 As String)
Dim Packet As String

    Packet = "newpass" & SEP_CHAR & Trim(Name) & SEP_CHAR & Trim(OldPass) & SEP_CHAR & Trim(NewPass) & SEP_CHAR & Trim(NewPass2) & END_CHAR
    Call SendData(Packet)
End Sub

Código:

    If txtName.Text = vbNullString Or txtOldPass.Text = vbNullString Or txtNewPass.Text = vbNullString Or txtNewPass2.Text = vbNullString Then
        MsgBox "Há campos em branco!", , GAME_NAME
        Exit Sub
    End If
   
    Call MenuState(MENU_STATE_NEWPASS)
    Unload Me

Código:

    Me.Hide

Código:

            Case "delimaccounted"

                If Not IsLoggedIn(Index) Then
                    Name = Parse(1)
                    Password = Parse(2)

                    If Not AccountExist(Name) Then
                        Call PlainMsg(Index, "Essa conta não existe.", 2)
                        Exit Sub
                    End If

                    If Not PasswordOK(Name, Password) Then
                        Call PlainMsg(Index, "Senha incorreta.", 2)
                        Exit Sub
                    End If

                    Call LoadPlayer(Index, Name)

                    For i = 1 To MAX_CHARS

                        If Trim$(Player(Index).Char(i).Name) <> vbNullString Then
                            Call DeleteName(Player(Index).Char(i).Name)
                        End If

                    Next

                    Call ClearPlayer(Index)
                    Call Kill(App.Path & "\Contas" & Trim$(Name) & ".ini")
                    Call AddLog("Conta " & Trim$(Name) & " foi deletada.", PLAYER_LOG)
                    Call PlainMsg(Index, "Sua conta foi deletada.", 2)
                End If

                Exit Sub


Código:

            ' ::::::::::::::::::::::::::::::::::::
            ' :: Packet de Mudança de senha, dã ::
            ' ::::::::::::::::::::::::::::::::::::
            Case "newpass"
           
                If Not IsLoggedIn(Index) Then
                    Name = Parse(1)
                    OldPass = Parse(2)
                    NewPass = Parse(3)
                    NewPass2 = Parse(4)
               
                    If UBound(Parse) < 4 Then Exit Sub
               
                    If OldPass <> GetOffPlayerPass(Name) Then
                        Call PlainMsg(Index, "A senha atual da conta não corresponde com a digitada!", 9)
                        Exit Sub
                    End If
                   
                    If NewPass <> NewPass2 Then
                        Call PlainMsg(Index, "A nova senha digita não corresponde com a confirmação da mesma!", 9)
                        Exit Sub
                    End If
                   
                    If AccountExist(Name) Then
                        Call SetOffPlayerPass(Name, NewPass)
                        Call PlainMsg(Index, "A senha da sua conta foi mudada com sucesso.", 3)
                        Call CloseSocket(Index)
                    Else
                        Call PlainMsg(Index, "Desculpe, essa conta não existe!", 9)
                    End If
                End If

                Exit Sub

Código:

Function GetOffPlayerPass(ByVal Name As String) As String
    GetOffPlayerPass = GetVar(App.Path & "\Contas" & Trim$(Name) & ".ini", "GENERAL", "Password")
End Function

Sub SetOffPlayerPass(ByVal Name As String, _
    ByVal Pass As String)
    Call PutVar(App.Path & "\Contas" & Trim$(Name) & ".ini", "GENERAL", "Password", Pass)
End Sub

Código:

Sub HandleData(ByVal Index As Long, ByVal Data As String)
    Dim Parse() As String ' MODO DE SEGURANÇA -- "Descomente" para DESLIGÁ-LO, comente para LIGÁ-LO
    Dim Name As String
    Dim Password As String
    Dim Sex As Long
    Dim Class As Long
    Dim CharNum As Long
    Dim Msg As String
    Dim MsgTo As Long
    Dim Dir As Long
    Dim InvNum As Long
    Dim Amount As Long
    Dim Damage As Long
    Dim PointType As Byte
    Dim PointQuant As Integer
    Dim Movement As Long
    Dim i As Long, N As Long, x As Long, y As Long, f As Long
    Dim MapNum As Long
    Dim s As String
    Dim ShopNum As Long, ItemNum As Long
    Dim DurNeeded As Long, GoldNeeded As Long
    Dim z As Long
    Dim Packet As String
    Dim o As Long

Código:

    Dim OldPass As String
    Dim NewPass As String
    Dim NewPass2 As String


Não, Acontece o mesmo Erro,e Fiz o Tutorial Exatamente como está ai...

Ate o Sistema da Perfect Engine do Lukas Ta com esse Erro!