Web微信协议支持二次开发机器人、收款监控

收款_表 ＝ Main_window.列表_收款
收款_金额 ＝ 文本_取出中间文本 (数据_内容, #收款_前, #收款_后)
收款_汇总 ＝ 文本_取出中间文本 (数据_内容, “汇总：”, “
”)
表_index ＝ 收款_表.插入表项 (, , , , , )
收款_表.置标题 (表_index, 1, 到文本 (收款_表.取表项数 ()))
收款_表.置标题 (表_index, 2, log_操作.Time_ ())
收款_表.置标题 (表_index, 3, 收款_金额)
收款_表.置标题 (表_index, 4, 收款_汇总) ' 暂时不改

通用_json [1].解析 (联系人_信息)
联系人_数量 ＝ 通用_json [1].取通用属性 (“MemberCount”)
通用_json [2] ＝ 通用_json [1].取属性 (“MemberList”)
全局_有效联系人数量 ＝ 通用_json [2].成员数 ()
.计次循环首 (全局_有效联系人数量, i)
解析_进度 ＝ “联系人载入进度” ＋ 选择 (寻找文本 (到文本 (i ÷ 全局_有效联系人数量 × 100), “.”, , 假) ＝ 2, 取文本左边 (到文本 (i ÷ 全局_有效联系人数量 × 100), 1), 选择 (寻找文本 (到文本 (i ÷ 全局_有效联系人数量 × 100), “.”, , 假) ＝ 3, 取文本左边 (到文本 (i ÷ 全局_有效联系人数量 × 100), 2), 取文本左边 (到文本 (i ÷ 全局_有效联系人数量 × 100), 3))) ＋ “%”
log_操作.Write_ (解析_进度) ' 取用户名
NickName ＝ 子文本替换 (通用_json [2].取成员 (i － 1).取属性对象 (“NickName”), #引号, “”, , , 真)
' 替换Username里的emoji表情
.判断循环首 (寻找文本 (NickName, “ NickName_span ＝ “”) ＋ “”
NickName ＝ 子文本替换 (NickName, NickName_span, “:)”, , , 真)
.判断循环尾 ()
' 取出备注名字 替换引号
.如果 (子文本替换 (通用_json [2].取成员 (i － 1).取属性对象 (“RemarkName”), #引号, “”, , , 真) ＝ “”)
RemarkName ＝ 子文本替换 (通用_json [2].取成员 (i － 1).取属性对象 (“RemarkName”), #引号, “”, , , 真)
.否则
RemarkName ＝ “ - - - ”
.如果结束
' 取用户标识
UserName ＝ 子文本替换 (通用_json [2].取成员 (i － 1).取属性对象 (“UserName”), #引号, “”, , , 真)
' 头像连接
HeadimageUrl ＝ “https://” ＋ 域 ＋ 子文本替换 (通用_json [2].取成员 (i － 1).取属性对象 (“HeadImgUrl”), #引号, “”, , , 真)
Array_Hex ＝ RemarkName ＋ “[@@]” ＋ UserName ＋ “[@@]” ＋ NickName ＋ “[@@]” ＋ HeadimageUrl
Array_Address ＝ 申请内存 (取文本长度 (Array_Hex), )
写到内存 (Array_Hex, Array_Address, )
线程启动_ (&联系人_写入, Array_Address)
.判断循环首 (i ＝ 全局_有效联系人数量 且 取数组成员数 (Friend_All) ≠ 全局_有效联系人数量)
调试输出 (取数组成员数 (Friend_All))
log_操作.Write_ (“头像读取[” ＋ 到文本 (取数组成员数 (Friend_All)) ＋ “\” ＋ 到文本 (全局_有效联系人数量) ＋ “]”)
程序_延时 (2000)
.判断循环尾 ()
.计次循环尾 ()
' 开启写表线程
Login_Window.销毁 ()
线程启动_ (&好友列表_写入)