Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!

Criando contas com acento!

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Tutorial Criando contas com acento!

Mensagem por RenanR em Qua 13 Jul 2011, 20: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 Very Happy

Créditos: RenanR.


Até, Renan.
avatar
RenanR

Mensagens : 119

http://mmomakerbr.ativoforum.com

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

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