vb 软件时间限制

来源：百度知道 编辑：UC知道 时间：2024/05/22 20:14:54
用VB怎么给工程添加时间限制
就是比喻说 一个程序他的运行时间是2008年8月8号-2009年8月8号过期
之间不能提示使用时间还剩多少
求这一个代码 请给位VB高手 给予赐教

'//一个例子:
Private Sub Form_Load()
Dim s(2) As Date
s(0) = "2008/8/8"
s(1) = "2009/8/8"
If Not (Now >= s(0) And Now <= s(1)) Then MsgBox "软件已过期.....": End
End Sub

'//一般来说可以将时间限制储存到注册表中,或者文件中,程序启动时读取并判断是否过期.

通过注册表时间比对

程序第一次运行就将当时日期写入注册表，以后每次运行进行比较，如果超过一个月程序就 end

else
msgbox"程序还有XX天"