form1.frm

限制使用次数 vb程序比较简单,欢迎提意见

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   735
      Left            =   1080
      TabIndex        =   0
      Top             =   960
      Width           =   1095
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''判断试用期是否已到
'Private Sub Command1_Click()
'Call Validate
'End Sub
'Private Sub Validate()
'Dim Times As Integer '已经使用的次数
'Dim Days As Integer '已经使用的天数
'
''使用次数限制(450次)
'Times = GetSetting("MyApp", "MySetting", "times", 0)
'If Times = 2 Then GoTo MyError
'
''提示
'If Times > 0 And Times Mod 50 = 0 Then
'MsgBox "仅剩下" & Str(2 - Times) & "次试用机会，请尽快向软件开发商申请正式使用许可！", _
'vbInformation, "演示版"
'End If
'
'Times = Times + 1
'SaveSetting "MyApp", "MySetting", "times", Times
'
''时间限制(90天)
'Days = GetSetting("MyApp", "MySetting", "Days", 0)
'If Days = 90 Then GoTo MyError
'If Day(Now) - Days > 0 Then Days = Days + 1
'SaveSetting "MyApp", "MySetting", "Days", Days
'
'Exit Sub
'
'MyError:
'MsgBox "软件试用期已满，请尽快向软件开发商申请正式使用许可！", vbInformation, "演示版"
'End
'End Sub
'
Private Sub Form_Load()  ''''''限次数
    Dim RemainDay As Long
          RemainDay = GetSetting("1myapp", "1set", "1times", 0)
          If RemainDay = 10 Then
             MsgBox "次数已满"
             End
          End If
          MsgBox "还剩下" & 10 - RemainDay & "次"
          RemainDay = RemainDay + 1
          SaveSetting "1myapp", "1set", "1times", RemainDay
End Sub
  
  
  Private Sub Form_Load()     ''''''限天数
  Dim RemainDay     As Long
  RemainDay = GetSetting("MyApp", "set", "day", 0)
    
  If RemainDay = 30 Then
      MsgBox "试用期已过，请……"
      Unload Me
  End If
      MsgBox "现在剩下：" & 30 - RemainDay & "试用天数，好好珍惜！"
  If Day(Now) - RemainDay > 0 Then RemainDay = RemainDay + 1
  SaveSetting "MyApp", "set", "times", RemainDay
  End Sub