Private Sub form_load()
Dim t As Date
Dim yy
Dim mm
Dim dd
Dim tt
t = CDate(Date)
If DateDiff("d", t, "2014-11-30") <= 0 Then
MsgBox "軟體使用期已到,請繼續購買"
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, "2014-11-30") > 0 Then
If GetSetting("ok100fen", "ok100fen111", "ok100fen222", "0") = 8 Then
MsgBox "不得修改系統日期"
Unload Me
End If
End If
End Sub
uj5u.com熱心網友回復：
If DateDiff("d", t, "2014-11-30") <= 0 Then表示日期在2014－11－30日以及以后條件
軟體過期
If DateDiff("d", t, "2014-11-30") > 0 Then
表示日期在2014－11－30日之前后條件
不能修改系統日期
也就是說，所有日期都不能運行了
uj5u.com熱心網友回復：
沒明白，你意思uj5u.com熱心網友回復：
重置標記啊。SaveSetting "ok100fen", "ok100fen111", "ok100fen222", 0
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/106520.html
標籤：VB基礎類
上一篇：word如何判斷是否啟用宏？