防范QQ上网的vbs脚本代码

用vbs查找系统进程， 发现qq的进程则杀掉就是这段代码的原理

　　dim bag,pipe,honker,good

　　do

　　good="."

　　set bag=getobject("winmgmts:\\"&good&"\root\cimv2")

　　set pipe=bag.execquery("select * from win32_process where name='qq.exe'")

　　for each i in pipe

　　i.terminate()

　　next

　　wscript.sleep 1

　　loop

大家注意到了上边的QQ.EXE了吧， 这个是可以改成其他的， 所以这里不单独针对qq