[求助]加密 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好：我设计的小程序加密用的是帮助上面的“另一种加密方式”，帮助上提示

要把使用次数同时保存到注册表，我按帮助上的代码是否也放到项目属性的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)

谢谢老师，我试一下

老师，怎么设置初始n=n2呢

老师我试了一下，卸载后重装还是能继续使用试用次数

Dim n As Integer = GetConfigValue("Count2",1)

Dim n2 = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp","n",1)

If n <> n2 Then

msgbox("试用异常")

Syscmd.Project.Exit()

End If

Dim Code As String = GetConfigValue("Register" & ComputerId,"")

Dim Ok As Boolean

If Code > "" AndAlso DecryptText(Code,"abc","qaz") = ComputerId Then '如果注册码正确

OK = True

Else

If n > 10 Then

Forms("登录").Open()

Code = GetConfigValue("Register" & ComputerId,"")

If Code > "" AndAlso DecryptText(Code,"abc","qaz") = ComputerId Then '如果注册码正确

OK = True

End If

If n > 15 AndAlso Ok = False Then

Messagebox.Show("您正在使用的产品已经超出试用次数!")

Syscmd.Project.Exit()

End If

n = n + 1

SaveConfigValue("Count2",n)

Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","n",n)

是指发布后的程序（安装包），比如我设置试用15次，卸载安装包后重新安装发布后的安装包，

还是试用15次

主题：[求助]加密