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