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)
我是说在上面这些代码中找不到加密函数
EncryptText
啊
[此贴子已经被作者于2012-11-6 16:42:33编辑过]