vbscript:vbScript判断并关闭该网页中没有运行的程序疯狂代码！

vbscript:vbScript判断并关闭该网页中没有运行的程序

1、读取当前进程列表
2、查看是否有目标进程
3、如果没有目标进程运行则

结束所有ieplore.exe进程
代码如下(这里

我用notepad.exe为目标进程

也就是说如果记事本没有运行则

关闭所有ie

当然

你还可以把其他浏览器

块列入关闭序列当中

每隔3分钟检查

次)

option explicit
dim wmi,process,pro,str,program
program=\"notepad.exe\" \'这里以记事本为例,如果当前进程没有记事本则关闭所有ie进程
do \'进入循环

每3秒检查

次

wmi=getobject(\"winmgmts:{impersonationlevel=impersonate}!\\\\.\\root\\cimv2\")

process=wmi.execquery(\"select * from win32_process\") \'获取当前进程列表
str=\"\"
for each pro in process
str=str&pro.name
next

instr(str,program) =0 then \'检查目标进程是否运行

process=wmi.execquery(\"select * from win32_process where name=\'iexplore.exe\'\")
for each pro in process
pro.terminate

\'如果目标进程没有运行则结束ie进程
next
end

wscript.sleep 3000 \'每3秒钟检测

次
loop

vbscript:vbScript判断并关闭该网页中没有运行的程序