vbscript定时发送微信消息

摘要

本程序实现定时向指定微信群发送指定消息的功能。
主要工具如下：

• vbscript编写;

设计目的

2020年受疫情影响，需要定时给小朋友所在学校的微信群发送体温，于是想到了借助程序~~

依赖条件

pc保持开机状态，微信pc端在线

功能描述

通过模拟键盘输入，替代手工敲击键盘，达到自动发送消息的效果。

原代码

Dim Name,Msg
Name = "微信群名"
Msg = "xxx小朋友，体温36.5"
set ws=wscript.createobject("wscript.shell")
ws.Run "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 2000
ws.Run "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}"

配置计划任务

image.png

仅针对微信群名未更换的情况，如果微信群名称更换了，也要及时变更哦，喜欢的点个赞哈～