[已解决]VBS如何循环关闭指定网页并设置倒计时关机？

ygqiang

[已解决]倒计时10分钟关机，循环6秒检测。这2个动作，同步/同时进行。vbs如何实现？

vbs代码，运行1次，就后台循环6秒监控ie地址栏。
1、第一次发现有满足条件的ie地址栏，就关闭ie页面。
并且开始倒计时10分钟，自动关机。
2、同时继续循环6秒检测ie地址栏是否满足条件。发现满足，还是继续关闭IE页面

ivor

如果使用 shutdown -s 关机时间不覆盖上次的关机计划

ygqiang

回复 2# ivor


    问题解决了。。。
2个vbs搭配。。

shut-ie.vbs

1. on error resume next
   
2. kill4399 = "4399.com"
   
3. killxp = "http://xp.4399.com/"
   
4. kill7k7k = "7k7k.com"
   
5. killnews = "http://news.7k7k.com"
   
6. killxyx = "http://xyx.hao123.com"
   
7. killgame = "http://game.hao123.com/"
   
8. set sh = CreateObject("Shell.Application")
   
9. Set k = CreateObject("Wscript.Shell")
   
10. set wnds = sh.windows()
    
11. Set Shell=CreateObject("Shell.Application")
    
12. on error resume next
    
13. while(true) 'By：原始程序林小七 2014.1.30，改版：9zhmke
    
14.     for each wnd in wnds
    
15.         if InStr(wnd.LocationURL, kill4399) or InStr(wnd.LocationURL, killxp) or InStr(wnd.LocationURL, kill7k7k) or InStr(wnd.LocationURL, killnews) or InStr(wnd.LocationURL, killxyx) or InStr(wnd.LocationURL, killgame) then
    
16.                 Wscript.Sleep 300000
    
17.                 wnd.quit
    
18. WScript.CreateObject("wscript.shell").Run "shut-ie-djs.vbs", 0,false
    
19.          end if
    
20.     next
    
21. Wend
    
22. on error goto 0
    
23. 
    
24. 
    
25. 
    
26. 'Shell.ShellExecute "wscript.exe", Chr(34) &  'WScript.ScriptFullName & 'Chr(34) & '" uac", "", "runas", 1

复制代码

ygqiang

shut-ie-djs.vbs

1. Wscript.Sleep 600000
   
2. WScript.CreateObject("wscript.shell").Run "shutdown /f /s /t 1", 0,false

复制代码