老师好:我设计的小程序加密用的是帮助上面的“另一种加密方式”,帮助上提示要把使用次数同时保存到注册表,我按帮助上的代码是否也放到项目属性的After Open project里,
如:把代码n = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp","n",0)
Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","n",n + 1)
加入到下面的代码里
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)