以下的注册码验证代码一直应用正常,但是最近却每次进入项目的时候,显示以下的出错窗口。
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)请大神们帮助看一看,什么情况?