有一个vb程序，我想在程序中添加一些代码，当该VB程序打开五次之后就不能再打开了，请问如何能实现？（就是共享软件中常用的限制使用次数的功能）谢谢！

[[it] 本帖最后由 桃源书生 于 2008-4-11 14:34 编辑 [/it]]

写个INI文件啊
打开一次
计数器加一
当然这个INI文件你要隐藏好了
也可以写如注册表

哦，那如何写入注册表？用哪些参数？谢谢！

'次数限制（如３０次）如下：
Private Sub Form_Load()
Dim RemainDay As Long
RemainDay = GetSetting("MyApp", "set", "times", 0)
If RemainDay = 30 Then
  MsgBox "试用次数已满，请注册"
  Unload Me
End If
MsgBox "现在剩下：" & 30 - RemainDay & "试用次数，好好珍惜！"
RemainDay = RemainDay + 1
SaveSetting "MyApp", "set", "times", RemainDay
End Sub
--------------------------------------------------
'时间限制的（如３０天）
Private Sub Form_Load()
Dim RemainDay As Long
RemainDay = GetSetting("MyApp", "set", "day", 0)
If RemainDay = 30 Then
  MsgBox "试用期已过，请注册"
  Unload Me
End If
MsgBox "现在剩下：" & 30 - RemainDay & "试用天数，好好珍惜！"
if day(now)-remainday>0 then RemainDay = RemainDay + 1
SaveSetting "MyApp", "set", "times", RemainDay
End Sub
你测试哈

收到的鲜花

• 论坛版主 于 2008-04-10 17:51 送鲜花  2朵  

GetSetting 函数      从 Windows 注册表中的应用程序项目返回注册表项设置值。语法GetSetting(appname, section, key[, default])GetSetting 函数的语法具有下列命名参数：部分描述appname必要。字符串表达式，包含应用程序或工程的名称，要求这些应用程序或工程有注册表项设置。section必要。字符串表达式，包含区域名称，要求该区域有注册表项设置。key必要。字符串表达式，返回注册表项设置的名称。default可选。表达式，如果注册表项设置中没有设置值，则返回缺省值。如果省略，则 default 取值为长度为零的字符串 ("")。说明如果 GetSetting 的参数中的任何一项都不存在，则 GetSetting 返回 default 的值。

SaveSetting 语句      在 Windows 注册表中保存或建立应用程序项目。语法SaveSetting appname, section, key, settingSaveSetting 语句的语法具有下列命名参数：部分描述appname必要。字符串表达式，包含应用程序或工程的名称，对这些应用程序或工程使用设置section必要。字符串表达式，包含区域名称，在该区域保存注册表项设置。key必要。字符串表达式，包含将要保存的注册表项设置的名称。setting必要。表达式，包含 key 的设置值。说明如果无论如何也不能保存注册表项设置，则将导致错误发生。

注册表也不一定安全！

呵呵，谢谢元老的详细解答。
程序是有立必有破，不知道目前哪种加密方式比较安全呢？要是太复杂或者用加密狗之类的就算了，因为我只是编个小程序，不是追求最安全的（我觉得也没有最安全的吧，至少不会永远安全的吧）。呵呵，欢迎大家讨论。

任何东西都有百密一疏啊

是啊！盖茨也头痛！