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替换为不同联系人的桌面快捷方式。如果效果没问题，就可以把这个脚本加入系统的自动调度，定时执行啦。
实测，发送一次之后桌面联系人快捷方式可以删除，保存发送内容的文本快捷方式不可删除。
微信由于没找到怎么发送联系人到桌面还在研究其他替代方案。
