Board logo

标题: [问题求助] 谁来帮我合并这两个VBS脚本? [打印本页]

作者: ww0000    时间: 2013-1-24 21:19     标题: 谁来帮我合并这两个VBS脚本?

以下是运行IE 20分钟后退出程序,并出现提示框
  1. do
  2. set mi=getobject("winmgmts:win32_process").instances_
  3. for each p in mi
  4. if ucase(p.name)=ucase("iexplore.exe") then
  5. wscript.sleep 1000*60*20
  6. set ws=createobject("wscript.shell")
  7. P.terminate
  8. MsgBox "你已经上网太久了,休息一下吧!"
  9. end if
  10. next
  11. wscript.sleep 200
  12. loop
复制代码
以下是禁用IE浏览器的脚本,
  1. do
  2. set mi=getobject("winmgmts:win32_process").instances_
  3. for each p in mi
  4. if ucase(p.name)=ucase("iexplore.exe") then
  5. p.terminate
  6. MsgBox "你不能上网"
  7. end if
  8. next
  9. wscript.sleep 2000
  10. loop
复制代码
如何使两者合一,在运行IE后20分钟,自动退出,并禁止再使用IE?这样,我就可以控制孩子上网的时间了!!
作者: batman    时间: 2013-1-24 22:44

一天到晚叫人帮你合并脚本?
代码就是不用标签括起来?
作者: BAT-VBS    时间: 2013-1-24 22:59

如何用code把代码括起来?
http://www.bathome.net/thread-404-1-1.html
作者: ww0000    时间: 2013-1-25 08:00

本帖最后由 ww0000 于 2013-1-25 08:02 编辑

回复 2# batman


版主,我不会用标签,是我不对,我改!
我不懂请求帮助,这也是你做论坛的基本功能和初衷!
正因为我不懂,才求助!
正因为你论坛有这个功能,我才光顾!
我很感谢所有帮助过我的老师!
很感谢这个论坛让我学到了不少知识!
但您这样打击我的发帖积极性,我就有意见了!
如果没人在这里发帖求助,论坛怎么发展?
任何的发明和进步都是好奇开始的!
各种奇怪的问题和设想,才能让高手有创作的空间!
说句您不爱听的话!
你的论坛每天有多少人光顾?
我看了几天,除了我,发帖的人有多少?
我也上一个VBA论坛,每天的发帖量达到上千次!
那里的版主也不是你这样动不动就扣分!
您说呢?
作者: yu2n    时间: 2013-1-26 22:26

回复 1# ww0000

把第二段程序写到一个函数(这里是check_ie_run)里,在第一段程序里面调用。
代码如下:
  1. do
  2.     set mi=getobject("winmgmts:win32_process").instances_
  3.     for each p in mi
  4.         if ucase(p.name)=ucase("iexplore.exe") then
  5.             wscript.sleep 1000*60*20
  6.             set ws=createobject("wscript.shell")
  7.             P.terminate
  8.             MsgBox "你已经上网太久了,休息一下吧!"
  9.             
  10.             ' 调用检查函数,关闭IE
  11.             Call check_ie_run()
  12.             
  13.         end if
  14.     next
  15.     wscript.sleep 200
  16. loop
  17. ' 检查并关闭IE
  18. sub check_ie_run()
  19.     do
  20.         set mi=getobject("winmgmts:win32_process").instances_
  21.         for each p in mi
  22.             if ucase(p.name)=ucase("iexplore.exe") then
  23.                 p.terminate
  24.                 MsgBox "你不能上网"
  25.              end if
  26.         next
  27.         wscript.sleep 2000
  28.     loop
  29. end sub
复制代码

作者: ww0000    时间: 2013-1-27 08:22

回复 5# yu2n


    对,就是这个意思!!
没想到,VBS也可以象VBA那样调用的!!
谢谢了!!!
作者: zhangop9    时间: 2020-12-27 20:23

记录一下,关闭ie




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2