我之前才回答过你的问题。。。不过你这次放启动里面,如果启动项有点多的话,5秒过后F5可能就不是针对abc了,这次我在最前面加了一句,我假设你电脑开机后10秒以后可以正常动作
WScript.Sleep 10000
Dim t,t1,t2,ObjWsh
t=Time
Set ObjWsh=WScript.CreateObject("WScript.Shell")
t1=#17:00:00#
t2=#21:00:00#
if t>=t1 and t<=t2 then
ObjWsh.run "c:\abc.exe",1
WScript.Sleep 5000 '不知道你的软件启动要多久,所以这5秒包括了软件启动的时间
ObjWsh.AppActivate "abc" 'abc为软件启动后的窗口名字,可根据实际情况更改
ObjWsh.SendKeys "{F5}"
WScript.Sleep 500
ObjWsh.SendKeys "{% }"
WScript.Sleep 500
ObjWsh.SendKeys "n"
Wscript.Sleep 200
WScript.quit
else
WScript.quit
end if
-----------------------
试试看,应该可以
WScript.Sleep 10000
Dim t,t1,t2,ObjWsh
t=Time
Set ObjWsh=WScript.CreateObject("WScript.Shell")
t1=#17:00:00#
t2=#21:00:00#
do
if t>=t1 and t<=t2 then
ObjWsh.run "c:\abc.exe",1
WScript.quit
else
WScript.Sleep 300000
end if
loop