Aldeia RPG

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Suporte ao desenvolvimento de jogos


2 participantes

    Criando contas com acento

    Nãner
    Nãner
    Iniciante
    Iniciante


    Mensagens : 65
    Créditos : 21

    Ficha do personagem
    Nível: 1
    Experiência:
    Criando contas com acento Left_bar_bleue0/0Criando contas com acento Empty_bar_bleue  (0/0)
    Vida:
    Criando contas com acento Left_bar_bleue30/30Criando contas com acento Empty_bar_bleue  (30/30)

    Criando contas com acento Empty Criando contas com acento

    Mensagem por Nãner Sex Ago 12, 2011 2:33 pm

    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~~
    Valentine
    Valentine
    Administrador
    Administrador


    Medalhas : Criando contas com acento ZgLkiRU
    Mensagens : 5336
    Créditos : 1163

    Criando contas com acento Empty Re: Criando contas com acento

    Mensagem por Valentine Sex Ago 12, 2011 3:17 pm

    Muito bom cara
    + 1 crédito

      Data/hora atual: Qui Mar 28, 2024 8:53 am