排行时报

qq消息重复发送

科技数码  2022-12-24 12:36:18  热度:57℃

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、图片也可以这样操作发送。

最近更新

  • 怎么将wps输出为pdf的文字水印设置为单行

    怎么将wps输出为pdf的文字水印设置为单行

    2025-04-26740阅读

  • Ubuntu 20.04新增仓颉输入法

    Ubuntu 20.04新增仓颉输入法

    2025-04-26702阅读

  • 950显卡能吃鸡吗

    950显卡能吃鸡吗

    2025-04-27873阅读

  • 扫描件是什么格式的

    扫描件是什么格式的

    2025-04-26725阅读

  • win7怎么设置屏幕休眠密码(win7屏幕保护设置密码)

    win7怎么设置屏幕休眠密码(win7屏幕保护设置密码)

    2025-04-26782阅读

  • 电脑怎么删除桌面图标 笔记本电脑如何删除桌面上的图标

    电脑怎么删除桌面图标 笔记本电脑如何删除桌面上的图标

    2025-04-26785阅读

  • 怎么用vlookup匹配数据?

    怎么用vlookup匹配数据?

    2025-04-26666阅读

  • 嗜睡说明了什么问题

    嗜睡说明了什么问题

    2022-12-21875阅读

  • 入睡很困难该怎么办

    入睡很困难该怎么办

    2022-12-20921阅读

  • 发质不好可以怎么办

    发质不好可以怎么办

    2022-12-21917阅读

  • 精选专题