qq定时发送消息软件
发布网友
发布时间：2022-03-03 06:46
共1个回答
热心网友
时间：2022-03-03 08:15
我们开启运行手机QQ软件，然后找到需要发送QQ消息提醒的好友。 并打开与好友的聊天窗口界面，点击“+”按钮。 并在接下来出现的界面中，找到“提醒”功能选项，并点击该选项。 然后在这里就可以输入消息提醒内容了，然后设置好提醒的时间，最后点击“创建”。 也许在设置的时间到了之后，好友就会收到对应的QQ消息提示了vbs脚本可以实现qq发送，原理是发送联系人到桌面，然后用vbs直接调用桌面快捷方式打开聊天窗口发送消息关闭窗口，然后把这个vbs脚本添加到系统的自动调度，按你需要的时间进行调度，当然你也可以把定时写进vbs，让这个脚本常驻运行，就不用了添加到调度，或者添加为开机自动执行。
首先，你需要建一个文档，把你要发送的内容写入文档，然后保存为txt，发送快捷方式到桌面。找到这个快捷方式，右键，属性，复制目标里边的内容，我在这里称它为A。
然后把你要发消息的人发送快捷方式到桌面，也复制目标里边的内容。我们称它为B
新建一个txt文档，
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "A"
WScript.Sleep 1000
WshShell.SendKeys "^a"
WScript.Sleep 1000
WshShell.SendKeys "^c"
WScript.Sleep 1000
WshShell.sendKeys "%{F4}"
WScript.Sleep 1500
WshShell.Run "B"
WScript.Sleep 1500
WshShell.sendKeys "^v"
WshShell.sendKeys "{ENTER}"
WScript.Sleep 1500
WshShell.sendKeys "%{F4}"
用上边复制的AB路径代替代码里的A B ，保存，重命名，将后缀名改为vbs。手动运行查看效果。当然，脚本运行时qq需要在线，不能在脚本执行打开窗口的一系列操作时操作键盘，不能切换窗口等。WScript.Sleep 1000是一个延时，可以根据自己的电脑适度调小。如果你要给多个人发消息的话，复制第十行以及以后的代码，粘贴多份在后边，并将B替换为不同联系人的桌面快捷方式。如果效果没问题，就可以把这个脚本加入系统的自动调度，定时执行啦。
实测，发送一次之后桌面联系人快捷方式可以删除，保存发送内容的文本快捷方式不可删除。
微信由于没找到怎么发送联系人到桌面还在研究其他替代方案。
网上down了一段代码，发现可以发送微信消息
Dim Name,Msg
Name= "微信团队"
Msg = "Hellow！"
set ws=wscript.createobject("wscript.shell")
Welcome! "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Name&Chr(34)& ")(close)",0,True
ws.sendKeys "^%w"
ws.appactivate "微信"
wscript.sleep 500
ws.sendKeys "^f"
wscript.sleep 500
ws.sendKeys "^v"
wscript.sleep 500
ws.sendKeys "{ENTER}"
wscript.sleep 200
ws.sendKeys "{TAB}"
wscript.sleep 200
ws.sendKeys "{ENTER}"
Welcome! "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Msg &Chr(34)& ")(close)",0,True
wscript.sleep 200
ws.sendKeys "^v"
wscript.sleep 300
ws.sendKeys "{ENTER}"
ws.sendKeys "%{F4}"
name是你要发的人的名字，msg是发送内容QQ自动定时发送消息（微信暂时没有好的办法），可以通过以下代码实现，有人已经给出来了但有些细节没说清楚容易导致不一定能正常运行，我这里做些补充。
1、建立一个txt文档、里面写上需要发送的消息内容，复制这个文件所在路径
2、对目标好友生成桌面快捷方式（对好友头像点右键、在好友管理选项下），查看快捷方式的属性并复制其“目标”栏的所有内容。
3、建立另一个txt文档、复制粘贴下面的脚本代码，然后重命名这个文档、将txt后缀修改为vbs，将前两步当中复制下的内容粘贴进脚本当中对应位置。
4、在任务计划当中建立定时任务、运行制作的vbs脚本文件。
需要注意的地方：
1、QQ的安装目录通常默认是在 C盘的Program Files (x86)文件夹下，这个文件夹的名称中间带有空格，所以直接复制QQ好友快捷方式的目标内容粘贴到脚本里，通常都会导致运行错误，所以最简单的办法是重新安装QQ，选择一个自定义的、名称简单的目录（避免有空格、特殊符号、中文之类的情况）。至于针对空格符应该可以有特别的表达语法以保证VBS脚本正常运行，我没研究过，相信精通VBS脚本的大神应该知道，欢迎指出。
2、QQ发送消息的快捷键，有些人使用的是回车键、有些人可能设置的是ctrl加回车，所以在脚本倒数第三行，可以根据自己需要来设置：如果是ctrl加回车，那么脚本就修改成WshShell.sendKeys "^{ENTER}"
3、脚本运行需要保持QQ处于登录状态，如果发送消息之后并不需要关闭对话框，可以把最后两行脚本删除。
4、如果电脑安装了安全卫士、杀软之类的，在运行脚本的时候可能会被阻止，所以建议在设置计划任务前先把脚本添加进安全软件的白名单。
5、电脑系统需要处于登录状态，不能锁屏。
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "消息内容文本文档所在路径"
WScript.Sleep 1000
WshShell.SendKeys "^a"
WScript.Sleep 1000
WshShell.SendKeys "^c"
WScript.Sleep 1000
WshShell.sendKeys "%{F4}"
WScript.Sleep 1500
WshShell.Run "QQ好友桌面快捷方式目标栏内容"
WScript.Sleep 1500
WshShell.sendKeys "^v"
WshShell.sendKeys "{ENTER}"
WScript.Sleep 1500
WshShell.sendKeys "%{F4}"
