qq消息重复发送

来源：互联网 2023-02-21 16:22:39 500

可以重复发送多少条（自己可以设置）消息；

有趣的vbs代码，可以在qq群里，刷个屏什么的；

恩，情侣之间，如果可以，多发送点（效果你懂的）；

可以装个逼啥的。

工具/原料

一台电脑

方法/步骤

创建一个.txt文件（右击-->新建-->文本文档）。

如果显示不了后缀（.txt）：

1.双击打开我的电脑-->查看-->选项-->查看-->在高级选项里，找到"隐藏已知文件类型的扩展名"，去掉前面的勾，确定，就行了。

2.双击打开我的电脑-->查看-->右侧有个“文件扩展名”,打勾，就行了（可能有的电脑系统，不支持这样的）。

qq消息重复发送

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

dim wshshell,aset wshshell=createobject("wscript.shell")a=inputbox ("输入要发信息次数"&chr(13)&chr(13)&"*******★life制作★******"&chr(13)&chr(13)&"请确定刚才光标是在QQ窗体内!","提示")WshShell.AppActivate "" '当前激活的聊天窗口名,例如"QQ群 - 群",在打开的对话框上有显示'wscript.sleep 1000for i=1 to 100 '循环的次数100'wscript.sleep 500 '暂停500毫秒'wshshell.sendkeys "^v" '粘贴wshshell.sendkeys "%s" '%s=enter和sendkeysSendKeys 发送内容'nextwscript.quit

qq消息重复发送

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

dim wshshell,aset wshshell=createobject("wscript.shell")a=inputbox ("输入要发信息次数"&chr(13)&chr(13)&"*******★life制作★******"&chr(13)&chr(13)&"请确定刚才光标是在QQ窗体内!","提示")WshShell.AppActivate "" '当前激活的聊天窗口名,例如"QQ群 - 群",在打开的对话框上有显示'wscript.sleep 1000for i=1 to 100 '循环的次数100'wscript.sleep 500 '暂停500毫秒'wshshell.sendkeys "^v" '粘贴'wshshell.sendkeys i '数字' wshshell.sendkeys "%s" '%s=enter和sendkeysSendKeys 发送内容'nextwscript.quit

改后缀。选中文件，右击，重命名，把后缀 .txt 改成 .vbs，确定。

这样，程序，就写好了。

qq消息重复发送