[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] [已解决]VBS如何循环关闭指定网页并设置倒计时关机?

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

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

评分人数

    • pcl_test: 勿发笼统无意义的标题PB -4

如果使用 shutdown -s 关机时间不覆盖上次的关机计划
#&cls&@powershell "Invoke-Expression ([Io.File]::ReadAllText('%~0',[Text.Encoding]::UTF8))" &pause&exit

TOP

回复 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. 'Shell.ShellExecute "wscript.exe", Chr(34) &  'WScript.ScriptFullName & 'Chr(34) & '" uac", "", "runas", 1
复制代码

TOP

shut-ie-djs.vbs
  1. Wscript.Sleep 600000
  2. WScript.CreateObject("wscript.shell").Run "shutdown /f /s /t 1", 0,false
复制代码

TOP

返回列表