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替换为不同联系人的桌面快捷方式。如果效果没问题,就可以把这个脚本加入系统的自动调度,定时执行啦。

实测,发送一次之后桌面联系人快捷方式可以删除,保存发送内容的文本快捷方式不可删除。

微信由于没找到怎么发送联系人到桌面还在研究其他替代方案。