[问题求助] 谁来帮我合并这两个VBS脚本？

ww0000

以下是运行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？这样，我就可以控制孩子上网的时间了！！

zhangop9

记录一下，关闭ie

ww0000

回复 5# yu2n


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

yu2n

回复 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

回复 2# batman


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

BAT-VBS

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

batman

一天到晚叫人帮你合并脚本？
代码就是不用标签括起来？