QQ安卓协议易语言开源版

编辑框_消息接收.加入文本 (格式化时间 (Other.UnixTimeToTime (MsgInfo.uMsgTime)) ＋ “收到[” ＋ 到文本 (MsgInfo.lFromUin) ＋ “]的消息:[” ＋ iconv.Utf8ToAnsi (MsgInfo.vMsg ＋ { 0 }) ＋ “]” ＋ #换行符)

.计次循环首 (超级列表框_附近的人.取表项数 (), i)
.循环判断首 ()
.如果真 (超级列表框_附近的人.取当前状态图片 (i － 1) ＝ 1)
超级列表框_附近的人.删除表项 (i － 1)
.如果真结束

.循环判断尾 (超级列表框_附近的人.取当前状态图片 (i － 1) ＝ 1)
.计次循环尾 ()

.判断 (PacketInfo.sFuncName ＝ “CMD_GET_ENCOUNTERV2”)
调试输出 (“附近的人”)
unFriendpack.Unpack_RespGetEncounterV2 (VecFun [1].buffer, RespGetEncounterV2)
标签_省会.标题 ＝ RespGetEncounterV2.stUserData.strProvince
Aqq.Set_LastUserData (RespGetEncounterV2.stUserData)
.计次循环首 (RespGetEncounterV2.iNum, i)
sy ＝ 超级列表框_附近的人.插入表项 (, 到文本 (超级列表框_附近的人.取表项数 () ＋ 1), , , , )
超级列表框_附近的人.置标题 (sy, 1, 到文本 (RespGetEncounterV2.vEncounterInfos [i].lEctID))
超级列表框_附近的人.置标题 (sy, 2, 到文本 (RespGetEncounterV2.vEncounterInfos [i].strNick))
超级列表框_附近的人.置标题 (sy, 3, 到文本 (RespGetEncounterV2.vEncounterInfos [i].strDescription))
.计次循环尾 ()
.判断 (PacketInfo.sFuncName ＝ “SvcReqPushMsg”)
' 有好友消息到了
.计次循环首 (取数组成员数 (VecFun), i)
.计次循环首 (VecFun [i].SvcReqPushMsg.iMsgNum, k)
' Call 好友信息回调
调试输出 (“来自:”, VecFun [i].SvcReqPushMsg.vMsgInfos [k].lFromUin, iconv.Utf8ToAnsi (VecFun [i].SvcReqPushMsg.vMsgInfos [k].vMsg))
有信息到达 (VecFun [i].SvcReqPushMsg.vMsgInfos [k])
.计次循环尾 ()
.计次循环尾 ()
.判断 (PacketInfo.sFuncName ≠ “”)
调试输出 (“PacketInfo.sFuncName ”, PacketInfo.sFuncName, Xbin.Bin2Hex (bin))
.默认
' 调试输出 (“PacketInfo.sFuncName ”, PacketInfo.sFuncName, Xbin.Bin2Hex (bin))