一.使用次数限值
'====================================================================
'窗体名称: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