Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[BUG?] Account Registration
#3
Replacing:
Code:
For i = 1 To Len(Msg)
                    If Asc(Mid$(Msg, i, 1)) < vbKeySpace Or Asc(Mid$(Msg, i, 1)) > vbKeyHelp Then
                        Call MsgBox("You cannot use high ascii chars in your name, please reenter.", vbOKOnly, GAME_NAME)
                        txtName.Text = vbNullString
                        Exit Sub
                    End If
                Next i
With:
Code:
For i = 1 To Len(Msg)
                    If Asc(Mid$(Msg, i, 1)) < 32 Or Asc(Mid$(Msg, i, 1)) > 126 Then
                        Call MsgBox("You cannot use high ascii chars in your name, please reenter.", vbOKOnly, GAME_NAME)
                        txtName.Text = vbNullString
                        Exit Sub
                    End If
                Next i
Works, but is it a good fix? Tongue
Changed vbKeySpace to 32 and vbKeyHelp to 126. All client-side.
Reply


Messages In This Thread

Forum Jump:


Users browsing this thread: 1 Guest(s)