Mudar Senha In Game

Móóóó tempão q não posto nada u.u, então algo bem básico o/

Bom como diz o Título, mudar senha dentro do game.

no Client~Side na frmMain crie uma Picture com Name: PicSenha com Visible: False dentro dela adicione:
3 TextBox com Names: txtSenha / txtNSenha / txtRSenha
3 Labels com Captions: Senha Atual / Nova Senha / Repita a Nova Senha
crie um CommandButton dentro da Picture com Name: cmdMudar e Caption: Confirmar de dois clicks nele e adicione: 

Código:

Call SendNSenha(Trim$(txtSenha.text), Trim$(txtNSenha.text), Trim$(txtRSenha.text))
picSenha.visible = False

crie um CommandButton com Name: cmdSenha e Caption: Mudar Senha de dois clicks nele e adicione: 

Código:

picSenha.Visible = Not picSenha.Visible

na modClientTCP adicione:

Código:

Public Sub SendNSenha(ByVal Senha As String, ByVal SenhaNova As String, ByVal SenhaRNova As String)
    Dim Buffer As clsBuffer
    Set Buffer = New clsBuffer
    Buffer.WriteLong CNSenha
    Buffer.WriteString Senha
    Buffer.WriteString SenhaNova
    Buffer.WriteString SenhaRNova
    SendData Buffer.ToArray
    Set Buffer = Nothing
End Sub

procure por: CPartyLeave na modEnumerations e abaixo adicione:

Código:

CNSenha

Client~Side finalizado agora no Server~Side procure por CPartyLeave na modEnumerations e abaixo adicione:

Código:

CNSenha

na modHandleData procure por:

Código:

HandleDataSub(CPartyLeave) = GetAddress(AddressOf HandlePartyLeave)

abaixo adicione:

Código:

HandleDataSub(CNSenha) = GetAddress(AddressOf HandleNSenha)

no final da msm mod adicione:

Código:

Sub HandleNSenha(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer
Dim Senha As String, SenhaNova As String, SenhaRNova As String
  
Set Buffer = New clsBuffer
Buffer.WriteBytes Data()
Senha = Buffer.ReadString
SenhaNova = Buffer.ReadString
SenhaRNova = Buffer.ReadString
      
If Not Senha = GetPlayerPassword(index) Then
    Call PlayerMsg(index, "A senha atual está errada!", BrightRed)
    Exit Sub
ElseIf Not SenhaNova = SenhaRNova Then
    Call PlayerMsg(index, "Nova Senha Invalida!", BrightRed)
    Exit Sub
Else
    Call PlayerMsg(index, "Sua nova senha é: " & SenhaNova, Yellow)
    Call SetPlayerPassword(index, SenhaNova)
    Exit Sub
End If

Set Buffer = Nothing

End Sub

Créditos: Titio Thales12 pelo System bananada e tutorial

Olha eleeeeee.

Sistema muito bom. Vlw pelo sistema.

O Thales voltou