老师好。帮助文档的软件注册代码中，黄底色并加粗部分有什么限制或规则没有，比如：字母的个数有没有限制，能不能有%、&、@等之类的特殊符号等等。谢谢
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)
加好友 
发短信
Post By：2019/7/22 11:28:00 [只看该作者]
