vbScript判断并关闭该网页中没有运行的程序
发布时间：2011-02-14 03:23:56作者：知识屋
1、读取当前进程列表
2、查看是否有目标进程
3、如果没有目标进程运行则，结束所有ieplore.exe进程
代码如下（这里，我用notepad.exe为目标进程，也就是说如果记事本没有运行则，关闭所有ie，当然，你还可以把其他浏览器一块列入关闭序列当中。每隔3分钟检查一次）
option explicit
dim wmi,process,pro,str,program
program="notepad.exe" '这里以记事本为例,如果当前进程没有记事本则关闭所有ie进程
do '进入循环，每3秒检查一次
set wmi=getobject("winmgmts:{impersonationlevel=impersonate}!.rootcimv2")
set process=wmi.execquery("select * from win32_process") '获取当前进程列表
str=""
for each pro in process
str=str&pro.name
next
if instr(str,program) =0 then '检查目标进程是否运行
set process=wmi.execquery("select * from win32_process where name='iexplore.exe'")
for each pro in process
pro.terminate() '如果目标进程没有运行则结束ie进程
next
end if
wscript.sleep 3000 '每3秒钟检测一次
loop
相关知识
软件推荐
更多 >
-
1
通过Response.Flush()实现下载失败的解决方法2013-08-11
-
2
ASP程序员必备的知识
-
3
网站建设：ASP网站防范黑客技巧
-
4
ADO 存取数据库时如何分页显示
-
5
ASP中set与dim的区别(自己的理解)
-
6
为你的ASP程序作一个负载测试
-
7
ASP用户登录模块的设计
-
8
asp获取文件md5值
-
9
asp生成静态HTML(动态读取)
-
10
ASP.NET中获得URL重写前的原始地址
