Question

怎样给软件设定使用次数或时间天数限制

Answer 1

Vb也可以实现这样滴效果！以下下介绍两种简单易懂的（其实就会这两种）！当然还有其他方法, 像生成配置文件等！方法很多有待尝试！呵呵！ 现在提供两种方法。都是利用注册表的 一种是利用点击的次数。比如一共有30次，点一次少一次。直到0就不能用了 另一种是用时间限制的。如30天，每天减少一次 代码给出，由于代码不是很难就不做任何解释了！ -------------------------------------------------- '次数限制（如30次）如下： Private Sub Form_Load() Dim RemainDay As Long RemainDay = GetSetting("MyApp", "set", "times", 0) If RemainDay = 30 Then MsgBox "试用次数已满，请注册"Unload MeEnd IfMsgBox "现在剩下：" & 30 - RemainDay & "试用次数，好好珍惜！" RemainDay = RemainDay + 1 SaveSetting "MyApp", "set", "times", RemainDayEnd Sub先测试第一种的 -------------------------------------------------- '时间限制的（如30天） Private Sub Form_Load() Dim RemainDay As Long RemainDay = GetSetting("MyApp", "set", "day", 0) If RemainDay = 30 Then MsgBox "试用期已过，请注册"Unload MeEnd IfMsgBox "现在剩下：" & 30 - RemainDay & "试用天数，好好珍惜！" SaveSetting "MyApp", "set", "times", RemainDayEnd Sub代码结束！很简短吧！呵呵