Foxtable(狐表)用户栏目专家坐堂 → [求助] 登录时,用机器码(注册码)验证,不起作用了?


  共有2256人关注过本帖树形打印复制链接

主题:[求助] 登录时,用机器码(注册码)验证,不起作用了?

美女呀,离线,留言给我吧!
龙潭春早
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:676 积分:4895 威望:0 精华:0 注册:2018/3/22 16:05:00
[求助] 登录时,用机器码(注册码)验证,不起作用了?  发帖心情 Post By: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)请大神们帮助看一看,什么情况?



 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/11 16:31:00 [只看该作者]

最后的代码你写了没有?

 

If Ok = False Then
    Messagebox.Show("你不能登陆")
    Syscmd.Project.Exit()
End If

 


 回到顶部
美女呀,离线,留言给我吧!
龙潭春早
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:676 积分:4895 威望:0 精华:0 注册:2018/3/22 16:05:00
  发帖心情 Post By:2018/12/11 18:30:00 [只看该作者]

嗯 没有写这些代码。

再研究一下。

 回到顶部