VB 版 (精华区)

发信人: liujq (天高任我飞), 信区: VisualBasic
标  题: 在VB5中实现软件试用日期的限制
发信站: 紫 丁 香 (Sun Nov 14 19:14:23 1999), 转信

 电脑工作室
                                                                出版日期：99
-9-13　 总期号：857　 本年期号：67
   　　在VB5中实现软件试用日期的限制
   　　
   　　张建宇
   Internet上有大量优秀的共享软件，这些软件大多都有试用日期的限制，即允许下载
它的用户使用
   一段时间，如30天。实现这一方法的关键在于将软件运行的时间值存储在哪里。本文
介绍用VB5中
   的注册表函数来存储运行时间值，从而限制软件的试用。
   新建工程，在窗体的Load事件中添加如下代码：
   Private Sub Form_Load()
   Dim RetValue As Date
   ′通过GetSetting函数取得程序第一次运行的时间，如果注册表项中没有值，即将当
天的日期返回
   RetValue = GetSetting(App.Title, ″MainKey″, ″DateValue″, Date)
   If RetValue = 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
   以上两个函数将日期值存储在注册表的\KEY—CURRENT—USER\SOFTWARE\VB and VBA
 Programm
   Settings下。

--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.229.84]