vbs微信自动发送消息脚本

微信,作为日前最热最火的社交软件,应该是家喻户晓的了,年轻人,老人甚至小孩都在用手机玩微信,对于上班族来说用的最多的可能是微信电脑版,我们每天都在手工输入发送或者回复各类微信消息,难免会遇到一些情况我们需要电脑自动帮我们向指定人发送消息,而利用windows中的vbs的脚本我们就可以实现,我们首先了解一下vbs。

vbs,全称Microsoft Visual Basic Script Edition,是微软开发的一个基于Visual Basic的脚本语言,可以在windows上直接打开。

在vbs中我们可以通过sendkeys轻松的模拟发送各类按键和文字,但是直接发送中文字符会乱码,所以我们需要先将待发送的中文字符放入剪切板然后再从剪切板取出内容发送,在cmd中我们可以通过管道连接echo和clip.exe来将内容放入剪切板,

echo 测试 | clip.exe

在cmd命令行窗口中输入以上命令,你会发现“测试”这两个字符被放入了剪切板,在vbs中我们只需要调用这个命令就可以实现将内容放到剪切板的操作:

ws.Run "cmd.exe /c echo 测试 | clip.exe", 0, True

现在我们清楚如果发送消息,也知道如何发送中文了,但是要向微信发送消息我们还需要知道怎么在任意界面下唤醒微信,一般的应用我们可以通过appActivate来激活窗口,当然我们也可以通过快捷键来唤醒某个软件或执行特定的操作,比如在微信中我们可以通过Ctrl+Alt+W来唤醒微信,用Ctrl+F来唤醒查找好友功能。

最终的代码:

Dim Name,Msg
Name= "文件传输助手"
Msg = "你好,测试"
set ws=wscript.createobject("wscript.shell")
ws.Run "cmd.exe /c echo " & Name & " | clip.exe",0,True
ws.Run "mshta javascript:window.execScript('window.close','vbs')",0,True
ws.sendKeys "^%w"
wscript.sleep 500
ws.sendKeys "^f"
wscript.sleep 500
ws.sendKeys "^v"
wscript.sleep 500
ws.sendKeys "{ENTER}"
wscript.sleep 500
ws.Run "cmd.exe /c echo " & Msg & " | clip.exe",0,True
wscript.sleep 500
ws.sendKeys "^v"
wscript.sleep 500
ws.sendKeys "{ENTER}"

其中Name代表发送对象的名称,这里发送给文件传输助手,Msg代表待发送内容。

vbs教程:https://www.runoob.com/vbscript/vbscript-tutorial.html

  • 支付宝二维码 支付宝
  • 微信二维码 微信
相关文章