qq消息重复发送

01

电脑桌面右键，选择新建文本文档。

02

点击我的电脑，再点击查看按钮，将文件扩展名勾选上，可以看到之前新建的文本文档的后缀显示出来了。

03

填写无数字的代码。在.txt中填写，代码如下：（如图）没有数字的，显示发送了多少次：

dim wshshell,a

set wshshell=createobject("wscript.shell")

a=inputbox ("输入要发信息次数"&chr(13)&chr(13)&"*******★life制作★******"&chr(13)&chr(13)&"请确定刚才光标是在谨渗手QQ窗体内!","提示")

WshShell.AppActivate "" '当前激活的聊天窗口名,例如"QQ群 - 群",在打开的对话框上有显示'

wscript.sleep 1000

for i=1 to 100 '循环的次数100'

wscript.sleep 500 '暂停500毫秒'

wshshell.sendkeys "^v" '粘贴

wshshell.sendkeys "%s" '祥嫌%s=enter和sendkeysSendKeys +发送内容'

next

wscript.quit

04

填写有数字的代码。在.txt中填写，代码如下：有数字的，显示发送了多少次：

dim wshshell,a

set wshshell=createobject("wscript.shell")

a=inputbox ("输入要发信息次数"&chr(13)&chr(13)&"*******★life制作★******"&chr(13)&chr(13)&"请确定刚才光标是在QQ窗体内!","提示")

WshShell.AppActivate "" '当前激活的聊天窗口名,例如"QQ群 - 群",在打开的对话框上有显示'

wscript.sleep 1000

for i=1 to 100 '循环的次数100'

wscript.sleep 500 '暂停500毫秒'

wshshell.sendkeys "^v" '粘喊中贴'

wshshell.sendkeys i '数字'

wshshell.sendkeys "%s" '%s=enter和sendkeysSendKeys +发送内容'

next

wscript.quit

05

右键选中文档，点击重命名，将文本文档的后缀改为.vbs，确定。这样程序就设置好了。

06

双击程序，在对话框中输入你想输入的内容，如：青春飞扬。然后选中输入的内容，ctrl+x（剪切）或者ctrl+c（复制）确定，再把鼠标的光标放在qq输入框里，就行了。

07

如果有防火墙组织，点击允许即可。

08

图片也可以这样 *** 作发送。

1、鼠标左键先点一下聊毕迟天框陵山，输入自己想说内容点击“发送就能发消息了，再次输入想说的内容，再次点击发送活或者按回车键就能连续发送了。

2、如果想群发可以下载QQ群发器，能够自动把编辑好的内尺数中容群发给QQ好友或者QQ群。

---