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.skeys "^v" '粘贴
wshshell.skeys "%s" '%s=enter和skeysSKeys +发送内容'
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.skeys "^v" '粘贴'
wshshell.skeys i '数字'
wshshell.skeys "%s" '%s=enter和skeysSKeys +发送内容'
next
wscript.quit