迫于单位要求每天一早微信群聊发体温，自己按照知乎回答照抄了一份 vbs 的定时微信发送消息脚本
huntagain2008 · 2022-01-08 14:34:33 +08:00 · 2234 次点击这是一个创建于 1051 天前的主题，其中的信息可能已经有所发展或是发生改变。
本人小白。2020 年用 WeTool 每天报平安。2021 年用 Wechaty 每天报体温，然而这些都不能用了。只好另寻他法。昨天看到知乎上的回答有用 vbs 写的脚本，双击可直接运行，定时使用 Windows 桌面端微信给好友或群聊发消息。于是，照着抄了一遍。定时，找到指定的群聊，然后发送指定的信息。代码如下：
第 1 条附言 · 2022-01-08 18:40:09 +08:00
最后的 next 因为没有用到 for 循环是不需要的，会编译错误，已经改过来了。
第 2 条附言 · 2022-01-10 08:58:10 +08:00
不好意思，代码照抄都抄错了，12 行错误“下标越界:'[number:1]'”已经改正。
第 3 条附言 · 2022-01-11 10:25:56 +08:00
又报错了“12 行，下标越界:'[number: 1]' ，代码:800A0009,Microsoft VBScript 运行时错误"。搞不清楚为什么。目前没有定时发送成功过。
第 4 条附言 · 2022-01-12 08:43:16 +08:00
报错原因可能是用的编辑时用中文输入的"，："被自动更正为",:"难以辨认，可恶的搜狗拼音。另外时间填 08:00:00 似乎不能与 8:00:00 相同比较，改成 7:29:29 明天看看是否可以定时报体温。
第 5 条附言 · 2022-01-13 08:16:48 +08:00
当天定时可以发送，隔天还没到定时时间就报错了。每次都是 12 行 下标越界:'[number: 1]'代码 800A0009Microsoft VBScript 运行时错误。还没定位到问题，我是有多菜……
第 6 条附言 · 2022-01-14 08:10:25 +08:00
怀疑是系统时间到 0 点即 00:00:00 时出现的 12 行 sysTime=Split(Split(Now()," ")(1),":")下标越界:'[number:1]'错误。自己更改系统时间用 MsgBox(sysTime)不断的运行，果然在 00:00:00 出现了下标越界的错误。sysTime=Split(Split(Now()," ")(1),":")
这行代码肯定是有问题的，而且很丑陋。
这行代码肯定是有问题的，而且很丑陋。
第 7 条附言 · 2022-01-14 09:42:24 +08:00
留言说中英文混杂。现在将注释全部写成英文，我英文不好，写代码完全菜鸟。以前同事抱怨我写注释怎么用英文。
自己纠正一下，这是微软VBS代码，并不是VB,完全照搬VB的语法会有编译错误。
微软VBS文档没找到，对着微软VB的文档DateAndTime看了10分钟，定时时间改成这种格式#7：19：01 PM# 用Hour()得到19,这个19是数字 。知乎的代码是通过截取字符串获得小时分钟秒的字符串，可是在跨天0点即00:00:00却出现作者意料之外的情况，仅得到2022/1/15日期，却没有后面的HH:mm:ss比如09:23:45
第 8 条附言 · 2022-01-17 07:48:58 +08:00
定时自动发 36.1 成功。这来自知乎某网友提供的脚本被我修改后终于能用了。
第 9 条附言 · 2022-01-21 07:57:02 +08:00
今早一看微信桌面端退出登录了，原因是微信桌面端自动升级到新版本，这次的 VBS 脚本由于微信桌面端的自动升级导致运行失败。补救方法想到的是通用设置>去勾选"有更新时自动升级微信"。
第 10 条附言 · 2022-01-26 08:27:42 +08:00
今早出现意料之外的情况，VBS 脚本将粘贴的信息 2 条错误粘贴到了另一个 IM 通讯软件上还发送了。结果给联系人自动发送了群聊名称、36.1 。
现象是微信消息文本输入框有焦点在闪，同时另一个 IM 的焦点也同时在闪。
现象是微信消息文本输入框有焦点在闪，同时另一个 IM 的焦点也同时在闪。
Select Language