Criar contas com acento

Ir em baixo

Criar contas com acento

Mensagem por RenanR em 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)
avatar
RenanR
Administrador
Administrador

Mensagens : 20
Créditos : 0
Data de inscrição : 06/06/2011

Ver perfil do usuário http://mmomakerbr.directorioforuns.com

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum