[Eclipse Origins] Adicionando Email no MENU.

Código:

Private Sub txtRAccept_Click()
    Dim Name As String
    Dim Password As String
    Dim PasswordAgain As String
    Dim Email As String
   
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
   
    Name = Trim$(txtRUser.text)
    Password = Trim$(txtRPass.text)
    PasswordAgain = Trim$(txtRPass2.text)
    Email = Trim$(txtREmail.text)

    If isLoginLegal(Name, Password) Then
        If Password <> PasswordAgain Then
            Call MsgBox("Passwords don't match.")
            Exit Sub
        End If

        If Not isStringLegal(Name) Then
            Exit Sub
        End If

        Call MenuState(MENU_STATE_NEWACCOUNT)
    End If
   
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "txtRAccept_Click", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Código:

Case MENU_STATE_NEWACCOUNT
            frmMenu.Visible = False
            frmMenu.picCredits.Visible = False
            frmMenu.picLogin.Visible = False
            frmMenu.picCharacter.Visible = False
            frmMenu.picRegister.Visible = False

            If ConnectToServer(1) Then
                Call SetStatus("Connected, sending new account information...")
                Call SendNewAccount(frmMenu.txtRUser.text, frmMenu.txtRPass.text, frmMenu.txtREmail.text)
            End If

Código:

Public Sub SendNewAccount(ByVal Name As String, ByVal Password As String,ByVal Email As String)
Dim Buffer As clsBuffer
   
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
   
    Set Buffer = New clsBuffer
    Buffer.WriteLong CNewAccount
    Buffer.WriteString Name
    Buffer.WriteString Password
    Buffer.WriteString Email
    SendData Buffer.ToArray()
    Set Buffer = Nothing
   
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "SendNewAccount", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Código:

Private Sub HandleNewAccount(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
    Dim Buffer As clsBuffer
    Dim Name As String
    Dim Password As String
    Dim Email As String
    Dim i As Long
    Dim n As Long

    If Not IsPlaying(index) Then
        If Not IsLoggedIn(index) Then
            Set Buffer = New clsBuffer
            Buffer.WriteBytes Data()
            ' Get the data
            Name = Buffer.ReadString
            Password = Buffer.ReadString
            Email = Buffer.ReadString

            ' Prevent hacking
            If Len(Trim$(Name)) < 3 Or Len(Trim$(Password)) < 3 Or Len(Trim$(Email)) < 3 Then
                Call AlertMsg(index, "Your account name must be between 3 and 12 characters long. Your password must be between 3 and 20 characters long.")
                Exit Sub
            End If
           
            ' Prevent hacking
            If Len(Trim$(Name)) > ACCOUNT_LENGTH Or Len(Trim$(Password)) > NAME_LENGTH Then
                Call AlertMsg(index, "Your account name must be between 3 and 12 characters long. Your password must be between 3 and 20 characters long.")
                Exit Sub
            End If

            ' Prevent hacking
            For i = 1 To Len(Name)
                n = AscW(Mid$(Name, i, 1))

                If Not isNameLegal(n) Then
                    Call AlertMsg(index, "Invalid name, only letters, numbers, spaces, and _ allowed in names.")
                    Exit Sub
                End If

            Next

            ' Check to see if account already exists
            If Not AccountExist(Name) Then
                Call AddAccount(index, Name, Password, Email)
                Call TextAdd("Account " & Name & " has been created.")
                Call AddLog("Account " & Name & " has been created.", PLAYER_LOG)
               
                ' Load the player
                Call LoadPlayer(index, Name)
               
                ' Check if character data has been created
                If LenB(Trim$(Player(index).Name)) > 0 Then
                    ' we have a char!
                    HandleUseChar index
                Else
                    ' send new char shit
                    If Not IsPlaying(index) Then
                        Call SendNewCharClasses(index)
                    End If
                End If
                       
                ' Show the player up on the socket status
                Call AddLog(GetPlayerLogin(index) & " has logged in from " & GetPlayerIP(index) & ".", PLAYER_LOG)
                Call TextAdd(GetPlayerLogin(index) & " has logged in from " & GetPlayerIP(index) & ".")
            Else
                Call AlertMsg(index, "Sorry, that account name is already taken!")
            End If
           
            Set Buffer = Nothing
        End If
    End If

End Sub

Código:

Sub AddAccount(ByVal index As Long, ByVal Name As String, ByVal Password As String,ByVal Email As String)
    Dim i As Long
   
    ClearPlayer index
   
    Player(index).Login = Name
    Player(index).Password = Password
    Player(index).Email = Email

    Call SavePlayer(index)
End Sub

Código:

Email As String * 255

twisterbk escreveu:Nada ver, nao é imprestavel nao, pois isso serve para quem quer saber
o email do cara que comprou o cash, entao tem um EDITOR de contas pronto e eu adicionei uma opçao de ver o EMAIL do cara, entao nao é desnecessario, eu uso e funciona direito... e parem de criticar, pois nem pra postar vcs prestam '-'

Thales12 escreveu:OBS: O sistema nao é inutil..
OBS2: é Inutil ? faz um melhor, dps vem discutir ! ( o cara tenta ajudar e ainda reclama ? VAO TUDO PARA AQUELE LUGAR... )
OBS3: Se Continuar o Off-Topic Vou começar a Punir 1 por 1
OBS4: Obrigado por postar sakuray e compartilhar com nosco ! + 1 para vc

Sakuuray escreveu:

Thales12 escreveu:OBS: O sistema nao é inutil..
OBS2: é Inutil ? faz um melhor, dps vem discutir ! ( o cara tenta ajudar e ainda reclama ? VAO TUDO PARA AQUELE LUGAR... )
OBS3: Se Continuar o Off-Topic Vou começar a Punir 1 por 1
OBS4: Obrigado por postar sakuray e compartilhar com nosco ! + 1 para vc

Pelo menos alguém entende né
Esses povo que nem coisa "inútil" posta, vem falar dimais, mais não fazem 1% ( Quem faz, não foi pra você isso, por que quem não faz, sabe que não faz )

Thales12 escreveu:OBS3: Se Continuar o Off-Topic Vou começar a Punir 1 por 1