- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 注册问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160545)
-- 发布时间：2021/2/5 16:15:00
-- 注册问题
实例是官方的实例做的注册码，进行操作，然而有下问题：
1.注册窗口的“清除注册”按键不执行，是什么问题，请纠正，谢谢；
2.窗口1上的标签的显示的试用次数也没执行？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:注册系统问题-1.zip |
-- 发布时间：2021/2/5 16:36:00
--
按钮肯定执行了， 问题是注册保存使用的是Count、Register这些名称
Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
和"注册状态"、"试用次数"这些名称有半毛钱的关系吗？
SaveConfigValue("注册状态" ,False)
SaveConfigValue("试用次数" ,0)
-- 发布时间：2021/2/5 19:55:00
--
.注册窗口的“清除注册”按键还是不执行，要如何实现，“清除注册”？
Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
\'窗口上--"清除注册"按键-单击事件:
SaveConfigValue("Register" & ComputerId,"")
SaveConfigValue("Count" ,0)
-- 发布时间：2021/2/7 9:00:00
--
代码肯定执行了，执行后到命令窗口查看
Dim n As Integer = GetConfigValue("Count",1)
msgbox(n)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
msgbox(Code)
-- 发布时间：2021/2/8 14:46:00
--
执行后到命令窗口查看，只是能查看到次数，不是我想要功能，我需求是：“清除注册”按键-单击事件后，就清空注册，在限定使用次数后，打开项目时提示注册，弹出注册窗口，否则，就是退出项目。
-- 发布时间：2021/2/8 14:56:00
--
让你到命令窗口查看，只是证明"清除注册"按键代码已经执行了。至于清除后重新打开项目不能注册，那是其它方面的问题了。
检查一下项目启动后的判断逻辑，如果是完全照抄帮助一点都没改的话，帮助是使用次数超过30次才会弹出注册窗口的，不会自己调整一下么
-- 发布时间：2021/2/8 15:29:00
--
Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确
OK = True
Else
\'If n > 30 Then
If n > 5 Then
Forms("注册").Open()
Code = GetConfigValue("Register" & ComputerId,"")
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确
OK = True
End If
End If
\'If n > 60 AndAlso Ok = False Then
If n > 10 AndAlso Ok = False Then
Messagebox.Show("您正在使用的产品已经超出试用次数!")
Syscmd.Project.Exit()
End If
End If
n = n + 1
SaveConfigValue("Count",n)
Forms("窗口1").open
已代码，如上面代码，测试不行，
-- 发布时间：2021/2/8 15:35:00
--
项目关闭打开使用超过5次了吗？
-- 发布时间：2021/2/8 15:36:00
--
学会调试
Dim n As Integer = GetConfigValue("Count",1)
msgbox(n)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
msgbox(Code)
Dim Ok As Boolean
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确
OK = True
Else
\'If n > 30 Then
If n > 5 Then
msgbox(1)
Forms("注册").Open()
Code = GetConfigValue("Register" & ComputerId,"")
msgbox(“Code=” & Code)
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确
OK = True
End If
End If
\'If n > 60 AndAlso Ok = False Then
If n > 10 AndAlso Ok = False Then
Messagebox.Show("您正在使用的产品已经超出试用次数!")
Syscmd.Project.Exit()
End If
End If
n = n + 1
SaveConfigValue("Count",n)
Forms("窗口1").open