编程论坛 → VB6论坛

求助，如何用VB6记录程序

chanwing 发布于 2015-01-31 19:47， 503 次点击

求助各位，如何用VB6记录某个程序如1.exe启动次数，当达到一定次数如30次，执行2.bat,谢谢各位给个源代码！谢谢！

8 回复

chanwing2015-01-31 19:49

不是什么共享软件限制什么的，不需要怕别人删除记录那些，明文txt记录就行了。开机启动，先多谢各位大大先！

renxiaoyao362015-02-01 22:13

给你个思路
每次FormLoad的时候，执行下列代码：
on erroe resume next
open (xxx)for input as #1'xxx自定义
input #1,a
close #1
if a = 0 then
open (xxx) for output as #1
print #1,"1"
close #1
if a > 0 then
a=a+1
open (xxx) for output as #1
print #1,a
close #1
end if
end if
end sub

renxiaoyao362015-02-01 22:13

这样看的清楚点

程序代码：

on erroe resume next
open (xxx)for input as #1'xxx自定义
input #1,a
close #1
if a = 0 then
open (xxx) for output as #1
print #1,"1"
close #1
if a > 0 then
a=a+1
open (xxx) for output as #1
print #1,a
close #1
end if
end if
end sub

renxiaoyao362015-02-01 22:14

额打错个字
第一行代码应该是
on error resume next

renxiaoyao362015-02-01 22:14

如果你想要加密的话，就用replace函数就可以了

renxiaoyao362015-02-01 22:15

求采纳，谢谢~~

lianyicq2015-02-02 08:30

回复 7楼 renxiaoyao36

renxiaoyao36建议的读TXT文件的方法可行。也可以用注册表的方法，参考
https://bbs.bccn.net/viewthread.php?tid=440346&extra=&page=1 贴子的后半部分

renxiaoyao362015-02-02 21:38

但是这个方法有个破绽，也是所有本地储存方式的通病：一旦储存的文件被删除，一切都完了。要解决，就用联网服务器吧，建议winsock tcp协议点对点连接。