用这个命令计算注册码： EncryptText("用户提供的机器码",X,Y)注册后。
SaveConfigValue("Register" & ComputerId,
e.Form.Controls("TextBox2").Value)
X Y 我用的是可变的用户名，就是变量吧
用以下代码判断，如果X Y 和注册时不一样。下面大字语句会报错！
运行错误，不正确的数据
我觉得这样不是很好，如果一旦用户更改了注册时候的用户名，这里报错，但照样能用！！ 不好
Dim n As
Integer = GetConfigValue("Count",1)
Dim Code As
String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As
Boolean
If Code > "" AndAlso DecryptText(Code,X,Y) = 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：2017/6/2 12:16:00 [只看该作者]
