Question

如何vb实现软件使用时间限制??

如何用vb实现软件使用时间限制
如以30天为例，如何用vb实现使软件有30天的使用时间限制
就是比喻说 一个程序他的运行时间是2008年8月1号-2008年9月1号过期
之间不能提示使用时间还剩多少
求这一个代码 请给位VB高手 给予赐教

Answer 1

软件第一次运行即写入一个键值到注册表中，记录当前日期，此后每次运行检测注册表中的键值，并与当前时间对比，如果相减达到规定的天数则弹出无法使用，软件过期提示

Answer 2

Private Sub Command1_Click()
Dim DayS As String, nDate As String, nNow As String
nDate = "2008-9-1"
nNow = Format(Now, "yyyy-mm-dd")
DayS = DateDiff("d", nNow, nDate) '当月的天数
If DayS <1 Then
MsgBox "软件使用时间已过期！", vbInformation
End If
End Sub