信息轰炸vbs

1.新建一个vbs文件

2.复制粘贴

set wshshell=wscript.createobject("wscript.shell")

for i=1 to 10  //发送多少条   

wscript.sleep 200   

wshshell.sendKeys "^v"

wshshell.sendKeys "%s"

next

3.打开聊天窗口输入要发送的信息右键复制。迅速双击vbs文件，再点击聊天输入窗口

我写的这么辛苦 要追加分哦~

QQ自动发送消息

代码开始:

do '死循环

Set WshShell= WScript.createobject("WScript.Shell")

WshShell.AppActivate "QQ自动发送消息脚本"

dim myarray(5)

myarray(0)="aaa"

myarray(1)="bbbb"

myarray(2)="ccc"

myarray(3)="ddd"

myarray(4)="eeee"

myarray(5)="ffff"

myarray(n)="你要发送的消息" '自己还可以加，不支持中文信息

for i=0 to n '如果为五组消息，则把n 改成5

WScript.Sleep 1000

WshShell.SendKeys myarray(i)

WshShell.SendKeys "%s" 'QQ发送消息默认为CTRL+S 如果改成了按ENTER键发送则应改为WshShell.SendKeys "{enter}"

Next

wscript.sleep 2000

loop

代码结束 下面时QQ信息攻击脚本

用法：把下面的代码复制到一个新建的记事本里,再重命名为xxxx.vbs

首先复制你要发送给对方的消息

然后双击这个vbs

再点一下与对方聊天的窗口

程序代码

Set WshShell= WScript.createobject("WScript.Shell")

WshShell.AppActivate "QQ信息攻击脚本"

for i=1 to 20 '把20改成40则发送40次，随自己改

WScript.Sleep 1000 每隔1/6秒发送一次消息

WshShell.SendKeys"^v"

WshShell.SendKeys "%s" WshShell.SendKeys "%s" 'QQ发送消息默认为CTRL+S 如果改成了按ENTER键发送则应改为WshShell.SendKeys "{enter}"

Next

祝你用得开心~

我犯了个低级错误，QQ2009没有“与XX聊天中”，不过我还是写了一下

Set objWord = CreateObject("Word.Application")

Set colTasks = objWord.Tasks

For Each objTask In colTasks

If RegExpTest(".聊天中",objTask.Name) '这里设置表达式

Then

colTasks(objTask.Name).Close

Exit For

End If

Next

objWord.Quit

Function RegExpTest(patrn, str)

Dim regEx, retVal

Set regEx = New RegExp ' 建立正则表达式。

regEx.Pattern = patrn ' 设置模式。

regEx.IgnoreCase = False ' 设置是否区分大小写。

retVal = regEx.Test(str) ' 执行搜索测试。

If retVal Then

RegExpTest=1

Else

RegExpTest=0

End If

End Function

要关2009的MS得判断它老爸是不是QQ

---