Suporte ao desenvolvimento de jogos!


    Criando contas com acento

    Compartilhe
    avatar
    Renanr
    Iniciante
    Iniciante

    Mensagens : 57
    Créditos : 15

    Criando contas com acento

    Mensagem por Renanr em 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~~
    avatar
    Valentine
    Administrador
    Administrador

    Medalhas :
    Mensagens : 4728
    Créditos : 1005

    Re: Criando contas com acento

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

    Muito bom cara
    + 1 crédito


    _________________

      Data/hora atual: Qua Jan 17, 2018 9:04 pm