标题: [问题求助] 谁来帮我合并这两个VBS脚本? [打印本页]
作者: ww0000 时间: 2013-1-24 21:19 标题: 谁来帮我合并这两个VBS脚本?
以下是运行IE 20分钟后退出程序,并出现提示框- do
- set mi=getobject("winmgmts:win32_process").instances_
- for each p in mi
- if ucase(p.name)=ucase("iexplore.exe") then
- wscript.sleep 1000*60*20
- set ws=createobject("wscript.shell")
- P.terminate
- MsgBox "你已经上网太久了,休息一下吧!"
- end if
- next
- wscript.sleep 200
- loop
复制代码
以下是禁用IE浏览器的脚本,- do
- set mi=getobject("winmgmts:win32_process").instances_
- for each p in mi
- if ucase(p.name)=ucase("iexplore.exe") then
- p.terminate
- MsgBox "你不能上网"
- end if
- next
- wscript.sleep 2000
- 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)里,在第一段程序里面调用。
代码如下:- do
- set mi=getobject("winmgmts:win32_process").instances_
- for each p in mi
- if ucase(p.name)=ucase("iexplore.exe") then
- wscript.sleep 1000*60*20
- set ws=createobject("wscript.shell")
- P.terminate
- MsgBox "你已经上网太久了,休息一下吧!"
-
- ' 调用检查函数,关闭IE
- Call check_ie_run()
-
- end if
- next
- wscript.sleep 200
- loop
-
- ' 检查并关闭IE
- sub check_ie_run()
- do
- set mi=getobject("winmgmts:win32_process").instances_
- for each p in mi
- if ucase(p.name)=ucase("iexplore.exe") then
- p.terminate
- MsgBox "你不能上网"
- end if
- next
- wscript.sleep 2000
- loop
- 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 |