VB 6.0中实现软件试用日期的限制

IT商界

mayi

　　很多共享软件都使用了试用日期的限制，即允许用户使用一段时间，如30天。实现这一方法的关键在于将软件的运行时间值储存在哪里。只要了解了这些我们也可以实现这一功能。本文介绍用VB中的注册表函数来储存运行时间值，从而限制软件的使用期。

　　新建工程，在窗体的load时间里添加如下代码：

　　Private Sub Form_load()

　　Dim RetValue As Date

　　'通过GetSetting函数取得程序第一次运行的时间，如果注册表项中没有值，即将当天的日期返回

　　RetValue=GetSetting(App.Title,"MainKey","DateValue",Date)

　　ifRetValue=Date then

　　'将程序第一次运行时间储存在注册表中。

　　SaveSetting App.Title，"mainKey", :DateValue",Date

　　Elseif Date-RetValue+1>30 Then

　　MsgBox"软件的使用期已过，请注册！"

　　Unload Me

　　End if

　　MsgBox"还剩下" & 30-(Date-RetValue)-1 & "天试用期！"

　　End Sub

　　以上两个函数将日期值存储在注册表的HKEY_CURRENT_USER\SOFTWARE\VB and VBA Programm Settings下。