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

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

微信没有定时发送功能。

虽然微信本身没有提供定时发消息的功能，但是我们可以通过小程序完成定时发消息的 *** 作。

第一步：在微信中搜索“本信”小程序。

第二步：选择“图音”，输入想发送的文字，并且可以添加图片、语音。

第三步：下面的两个选项可以设置一个时间之后才可以看到这条消息，并且也可以限制看到本消息的地点。

第四步：完成之后点击“发送”，即可发送“定时消息”。

工具／原料：

微信版本Version7.0.6、蜗牛传书（小程序）版本v0.1.9、vivoS10、OriginOS1.0。

1、微信本身是无法定时发送消息的，这里需要借助一个小程序－蜗牛传书；首先打开并登录微信查找小程序，这里有两种渠道，一种是在微信主界面向下拉动页面进入，另外一种是在发现页面的最下方。

2、然后进入小程序，点击右上角的搜索小图标。

3、在搜索框里输入－蜗牛传书，点击下方的蜗牛传书pro。

4、接下来根据相应提示完成登录 *** 作，如微信授权登录、允许获取相关信息等，才能完全进入，如下图。

5、进入小程序之后，在首页找到并点击创建。

6、进入编辑页面，可以选择消息的开启时间、书信内容以及信纸的款式。

7、点击下方的更多设置，还可以对落款、内容提示、互动设置这三个进行设置，完成后点击保存。

8、最后选择发送即可完成定时发送消息。

---