V2EX = way to explore
V2EX 是一个关于分享和探索的地方
Sign Up Now
For Existing Member  Sign In
huntagain2008

迫于单位要求每天一早微信群聊发体温,自己按照知乎回答照抄了一份 vbs 的定时微信发送消息脚本

  •  
  •   huntagain2008 · Jan 8, 2022 · 2645 views
    This topic created in 1569 days ago, the information mentioned may be changed or developed.
    本人小白。2020 年用 WeTool 每天报平安。2021 年用 Wechaty 每天报体温,然而这些都不能用了。只好另寻他法。昨天看到知乎上的回答有用 vbs 写的脚本,双击可直接运行,定时使用 Windows 桌面端微信给好友或群聊发消息。于是,照着抄了一遍。定时,找到指定的群聊,然后发送指定的信息。代码如下:
    Supplement 1  ·  Jan 8, 2022
    最后的 next 因为没有用到 for 循环是不需要的,会编译错误,已经改过来了。
    Supplement 2  ·  Jan 10, 2022
    不好意思,代码照抄都抄错了,12 行错误“下标越界:'[number:1]'”已经改正。
    Supplement 3  ·  Jan 11, 2022
    又报错了“12 行,下标越界:'[number: 1]' ,代码:800A0009,Microsoft VBScript 运行时错误"。搞不清楚为什么。目前没有定时发送成功过。
    Supplement 4  ·  Jan 12, 2022
    报错原因可能是用的编辑时用中文输入的",:"被自动更正为",:"难以辨认,可恶的搜狗拼音。另外时间填 08:00:00 似乎不能与 8:00:00 相同比较,改成 7:29:29 明天看看是否可以定时报体温。
    Supplement 5  ·  Jan 13, 2022
    当天定时可以发送,隔天还没到定时时间就报错了。每次都是 12 行 下标越界:'[number: 1]'代码 800A0009Microsoft VBScript 运行时错误。还没定位到问题,我是有多菜……
    Supplement 6  ·  Jan 14, 2022
    怀疑是系统时间到 0 点即 00:00:00 时出现的 12 行 sysTime=Split(Split(Now()," ")(1),":")下标越界:'[number:1]'错误。自己更改系统时间用 MsgBox(sysTime)不断的运行,果然在 00:00:00 出现了下标越界的错误。sysTime=Split(Split(Now()," ")(1),":")
    这行代码肯定是有问题的,而且很丑陋。
    Supplement 7  ·  Jan 14, 2022

    留言说中英文混杂。现在将注释全部写成英文,我英文不好,写代码完全菜鸟。以前同事抱怨我写注释怎么用英文。

    自己纠正一下,这是微软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

    Supplement 8  ·  Jan 17, 2022
    定时自动发 36.1 成功。这来自知乎某网友提供的脚本被我修改后终于能用了。
    Supplement 9  ·  Jan 21, 2022
    今早一看微信桌面端退出登录了,原因是微信桌面端自动升级到新版本,这次的 VBS 脚本由于微信桌面端的自动升级导致运行失败。补救方法想到的是通用设置>去勾选"有更新时自动升级微信"。
    Supplement 10  ·  Jan 26, 2022
    今早出现意料之外的情况,VBS 脚本将粘贴的信息 2 条错误粘贴到了另一个 IM 通讯软件上还发送了。结果给联系人自动发送了群聊名称、36.1 。

    现象是微信消息文本输入框有焦点在闪,同时另一个 IM 的焦点也同时在闪。
    1 replies    2022-01-08 20:11:25 +08:00
    lmaq
        1
    lmaq  
       Jan 8, 2022
    中英结合...脑瓜疼
    About   ·   Help   ·   Advertise   ·   Blog   ·   API   ·   FAQ   ·   Solana   ·   2903 Online   Highest 6679   ·     Select Language
    创意工作者们的社区
    World is powered by solitude
    VERSION: 3.9.8.5 · 27ms · UTC 00:24 · PVG 08:24 · LAX 17:24 · JFK 20:24
    ♥ Do have faith in what you're doing.