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

阅读更多
文章标签: vb 工作 timer date
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭