VB6.0 登陆窗口问题！只限制登陆2个号和密码的任意一个号！

Question

VB6.0  登陆窗口问题！只限制登陆2个号和密码的任意一个号！ 比如我做的登陆窗口！不通过数据库！我给2个号和密码 只可以在这2个号和密码任意登陆一个号！要怎么写这代码？谢谢高手来看看！

Answer 1

Option Explicit
Const password1 = "12345678"
Const password2 = "87654321"Public LoginSucceeded As Boolean
Private Sub cmdOK_Click()
    '检查正确的密码
    If txtPassword = password1 Or txtPassword = password2 Then
        Form1.Show
        LoginSucceeded = True
        Me.Hide
    Else
        MsgBox "无效的密码，请重试!", , "登录"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub

Answer 2

内存里面记录当前已经登陆的账号就可以了嘛,如果用另一个账号登陆比对一下,要么把原来的账号退出要么不允许新账户登录.如果连账号都不想被人家从内存里面知道hash以后放内存嘛。要比对的东西也hash一下再比对