UC知道VB软件试用次数问题，请进
来源：百度知道 编辑：UC知道 时间：2024/05/24 20:20:21
请问这段代码是靠什么来记录次数啊？ 可以破解吗？
Option Explicit
Private Sub Form_Load()
Dim lngRemainData As Long
lngRemainData = GetSetting("MyApp", "set", "times", 0)
If lngRemainData >= 50 Then
MsgBox "试用次数已满，如果您觉得本软件不错，请购买正版！", vbOKOnly, "青铜剑工作室"
End
End If
MsgBox "现在剩下：" & 50 - lngRemainData & "试用次数，好好珍惜！"
lngRemainData = lngRemainData + 1
SaveSetting "MyApp", "set", "times", lngRemainData
End Sub
Option Explicit
Private Sub Form_Load()
Dim lngRemainData As Long
lngRemainData = GetSetting("MyApp", "set", "times", 0)
If lngRemainData >= 50 Then
MsgBox "试用次数已满，如果您觉得本软件不错，请购买正版！", vbOKOnly, "青铜剑工作室"
End
End If
MsgBox "现在剩下：" & 50 - lngRemainData & "试用次数，好好珍惜！"
lngRemainData = lngRemainData + 1
SaveSetting "MyApp", "set", "times", lngRemainData
End Sub
GetSetting 函数
从 Windows 注册表中的应用程序项目返回注册表项设置值。
语法
GetSetting(appname, section, key[, default])
GetSetting 函数的语法具有下列命名参数：
部分 描述
appname 必要。字符串表达式，包含应用程序或工程的名称，要求这些应用程序或工程有注册表项设置。
section 必要。字符串表达式，包含区域名称，要求该区域有注册表项设置。
key 必要。字符串表达式，返回注册表项设置的名称。
default 可选。表达式，如果注册表项设置中没有设置值，则返回缺省值。如果省略，则 default 取值为长度为零的字符串 ("")。
说明
如果 GetSetting 的参数中的任何一项都不存在，则 GetSetting 返回 default 的值。
用注册表记录使用次数的阿
容易破解的
只要自己更改注册表里的数值就行了
应该有个GetSetting函数吧