用下面的方法虽然可以限制程序的使用次数，但电脑重新装机后，程序又可以运行了。请教老师，有什么办法能解决电脑重新装机后仍能限制程序的使用次数
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

这可不太容易。当然方法还是有的，比如：在硬盘的某个间隙中写入数据，这个位置不会因为对硬盘的处理（重装系统，重新分区，甚至格式化）而改变。

将记录使用次数保存到一个内存变量中（或表的字段中），每次启动时检查，不满足时加1并保存这个变量，否则退出。

自己建立一个服务器挂在互联网上，或者租用空间建立一个网站。用户每次启动程序时先访问这个网站（或服务器），并记录下该用户的使用次数，满足条件的就继续运行，不满足条件的就退出程序。
不过这样做你的程序在使用上就将受到很大的限制，未联网、网络不好或服务器故障都有可能造成程序不能正常运行。

回复cnfarer前辈：怎样在硬盘的某个间隙中写入数据，能否帮忙写这段程序，谢谢

楼主，您一个问题已经连续发了四个帖子了（包括被删的），不是已经告诉过您，可以把运行次数保存到变量文件（或表字段）中吗，难道还真的要给您把代码写出来不可？
看您写出来的代码格式，觉得还挺专业的，但不知道为什么……我都不会表述了。
建议您好好了解一下Restor From以及Save to ……Like……的用法，它可以告诉您如何从内存变量文件中取出变量和如何把变量存入内存变量文件中。

楼主可能想玩加密,以上各位出的主意都不能达到他要求的加密强度,所以他还不满足.

道高一尺，魔高一丈，任何一种加密都有被解密的可能！

[ 本帖最后由 啸凡 于 2010-12-28 21:24 编辑 ]

VFP程序是个比较开放的程序。稍有一点VFP能力的，就能破解所有的VFP加密努力。