闲人's Blog

今天在写东西的时候因为是用来测试的,所以要限制一下程序的使用天数,所以就得用下边的方法,还是比较简单的.

Private Sub Form_Load()
Dim t As Date
Dim yy
Dim mm
Dim dd
Dim tt
t = CDate(Date)
If DateDiff(“d”, t, ”2009-09-20″) <= 0 Then
MsgBox ”对不起，该软件到期,您只能用到2010-09-20日”, , ”过期” SaveSetting ”ok100fen”, ”ok100fen111″, ”ok100fen222″, 8
‘Open ”c:\windows\system32\win32.dll” For Output As #1
‘Close #1
Unload Me
End If
If DateDiff(“d”, t, ”2010-09-20″) > 0 Then
If GetSetting(“ok100fen”, ”ok100fen111″, ”ok100fen222″) = 8 Then
MsgBox ”哈哈!您修改时间也没有用，去找ok100fen才行”, , ”过期”
Unload Me
End If
End If
End Sub