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

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

 

 

            

一.使用次数限值

'==================================================================== '窗体名称：frmMain.frm '作者： VeryBeNET 'E-Mail：bronzesword@tom.com '日期：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：bronzesword@tom.com '日期：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：bronzesword@tom.com

'日期：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