Mudar Senha In Game Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

Aldeia RPG
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Mudar Senha In Game

3 participantes

Ir para baixo

Mudar Senha In Game Empty Mudar Senha In Game

Mensagem por thales12 Sáb Jan 13, 2018 12:55 pm

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


Última edição por thales12 em Sáb Jan 13, 2018 4:10 pm, editado 1 vez(es)

_________________
Meu fã ? Meu Amigo ? Entao Use !

Mudar Senha In Game Thalesfan
Mudar Senha In Game Mv0yg8

Minha Sign:

Mudar Senha In Game Zkqt5e
thales12
thales12
Membro de Honra
Membro de Honra

Mensagens : 322
Créditos : 108

Ficha do personagem
Nível: 1
Experiência:
Mudar Senha In Game Left_bar_bleue0/0Mudar Senha In Game Empty_bar_bleue  (0/0)
Vida:
Mudar Senha In Game Left_bar_bleue30/30Mudar Senha In Game Empty_bar_bleue  (30/30)

http://www.rdmgames.tk

Ir para o topo Ir para baixo

Mudar Senha In Game Empty Re: Mudar Senha In Game

Mensagem por Kies Sáb Jan 13, 2018 1:19 pm

Olha eleeeeee.

Sistema muito bom. Vlw pelo sistema.
Kies
Kies
Diva
Diva

Mensagens : 1155
Créditos : 124

Ficha do personagem
Nível: 1
Experiência:
Mudar Senha In Game Left_bar_bleue0/0Mudar Senha In Game Empty_bar_bleue  (0/0)
Vida:
Mudar Senha In Game Left_bar_bleue30/30Mudar Senha In Game Empty_bar_bleue  (30/30)

Ir para o topo Ir para baixo

Mudar Senha In Game Empty Re: Mudar Senha In Game

Mensagem por Valentine Dom Jan 14, 2018 11:39 am

O Thales voltou I love you
Valentine
Valentine
Administrador
Administrador

Medalhas : Mudar Senha In Game ZgLkiRU
Mensagens : 5345
Créditos : 1164

https://www.aldeiarpg.com/

Ir para o topo Ir para baixo

Mudar Senha In Game Empty Re: Mudar Senha In Game

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos