限制软件使用次数解决方法

限制软件使用次数
用下面的代码限制使用次数，编译没问题，但是不起作用，请问错在那？

VB.NET code

Option ExplicitPrivate Sub Form_Load()Dim lngRemainData As LonglngRemainData = GetSetting("MyApp", "set", "times", 0)If lngRemainData >= 3 ThenMsgBox "试用次数已满，如果您觉得本软件不错，请购买正版！", vbOKOnly, "XX软件工作室"EndEnd IfMsgBox "现在剩下：" & 3 - lngRemainData & "试用次数，好好珍惜！"lngRemainData = lngRemainData + 1SaveSetting "MyApp", "set", "times", lngRemainDataEnd Sub 

[解决办法]
用VB6测试，代码没有问题。

检查注册表 HKEY_CURRENT_USER\Software\VB and VBA Program Settings\MyApp\set 是否正确设置。
[解决办法]
把变量写到MY.SETTINGS中，安全，可靠，简单
[解决办法]
将倒计时追加到EXE自身，每次启动时读取自身EXE结尾值。
[解决办法]

探讨

用下面的代码限制使用次数，编译没问题，但是不起作用，请问错在那？

VB.NET code
Option Explicit
Private Sub Form_Load()
Dim lngRemainData As Long
lngRemainData = GetSetting("MyApp", "set", "times", 0)
If lngRemainData >= 3 Then……

查看更多 下一篇