24-10-2008, 10:55 AM
This is great if you want to have a GM Client and a Public client
So even if someone got ahold of a GM account user/pass they would still need a client without this code to login =P
Very easy to install
Open frmLogin
Double click Connect label
change it to look like this
Code for frmWarn
Make a Form add label or w/e for the text you want the warning to say size it and do w/e
make a Command Button and name it ok
copy/paste and ur done
So even if someone got ahold of a GM account user/pass they would still need a client without this code to login =P
Very easy to install
Open frmLogin
Double click Connect label
change it to look like this
Code:
Private Sub lblConnect_Click()
'makes it so no one using the client can login with this username
If txtName.Text = "Username Here" Then
frmWarn.Visible = True
Else
If LenB(Trim$(txtName.Text)) > 0 Then
If LenB(Trim$(txtPassword.Text)) > 0 Then
Call MenuState(MENU_STATE_LOGIN)
End If
End If
End If
End Sub
Code for frmWarn
Make a Form add label or w/e for the text you want the warning to say size it and do w/e
make a Command Button and name it ok
copy/paste and ur done
Code:
Private Sub ok_Click()
Unload Me
End Sub