限次版功能的简单实现

Option Explicit

Private Sub Form_Load()
Dim a As Integer, b As Integer
On Error GoTo errhandler
SetAttr "c:/a.dll", vbNormal '为了能够对该文件进行读取,把隐藏属性重新设为Normal
Open ("c:/a.dll" For Input As #1 '如文件已经存在,从中读出变量的值
Input #1, a
Close #1
Form1.Caption = "本软件只能够使用5次,你已经使用了" & a + 1 & "次"
b = a + 1 '每打开一次,该变量的值加上1


If b > 5 Then
MsgBox "使用次数已到,要想继续使用,请注册", vbOKOnly + vbExclamation, "请注册"
Unload Me
End If
Open ("c:/a.dll" For Output As #2 '把加上1后的值再次写入该文件当中
Print #2, b
Close #2
SetAttr "c:/a.dll", vbHidden '读出和写入操作完成之后,再次设为隐藏属性,为了保密
Exit Sub
errhandler:
Form1.Caption = "本软件只能够使用5次,你已经使用了1次"
Open ("c:/a.dll" For Output As #3 '如果文件不存在,建立一个,并写入初值1,当然,为了安全,可以把此文件建立在系统文件夹下
Print #3, 1
Close #3
SetAttr "c:/a.dll", vbHidden '设置为隐藏属性,为了保密

End Sub