Criar contas com acento

por **RenanR** Qua Jun 08, 2011 7:48 pm

vb - Cliente Side:

frmNewAccount

Procure por:

Código:: ' Prevent high ascii chars For I = 1 To Len(Msg) If Asc(Mid(Msg, I, 1)) < 32 Or Asc(Mid(Msg, I, 1)) > 126 Then Call MsgBox("Você não pode usar acentos na sua conta.", vbOKOnly, GAME_NAME) txtName.Text = vbNullString Exit Sub End If Next I

Apague tudo.

Server~Side

modServerTCP
Procure por:

Código:: Case "newfaccountied" If Not IsLoggedIn(Index) Then Name = Parse(1) Password = Parse(2) For i = 1 To Len(Name) N = Asc(Mid$(Name, i, 1)) If (N >= 65 And N <= 90) Or (N >= 97 And N <= 122) Or (N = 95) Or (N = 32) Or (N >= 48 And N <= 57) Then Else Call PlainMsg(Index, "Nome Inválido! Apenas use letras, números e espaços.", 1) Exit Sub End If Next

Mude para:

Código:: Case "newfaccountied" If Not IsLoggedIn(Index) Then Name = Parse(1) Password = Parse(2) For i = 1 To Len(Name) N = Asc(Mid$(Name, i, 1)) Next

Pronto, Compile e seja feliz com contas com acento!

Créditos: RenanR~' (eu)