vb编写的软件怎么设置使用时间 我有一个软件想设置使用时间为30天,怎

试用期

VB写自己试用软件（为你写的软件加上使用期限），使用别人的软件大多都有试用期，试用期已过就不能在使用，除非注册！Vb也可以实现这样滴效果！以下下介绍两种简单易懂的（其实就会这两种）！当然还有其他方法, 像生成配置文件等！方法很多有待尝试！呵呵！

现在提供两种方法。都是利用注册表的

一种是利用点击的次数。比如一共有30次，点一次少一次。直到0就不能用了

AI

另一种是用时间限制的。如30天，每天减少一次

代码给出，由于代码不是很难就不做任何解释了！--------------------------------------------------'次数限制（如30次）如下：Private Sub Form_Load()Dim RemAInDay As LongRemAInDay = GetSetting(MyApp, set, times, 0)If RemAInDay = 30 Then MsgBox 试用次数已满，请注册 Unload MeEnd IfMsgBox 现在剩下： & 30 - RemAInDay & 试用次数，好好珍惜！RemAInDay = RemAInDay + 1SaveSetting MyApp, set, times, RemAInDayEnd Sub先测试第一种的--------------------------------------------------'时间限制的（如30天）Private Sub Form_Load()Dim RemAInDay As LongRemAInDay = GetSetting(MyApp, set, day, 0)If RemAInDay = 30 Then MsgBox 试用期已过，请注册 Unload MeEnd IfMsgBox 现在剩下： & 30 - RemAInDay & 试用天数，好好珍惜！if day(now)-remAInday0 then RemAInDay = RemAInDay + 1SaveSetting MyApp, set, times, RemAInDayEnd Sub

代码结束！很简短吧！呵呵！