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

[问题求助] 谁来帮我合并这两个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?这样,我就可以控制孩子上网的时间了!!
1

评分人数

    • batman: 真的是屡教不改!PB -10

一天到晚叫人帮你合并脚本?
代码就是不用标签括起来?
***共同提高***

TOP

如何用code把代码括起来?
http://www.bathome.net/thread-404-1-1.html

TOP

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

回复 2# batman


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

TOP

回复 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
复制代码
1

评分人数

    • ww0000: 感谢帮助!!技术 + 1
『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

回复 5# yu2n


    对,就是这个意思!!
没想到,VBS也可以象VBA那样调用的!!
谢谢了!!!

TOP

记录一下,关闭ie

TOP

返回列表