求vb時間限制加密源代碼和次數限制源代碼。最好有實際例程！~才開始學習VB~謝謝~好的可以加分~

Private Sub Form_Load()

Dim t As Date

t = CDate(GetSetting(App.Title, "setup", "t", 0))

If t = CDate(0) Then

SaveSetting App.Title, "setup", "t", Now

ElseIf Now - t > 30 Then

MsgBox "對不起，妳試用本軟件已超過30天，要繼續使用請購買正版！"

End

End If

End Sub

次數限制：

Private Sub Form_Load()

Dim t As Long

t = Val(GetSetting(App.Title, "setup", "n", -1))

If t > 100 Then

MsgBox "對不起，妳試用本軟件已超過100次，要繼續使用請購買正版！"

End

Else

SaveSetting App.Title, "setup", "n", t + 1

End If

End Sub