- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于软件注册问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138063)
-- 发布时间：2019/7/22 11:28:00
-- [求助]关于软件注册问题
老师好。在论坛 这里 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=132236&skin=0 和
这儿 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=95605有个软件注册程序示例，但示例项目是开发版的，试用版的不能学习。老师可否将示例项目文件由开发版转换成试用版，以供试用版用户学习参考。谢谢。 开发版示例项目：
| ||||
-- 发布时间：2019/7/22 11:59:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:问题.zip |
-- 发布时间：2019/7/22 15:35:00
--
谢谢老师。
-- 发布时间：2019/7/23 10:32: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
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
Messagebox.Show("您正在使用的产品已经超出试用次数!")
Syscmd.Project.Exit()
End
If
End
If
n = n + 1
SaveConfigValue("Count",n)
-- 发布时间：2019/7/23 10:47:00
--
个数没有限制，一般建议8个。