微信收款记录集合源码附局域网聊天功能

清除数组 (MsgList)
deviceid ＝ “e” ＋ 文本_取随机数字 (15)
Sync.置属性数值 (“Uin”, 到数值 (wxuin))
Sync.置属性 (“Sid”, wxsid)
Sync.置属性 (“Skey”, Skey)
Sync.置属性 (“DeviceID”, deviceid)
json.置属性 (“BaseRequest”, Sync.取数据文本 (), 真)
Sync.清除 ()
Sync.置属性数值 (“Count”, 文本_取出现次数 (SyncKey, “_”))
arr ＝ 分割文本 (SyncKey, “|”, )
List.置属性 (“List”, “”, 真)
List.置类型 (5)
.计次循环首 (取数组成员数 (arr), index)
SyncKeys.清除 ()
SyncKeys.置属性数值 (“Key”, 到数值 (文本_取左边 (arr [index], “_”)))
SyncKeys.置属性数值 (“Val”, 到数值 (文本_取右边 (arr [index], “_”)))
List.置成员 (index － 1, SyncKeys.取数据文本 (), 真)
.计次循环尾 ()
Sync.置属性 (“List”, List.取数据文本 (), 真)
json.置属性 (“SyncKey”, Sync.取数据文本 (), 真)
json.置属性数值 (“rr”, 到数值 (“-1728” ＋ 文本_取随机数字 (6)))
Content ＝ json.取数据文本 ()
Content ＝ 子文本替换 (Content, “\”, “”, , , 真)
' 调试输出 (Content)
str ＝ 编码_Utf8到Ansi (网页_访问 (“https://” ＋ DomainName ＋ “/cgi-bin/mmwebwx-bin/webwxsync?sid=” ＋ wxsid ＋ “&skey=” ＋ Skey ＋ “&pass_ticket=” ＋ pass_ticket, 1, Content, cookies))
json.解析 (str)
重定义数组 (MsgList, 假, json.成员数 (“AddMsgList”))
错误处理 ＝ SyncKey
SyncKey ＝ “”
.计次循环首 (json.成员数 (“SyncKey.List”), str_i)
SyncKey ＝ SyncKey ＋ json.取通用属性 (“SyncKey.List[” ＋ 到文本 (str_i － 1) ＋ “].Key”) ＋ “_” ＋ json.取通用属性 (“SyncKey.List[” ＋ 到文本 (str_i － 1) ＋ “].Val”) ＋ “|”
.计次循环尾 ()
SyncKey ＝ 取文本左边 (SyncKey, 取文本长度 (SyncKey) － 1)
' 调试输出 (“新的SyncKey=========”, SyncKey)
.如果真 (SyncKey ＝ “”)
SyncKey ＝ 错误处理
.如果真结束
.计次循环首 (json.成员数 (“AddMsgList”), index)
MsgList [index].FromUserName ＝ json.取通用属性 (“AddMsgList[” ＋ 到文本 (index － 1) ＋ “].FromUserName”)
MsgList [index].ToUserName ＝ json.取通用属性 (“AddMsgList[” ＋ 到文本 (index － 1) ＋ “].ToUserName”)
MsgList [index].MsgType ＝ json.取通用属性 (“AddMsgList[” ＋ 到文本 (index － 1) ＋ “].MsgType”)
MsgList [index].Content ＝ json.取通用属性 (“AddMsgList[” ＋ 到文本 (index － 1) ＋ “].Content”)
.如果真 (寻找文本 (MsgList [index].Content, “<img length=”, , 假) ≠ -1)
MsgId ＝ json.取通用属性 (“AddMsgList[” ＋ 到文本 (index － 1) ＋ “].MsgId”)
MsgList [index].img ＝ 网页_访问 (“https://” ＋ DomainName ＋ “/cgi-bin/mmwebwx-bin/webwxgetmsgimg?&MsgID=” ＋ MsgId ＋ “&skey=” ＋ 子文本替换 (Skey, “@”, “%40”, , , 真) ＋ “&type=slave”, 0, , cookies)
.如果真结束
.如果真 (MsgList [index].MsgType ＝ “37”)
MsgList [index].Ticket ＝ json.取通用属性 (“AddMsgList[” ＋ 到文本 (index － 1) ＋ “].RecommendInfo.Ticket”)
MsgList [index].FromUserName ＝ json.取通用属性 (“AddMsgList[” ＋ 到文本 (index － 1) ＋ “].RecommendInfo.UserName”)
MsgList [index].NickName ＝ json.取通用属性 (“AddMsgList[” ＋ 到文本 (index － 1) ＋ “].RecommendInfo.NickName”)
.如果真结束
.判断开始 (MsgList [index].FromUserName ＝ UserName)
MsgList [index].Message_type ＝ 0
.默认
MsgList [index].Message_type ＝ 1
.判断结束
' 调试输出 (“消息类型” ＋ MsgList [index].MsgType ＋ “文本” ＋ MsgList [index].Content)
.计次循环尾 ()