VB程序使用时间和次数限制

VB程序使用时间和次数限制

一.使用次数限值

'====================================================================
'窗体名称：frmMain.frm
'作者： VeryBeNET
'E-Mail：[e-mail]
'日期：2005-06-07
'公司：青铜剑工作室
'功能：程序使用次数限制
'====================================================================
Option Explicit
Private Sub Form_Load()
  Dim lngRemainData As Long
  lngRemainData = GetSetting("MyApp", "set", "times", 0)
  If lngRemainData >= 30 Then
    MsgBox "试用次数已满，如果您觉得本软件不错，请购买正版！", vbOKOnly, "青铜剑工作室"
    End
  End If
  MsgBox "现在剩下：" & 30 - lngRemainData & "试用次数，好好珍惜！"
  lngRemainData = lngRemainData + 1
  SaveSetting "MyApp", "set", "times", lngRemainData
End Sub


二.使用时间限值(1)

'====================================================================
'窗体名称：frmMain.frm
'作者： VeryBeNET
'E-Mail：[e-mail]
'日期：2005-06-07
'公司：青铜剑工作室
'功能：程序使用时间（30天）限制
'====================================================================
Option Explicit
Private Sub Form_Load()
  Dim lngRemainDay As Long
  lngRemainDay = GetSetting("MyApp", "set", "day", 0)
  If lngRemainDay >= 30 Then
    MsgBox "试用期已过，请购买正版！", vbOKOnly, "青铜剑工作室"
    End
  End If
  MsgBox "现在剩下：" & 30 - lngRemainDay & "天试用，好好珍惜！"
  If Day(Now) - lngRemainDay > 0 Then lngRemainDay = lngRemainDay + 1
  SaveSetting "MyApp", "set", "times", lngRemainDay
End Sub


三.使用时间限制(2)

Option Explicit
'====================================================================
'窗体名称：frmMain.frm
'作者： VeryBeNET
'E-Mail：[e-mail]

'日期：2005-06-07
'公司：青铜剑工作室
'功能：程序使用时间限制
'====================================================================
Dim dteNextTime As Date
Private Sub Form_Load()
  tmrLimit.Interval = 500
  tmrLimit.Enabled = True
  dteNextTime = DateAdd("n", 1, Now)
End Sub

Private Sub tmrLimit_Timer()
  If Now >= dteNextTime Then
    tmrLimit.Enabled = False
    MsgBox "试用时间已到，如果您觉得本软件不错，请购买正版！", vbOKOnly, "青铜剑工作室"
    End
  End If
End Sub