Suporte no desenvolvimento de jogos


    Mudar Senha In Game

    thales12
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 318
    Créditos : 108
    Cash : 0

    Mudar Senha In Game Empty 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 !

    Mudar Senha In Game Thalesfan
    Mudar Senha In Game Mv0yg8

    Minha Sign:

    Mudar Senha In Game Zkqt5e
    Kies
    Kies
    Diva
    Diva

    Mensagens : 1139
    Créditos : 124
    Cash : 0

    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)

    Mudar Senha In Game Empty Re: Mudar Senha In Game

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

    Olha eleeeeee.

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

    Medalhas : Mudar Senha In Game 94JxvMudar Senha In Game ZgLkiRU
    Mensagens : 5033
    Créditos : 1119
    Cash : 0

    Mudar Senha In Game Empty Re: Mudar Senha In Game

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

    O Thales voltou I love you


    _________________
    Mudar Senha In Game AIymW

    Conteúdo patrocinado

    Mudar Senha In Game Empty Re: Mudar Senha In Game

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Dom Jan 19, 2020 10:23 pm