在你的原代码前面加上以下一段代码：
Set WshShell=WScript.CreateObject("WScript.Shell")
Key="HKEY_CURRENT_CONFIG\Software\avbs\"
on error resume next
Last=WshShell.RegRead(Key&"Start")
a=split(Last,"\"):LastDay=a(0)
if LastDay=CStr(date()) then
b=a(1):c=a(2)
if c<>"" then
WshShell.Popup "今天内你已经运行了两次，再见! ",5,"警告!",VbExclamation
Wscript.Quit
end if
else
WshShell.RegDelete(Key&"Start")
end if
on error goto 0
if c="" then WshShell.Regwrite(Key&"Start"),date()&"\1\2"
if b="" then WshShell.Regwrite(Key&"Start"),date()&"\1"
（
RE：6楼）更新以上代码如下（没有提示）：
Set WshShell=WScript.CreateObject("WScript.Shell")
num=2 '设置允许启动次数
Key="HKEY_CURRENT_CONFIG\Software\avbs\"
on error resume next
Last=WshShell.RegRead(Key&"Start")
a=split(Last,"\"):LastDay=a(0)
if LastDay=CStr(date()) then
b=cint(a(1)):if b=num then:Wscript.Quit
else
WshShell.RegDelete(Key&"Start")
end if
on error goto 0
ctr=b+1
WshShell.Regwrite(Key&"Start"),date()&"\"&ctr
Last edited by newxso on 2009-2-26 at 19:54 ]
