- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 登录时，用机器码（注册码）验证，不起作用了？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128605)
-- 发布时间：2018/12/11 16:04:00
-- [求助] 登录时，用机器码（注册码）验证，不起作用了？
以下的注册码验证代码一直应用正常，但是最近却每次进入项目的时候，显示以下的出错窗口。
1）显示的错误
此主题相关图片如下：注册码 - 注册码输入窗口 2018.11.21.jpg
此主题相关图片如下：注册码 - 您输入的验证码不正确，请重新输入！.jpg
2）现象：
（1）在第一个窗口（注册码输入窗口），点击 “确定”、“取消”、“关闭”，都进入第二个窗口；
（2）在第二个窗口，点击 “确定”、“关闭”，都直接进入了项目窗口；
（3）进入项目后，能正常使用。
—— 也就是说，即使是错误的验证码，也都能通过； 而且还能正常使用！
3）在AfterOpenProject中的注册码验证代码：
Dim Code As String = GetConfigValue("Register" & ComputerId,"") \'定义 Code = 注册码
Dim Ok As Boolean
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确. 即: 注册码解码以后 = 机器码
OK = True
\'以上内容是项目打开后,自动进行的. 如果验证的正确,保证了不用每次登录系统都进入下面的这个验证窗口!
Else
Forms("注册码输入窗口").Open()
Code = GetConfigValue("Register" & ComputerId,"") \'Code = 窗口输入的注册码( ? )
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确
OK = True
Else
Messagebox.Show("您输入的验证码不正确,请重新输入!")
End If
End If
4）请大神们帮助看一看，什么情况？
-- 发布时间：2018/12/11 16:31:00
--
最后的代码你写了没有？
If Ok = False Then
Messagebox.Show("你不能登陆")
Syscmd.Project.Exit()
End If
-- 发布时间：2018/12/11 18:30:00
--
嗯 没有写这些代码。
再研究一下。