| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1319 人关注过本帖
标题:用什么办法限制VFP程序的次数(包括电脑重装后限制次数仍能生效)
取消只看楼主 加入收藏
zxingzu8501
Rank: 1
等 级:新手上路
帖 子:60
专家分:2
注 册:2010-7-16
结帖率:87.5%
收藏
已结贴  问题点数:20 回复次数:1 
用什么办法限制VFP程序的次数(包括电脑重装后限制次数仍能生效)
用下面的方法虽然可以限制程序的使用次数,但电脑重新装机后,程序又可以运行了。请教老师,有什么办法能解决电脑重新装机后仍能限制程序的使用次数
m.loWsh = CreateObject('Wscript.Shell')
m.lcOldErr = ON('ERROR')
ON ERROR m.RunNums = 0
m.RunNums = m.loWsh.RegRead('HKCU\Software\MyCounter\运行次数\')
ON ERROR &lcOldErr
IF m.RunNums > 3
  MESSAGEBOX('已超过允许运行的次数!', 16, '')
quit
ELSE
  m.RunNums = m.RunNums + 1
  m.loWsh.RegWrite('HKCU\Software\MyCounter\运行次数\', m.RunNums, 'REG_DWORD')
ENDIF

搜索更多相关主题的帖子: 办法 老师 
2010-12-25 00:50
zxingzu8501
Rank: 1
等 级:新手上路
帖 子:60
专家分:2
注 册:2010-7-16
收藏
得分:0 
回复cnfarer前辈:怎样在硬盘的某个间隙中写入数据,能否帮忙写这段程序,谢谢
2010-12-25 15:33
快速回复:用什么办法限制VFP程序的次数(包括电脑重装后限制次数仍能生效)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.011340 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved