Makers Brasil
Bem Vindos a Maker´s Brasil (um forum para criação de servidores 2D e 3D)Nos desejamos boa sorte no seu projeto!

Criando contas com acento

Ir em baixo

Criando contas com acento Empty Criando contas com acento

Mensagem por RenanR em Ter Jul 19, 2011 12:13 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)
RenanR
RenanR
Modelador
Modelador

Mensagens : 26
Estrelas Makers : 61
Creditos : 3
Data de inscrição : 19/07/2011

Voltar ao Topo Ir em baixo

Criando contas com acento Empty Re: Criando contas com acento

Mensagem por hardsfree em Ter Jul 19, 2011 12:31 pm

bom tutorial renan Razz
Vai ajudar os iniciantes
+1 de cred!
hardsfree
hardsfree
Modelador
Modelador

Mensagens : 9
Estrelas Makers : 9
Creditos : 0
Data de inscrição : 17/07/2011

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