[ED]Mudar o name no MainMenu

por Lucas Roberto Sáb 26 Fev 2011, 18:01

Crie no frmMainMenu um botão com
(Name): cmdnewname
Caption: Muda Name

dentro do cmdnewname coloque esse codigo:

Código:: If Frmnewname.Visible = True Then Frmnewname.Visible = False Else Frmnewname.Visible = True End If End If

Crie uma Form com

(Name): Frmnewname
Caption: Mudar Name

Dentro do Form Crie Quatro TextBox

1°TextBox
(Name):txtName

2°TextBox
(Name):txtOldpass

3°TextBox
(Name):txtNewName

4°TextBox
(Name):txtNewName2

Crie dois CommandButton

1°CommandButton
(Name):cmdtrocar

2°CommandButton
(Name):cmdcanselar

no cmdtrocar de dois Clique e coloque esse codigo:

Código:: If txtName.Text = vbNullString Or txtOldpass.Text = vbNullString Or txtNewName.Text = vbNullString Or txtNewName2.Text = vbNullString Then MsgBox "Há campos em branco!", , GAME_NAME Exit Sub End If Call MenuState(MENU_STATE_NEWNAME) Unload Me

e no cmdcanselar de dois Clique e coloque esse codigo:

Código:: Frmnewname.Visible = False

procure por:

Código:: Case MENU_STATE_USECHAR

abaixo coloque:

Código:: Case MENU_STATE_NEWNAME Frmnewname.Visible = False If ConnectToServer = True Then Call SetStatus("Conectado, enviando pedido de mudança de Name...") Call SendNewname(frmNewName.txtName.Text, frmNewName.txtOldPass.Text, frmNewName.txtNewName.Text, frmNewPass.txtNewName.Text) End If

Procure por:

Código:: ' Menu states

no final coloque:

Código:: Public Const MENU_STATE_NEWNAME = 9

procure por:

Código:: Sub SendDelAccount(ByVal Name As String, ByVal Password As String)

abaixo coloque

Código:: Sub SendNewName(ByVal Name As String, ByVal OldPass As String, ByVal NewName As String, ByVal NewName2 As String) Dim Packet As String Packet = "newname" & SEP_CHAR & Trim(Name) & SEP_CHAR & Trim(OldPass) & SEP_CHAR & Trim(NewName) & SEP_CHAR & Trim(NewName) & END_CHAR Call SendData(Packet) End Sub

No Server.Cide Procure por:

Código:: Sub HandleData(ByVal Index As Long, ByVal Data As String)

no final add isso

Código:: Dim OldPass As String Dim NewName As String Dim NewName2 As String

Procure por Case "newfaccountied" abaixo adicione:

Código:: ' :::::::::::::::::::::::::::::::::::: ' :: Packet de Mudança de Name , dã :: ' :::::::::::::::::::::::::::::::::::: Case "newname" If Not IsLoggedIn(Index) Then Name = Parse(1) OldPass = Parse(2) NewName = Parse(3) NewName2 = 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 NewName <> NewName2 Then Call PlainMsg(Index, "A novo Name digita não corresponde com a confirmação da mesma!", 9) Exit Sub End If If AccountExist(Name) Then Call SetOffPlayerPass(Name, NewName) Call PlainMsg(Index, "O Name 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

no final do ModTypes Adicione isso:

Código:: Function GetOffPlayerPass(ByVal Name As String) As String GetOffPlayerPass = GetVar(App.Path & "\Accounts" & Trim$(Name) & ".ini", "GENERAL", "Name") End Function Sub SetOffPlayerPass(ByVal Name As String, _ ByVal Pass As String) Call PutVar(App.Path & "\Accounts" & Trim$(Name) & ".ini", "GENERAL", "Name", Name) End Sub

procura por:

Código:: ' :::::::::::::::::::::::::: ' :: Plain message packet :: ' ::::::::::::::::::::::::::

Mude para:

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 frmNewName.Show , frmMainMenu msg = Parse(1) Call MsgBox(msg, vbOKOnly, GAME_NAME) Exit Sub End If