[ALL]E-mail na sua Conta!!!

por skyper Ter 11 maio 2010, 19:03

Vamos ao Client side:

Procure por:

Código:: frmNewAcount

Agora faça dois Texto:

O primeiro Texto que voce criar coloqe o nome:

Código:: txtEmail

E o outro chamado:

Código:: txtEmail2

Agora em newAccount procure por:

Código:: If Len(Trim(txtName.Text)) < 3 Or Len(Trim(txtPassword.Text)) < 3 Then MsgBox "Your name and password must be at least three characters in length" Exit Sub End If

De um Enter e coloque:

Código:: If Len(Trim(txtEmail.Text)) < 6 Or Len(Trim(txtEmail2.Text)) < 6 Then MsgBox "Seu Email Nao Pode Existir Nunca,Desculpa coloque de novo seu Email" Exit Sub End If

Agora no modGameLogic Procure:

Código:: frmNewAccount.txtPassword.Text

Deixe assim:

Código:: frmNewAccount.txtPassword.Text, frmNewAccount.txtEmail.Text

Agora no modClientTCP procure:

Código:: , ByVal Password As String

Deixe Assim:

Código:: , ByVal Password As String, ByVal Email As String

No mesmo mod(modClientTCP) procure por:

Código:: SEP_CHAR & Trim(Password) & SEP_CHAR

Deixe Assim:

Código:: SEP_CHAR & Trim(Password) & SEP_CHAR & Trim(Email) & SEP_CHAR &

Olhe bem que a linha tem que acabar com:

Código:: "& END_CHAR"

Bom a parte do Client ja esté pronto Agora vamo para o Server side ^^'

procure no modDatabase por:

Código:: Sub AddAccount(ByVal Index As Long, _

Abaixo de:

Código:: ByVal Password As String)

Coloque isso:

Código:: ByVal Email As String)

Agora o linha do code vai ficar em Vermelhor pq? voce tem que editar isso:

Código:: ByVal Password As String) para asim ByVal Password As String, _

Ai vai dar tdo certo ^^'

bom vamos acabar

No modDatabase procure por:

Código:: Player(Index).Password = GetVar(FileName, "GENERAL", "Password")

De um Enter e coloque isso:

Código:: Player(Index).Email = GetVar(FileName, "GENERAL", "Email")

Agora procure no mesmo mod(modDatabase):

Código:: Call PutVar(FileName, "GENERAL", "Password", Trim$(Player(Index).Password))

De um Enter e Deixe assim:

Código:: Call PutVar(FileName, "GENERAL", "Email", Trim$(Player(Index).Email))

Agora vamos no modTypes e procure por:

Código:: Password As String * NAME_LENGTH

De um Enter e coloque assim:

Código:: Email As String * NAME_LENGTH

No mesmo mod(modTypes) procure por:

Código:: Sub ClearPlayer(ByVal Index As Long)

Olhe onde tem isso:

Código:: Player(Index).Login = "" Player(Index).Password = ""

De um Enter e deixe asim:

Código:: Player(Index).Login = "" Player(Index).Password = "" Player(Index).Email = ""

Voltamos para modServerTCP e procure por:

Código:: Case "newfaccountied"

De um Enter e deixe asim:

Código:: Case "newfaccountied" Dim Email As String

Agora na mesma sub procure por:

Código:: Password = Parse(2)

De um Enter e coloca isso:

Código:: Email = Parse(3)

Agora procure no mesmo mod(modServerTCP):

Código:: If Not AccountExist(Name) Then

E abaixo tem uma linha assim:

Código:: Call AddAccount(Index, Name, Password)

E mude para assim:

Código:: Call AddAccount(Index, Name, Password, Email)

Bom galera Tutorial finalizado, espero qe gostem deste tutorial qe postei na MMORPGBR^^

Obs: Não testei o tuto + parece estar tdo certo =]

Créditos:Batista

Very Happy