请教VFP程序限制使用次数的问题
用下面这段限制了VFP程序的使用次数,为什么程序使用次数超过允许运行的次数后,弹出“已超过允许运行的次数”窗口,但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, '')
ELSE
m.RunNums = m.RunNums + 1
m.loWsh.RegWrite('HKCU\Software\MyCounter\运行次数\', m.RunNums, 'REG_DWORD')
ENDIF
我的意思是设置VFP程序使用次数超过允许运行的次数后,就不再运行程序了,请教老师以上这段有什么不对的地方,帮忙指导指导,谢谢