限次版功能的简单实现
来源:互联网 发布:java项目设计方案 编辑:程序博客网 时间:2024/05/08 03:45
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
- 限次版功能的简单实现
- 实现简单的notepad功能
- 简单的实现涂鸦功能
- 实现简单功能的通讯录
- 简单的实现涂鸦功能
- 简单的实现考试功能
- 截图功能的简单实现
- 简单扫一扫功能的实现
- 简单分页功能的实现
- 简单计算器的功能实现
- 实现简单的天气预报功能
- 简单的实时提示功能的实现
- c# 的实现的一些简单功能
- 简单的老板键功能的实现
- vb.net2005中回调功能的简单实现
- TreeCtrl 查找功能的最简单实现
- 利用frame实现简单的导航功能
- 非常简单的拖拽功能实现
- 数据库设计过程中一些命名规范
- 2个CString的小错误,记下来时时提醒自己
- Struts数据源配置及调用方法
- 维深集团荣获2004年物流与采购信息化优秀方案大奖
- 技术继续改变生活
- 限次版功能的简单实现
- 隐藏开始按钮
- 动画清屏
- 得到系统的一些基本信息的类
- 在NT下取得关机权限的类
- 在VB中实现"绿色"软件
- 直接播放EXE文件中的声音文件
- Windows消息大全
- VB中的类开发