禁止QQ上网的vbs脚本代码
时间:2021-08-14 08:32:46|栏目:VBS|点击: 次
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
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
栏 目:VBS
下一篇:VBS教程:VBScript 基础-VBScript 过程
本文标题:禁止QQ上网的vbs脚本代码
本文地址:http://www.codeinn.net/misctech/166866.html