vbscript定时发送微信消息

发布网友发布时间：2022-11-19 15:18

共1个回答

热心网友时间：2024-12-13 10:10

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

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}"

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