qq消息重复发送

更新: 2016-07-21 21:21 作者:

可以重复发送多少条(自己可以设置)消息

有趣的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消息重复发送

qq消息重复发送

1.双击文件,显示如下,界面。

在qq框里输入你想输入的内容(如青春飞扬),c选中青春飞扬,ctrl+x(剪切)或者ctrl+c(复制)(个人建议ctrl+x),确定,再把鼠标的光标放在qq输入框里,就行了,可能防火墙,会阻止进程,选择,允许操作,确定,即可。

qq消息重复发送

qq消息重复发送

2.图片也可发送。

具体操作与文字操作一致。

qq消息重复发送

如果被你电脑的防火墙拦截,报错,请选择允许进程。

qq消息重复发送

效果显示。

qq消息重复发送

鼠标的光标放在要发送消息的框里

要发送的内容,要ctrl+x或者ctrl+c