Convidado Convidado
| Assunto: Criando contas com acento! Qua 13 Jul 2011, 21:45 | |
| 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.Até, Renan. |
|