VX收款监控源码

VX收款监控源码

@晓风残月梦微凉

.版本 2
.支持库 EDataStructure
.支持库 spec

.子程序 子程序1, 逻辑型
.局部变量 局_句柄, 整数型
.局部变量 详细信息, 精易_详细信息, , "0"
.局部变量 i, 整数型
.局部变量 局_逻辑值, 逻辑型
.局部变量 局_收款文本, 文本型
.局部变量 正则, 正则表达式类
.局部变量 局_时间, 日期时间型
.局部变量 局_开始获取, 逻辑型
.局部变量 局_逻辑值_返回, 逻辑型

局_句柄 ＝ 窗口_取句柄 (, , “ChatWnd”, “微信支付”)
.如果真 (局_句柄 ＝ 0)
    信息框 (“错误 微信支付 界面未单独打开!”, 0, , )
    返回 (假)
.如果真结束
自绘窗口_解析 (局_句柄, , , , 详细信息)
.计次循环首 (取数组成员数 (详细信息), i)
    .如果真 (文本_是否为数字 (取文本右边 (详细信息 [i].控件名称, 2)) ＝ 真)
        ' 正则.创建 (, , , , , )
        ' 调试输出 (, , 详细信息 [i].控件名称)
        正则.创建 (“(202\d)年(\d+)月(\d+)日 (\d+):(\d+)|(\d+):(\d+)”, 详细信息 [i].控件名称, , 真, 真, 真)
        ' 调试输出 (正则.取子匹配文本 (1, 1, ), 正则.取子匹配文本 (1, 2, ), 正则.取子匹配文本 (1, 3, ), 正则.取子匹配文本 (1, 4, ), 正则.取子匹配文本 (1, 5, ), 正则.取子匹配文本 (1, 6, ), 正则.取子匹配文本 (1, 7, ))
        局_时间 ＝ 取现行时间 ()
        .判断开始 (正则.取子匹配文本 (1, 6, ) ≠ “”)
            局_开始获取 ＝ 真
        .判断 (取年份 (局_时间) ＝ 到整数 (正则.取子匹配文本 (1, 1, )) 且 取月份 (局_时间) ＝ 到整数 (正则.取子匹配文本 (1, 2, )) 且 取日 (局_时间) ＝ 到整数 (正则.取子匹配文本 (1, 3, )))
            局_开始获取 ＝ 真
        .默认

        .判断结束
        ' 本源码来自三叶资源网(www.sanye.cx)
    .如果真结束

    .如果真 (局_开始获取 ＝ 真)
        .如果真 (详细信息 [i].控件名称 ＝ “收款到账通知”)
            局_收款文本 ＝ “”
            局_逻辑值 ＝ 真
        .如果真结束

        .如果真 (详细信息 [i].控件名称 ＝ “收款小账本”)
            .如果真 (节点.取逻辑值 (局_收款文本, 局_逻辑值_返回) ＝ 假)
                节点.加入属性 (局_收款文本, 真)
                调试输出 (局_收款文本)
            .如果真结束


            局_逻辑值 ＝ 假
            局_收款文本 ＝ “”
        .如果真结束

        .如果真 (局_逻辑值 ＝ 真)
            .判断开始 (详细信息 [i].控件值 ＝ 详细信息 [i].控件名称 且 详细信息 [i].控件名称 ≠ “”)
                局_收款文本 ＝ 局_收款文本 ＋ 详细信息 [i].控件名称 ＋ “   ”
                ' 本源码来自三叶资源网(www.sanye.cx)
            .判断 (详细信息 [i].控件值 ＝ “” 且 取文本左边 (详细信息 [i].控件名称, 2) ＝ “￥”)
                局_收款文本 ＝ 局_收款文本 ＋ 详细信息 [i].控件名称 ＋ “   ”
            .默认

            .判断结束

        .如果真结束


    .如果真结束

    ' 调试输出 (详细信息 [i].控件值, 详细信息 [i].控件名称, , , i)
.计次循环尾 ()
调试输出 (“完成”, , , 局_开始获取)

返回 (真)