Question

vb开发的exe程序 使用次数怎么控制 请提供全部代码，以及详细方法 不甚感激！

Answer 1

很好弄，定义一个static变量。
如下：
static i%
i=i+1
if i>100 then'最多可用一百次
msgbox("使用次数已经到了，请重新注册")
end
end if
把以上程序放到主程序的load函数中

追问

这个 方法只能实现一点目标
但是 每次重新启动程序以后，自动置零了
显然不符合要求

追答

那也好弄，只要你调用一个加密文本。每次打开后，查看里边的剩余使用次数。然后自动编辑减或者加1。每次开启都是这样的操作。文本在系统中只用用这个程序或者手动才能编辑。因为对这个文本有加密保护，所以一般人不会找到规律修改。这样就解决了你的问题。加密文本最好用二进制编辑。后缀名自己设定。

你学习一下子，VB中的commondialog控件。这可能有帮助。

Private Sub Form_Load()
'再此之前要编辑好wodemima.dat文件
Open App.Path & "wodemima.dat" For Binary As #1
Dim DAT() As Byte
Get #1, , DAT
DAT(30) = DAT(30) + 1 '这里根据自己加密情况设定
If DAT(30) > 100 Then '这里也一样
MsgBox "使用次数已到！"
End
End If
Put #1, , DAT
Close #1
End Sub

Answer 2

你是说用户每双击运行一次，就统计一次吧？
这个只能借助于文件或数据库方式，就是每启动一次，程序在初始化的时候都去读取一次文件(如.ini/.txt的内容，并对其中的次数+1)，再写入一次该文件中即可

追问

这个原理我懂，也可以把文件写到注册表里 我就是不知道怎么实现
我需要的例子以及代码

追答

http://zhidao.baidu.com/question/295410822.html

Answer 3

是发行试用版限制使用次数吗？恐怕不容易啊。我建议你使用USBKey一类安全存储设备，否则信息存在磁盘中不是办法，简单举个例，文件可随时备份再覆盖，重装，程序如何判断应对？

追问

其实也不是很重要的程序，现在我还不想用硬件来控制，只想着用软件来控制