Suporte ao desenvolvimento de jogos!


    Mudar Senha In Game

    Compartilhe
    avatar
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 312
    Créditos : 104

    Mudar Senha In Game

    Mensagem por thales12 em Sab 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 Sab Jan 13, 2018 4:10 pm, editado 1 vez(es)


    _________________
    Meu fã ? Meu Amigo ? Entao Use !




    Minha Sign:

    avatar
    Kies
    Membro de Honra
    Membro de Honra

    Mensagens : 994
    Créditos : 111

    Ficha do personagem
    Nível: 1
    Vida:
    30/30  (30/30)
    Energia:
    0/0  (0/0)

    Re: Mudar Senha In Game

    Mensagem por Kies em Sab Jan 13, 2018 1:19 pm

    Olha eleeeeee.

    Sistema muito bom. Vlw pelo sistema.
    avatar
    Valentine
    Administrador
    Administrador

    Medalhas :
    Mensagens : 4804
    Créditos : 1021

    Re: Mudar Senha In Game

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

    O Thales voltou I love you


    _________________

    Conteúdo patrocinado

    Re: Mudar Senha In Game

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Qui Abr 26, 2018 6:13 am