安卓协议挂Q。2013的

社区服务
高级搜索
猴岛论坛电脑百科安卓协议挂Q。2013的
发帖 回复
倒序阅读 最近浏览的帖子最近浏览的版块
20个回复

安卓协议挂Q。2013的

楼层直达
他妻负我°

ZxID:8333252

等级: 督察
配偶: 夜空
 做个俗人 贪财好色

举报 只看楼主 使用道具 楼主   发表于: 2013-07-02 0
安卓协议QQ源码包含模块源码.rar[点击下载](67 K) 下载次数:51 累计下载获得 DB 99

.版本 2
.支持库 EThread
.支持库 iext
.支持库 spec

.程序集 窗口程序集1
.程序集变量 Aqq, AndroidQQ:2013

.子程序 _按钮1_被单击

Aqq.QQ_登陆 (编辑框1.内容, 编辑框2.内容, 编辑框3.内容)
.如果真 (Aqq.QQ_取错误文本 () = “需要验证”)
    编辑框_消息接收.加入文本 (“请输入验证码” + #换行符)
    图片框1.图片 = Aqq.QQ_取验证码 ()
.如果真结束
.如果 (Aqq.QQ_取错误文本 () = “密码正确”)
    编辑框_消息接收.加入文本 (编辑框1.内容 + “登录成功” + #换行符)
    启动线程 (&接收消息_回调, , )
    启动线程 (&心跳, , )
.否则
    编辑框_消息接收.加入文本 (编辑框1.内容 + “登录失败” + #换行符)
.如果结束


.子程序 心跳

.计次循环首 (99999999999, )
    延时 (取随机数 (20000, 30000))
    Aqq.QQ_心跳包 ()
.计次循环尾 ()

.子程序 _按钮2_被单击

Aqq.QQ_加群 (编辑框4.内容, 编辑框5.内容)


.子程序 _按钮4_被单击

Aqq.QQ_取群列表 ()

.子程序 接收消息_回调
.局部变量 unFriendpack, UniPack
.局部变量 PacketInfo, RequestPacket
.局部变量 VecFun, bufferData, , "0"
.局部变量 FriendResp, FriendListResp
.局部变量 FriendInfo, FriendInfo, , "0"
.局部变量 GList, GroupInfo, , "0"
.局部变量 stTroopInfoV2, stTroopInfoV2, , "0"
.局部变量 GetTroopListResp, GetTroopListResp
.局部变量 GetMultiTroopInfoResp, GetMultiTroopInfoResp
.局部变量 GetTroopMemberListResp, GetTroopMemberListResp
.局部变量 RespGetEncounterV2, RespGetEncounterV2
.局部变量 bin, 字节集
.局部变量 i, 整数型
.局部变量 sy, 整数型
.局部变量 k, 整数型
.局部变量 count, 整数型
.局部变量 index, 整数型
.局部变量 iDiscUin, 整数型

.计次循环首 (9999999999, )
    bin = Aqq.Fun_recv ()
    unFriendpack.ReadFromStream (bin, PacketInfo, VecFun)
    .如果真 (PacketInfo.iRequestId ≠ 0)
        Aqq.Set_LastReqId (PacketInfo.iRequestId)
    .如果真结束
    .判断开始 (PacketInfo.sFuncName = “GetFriendListReq”)
        unFriendpack.Unpack_FriendListRes (VecFun [1].buffer, FriendResp, FriendInfo, GList)
        Aqq.Add_FriendInfo (FriendInfo)
        .判断开始 (FriendResp.startIndex + FriendResp.getfriendCount < FriendResp.totoal_friend_count)
            Aqq.Fun_friendlist_getFriendGroupList (FriendResp.startIndex + FriendResp.getfriendCount, 40)
        .默认
            ' 读取完了。全部加入
            Aqq.Get_FriendInfo (FriendInfo)
            .计次循环首 (取数组成员数 (FriendInfo), i)
                sy = 超级列表框_好友列表.插入表项 (, 到文本 (超级列表框_好友列表.取表项数 () + 1), , , , )
                超级列表框_好友列表.置标题 (sy, 1, 到文本 (FriendInfo .friendUin))
                超级列表框_好友列表.置标题 (sy, 2, 到文本 (FriendInfo .name))
            .计次循环尾 ()
        .判断结束

    .判断 (PacketInfo.sFuncName = “GetTroopListReq”)
        ' 接收到群列表
        index = 1
        count = 20
        unFriendpack.Unpack_GetTroopListReq (VecFun [1].buffer, GetTroopListResp)
        Aqq.Fun_friendlist_GetMultiTroopInfoReq (GetTroopListResp, (index - 1) × count, count)
    .判断 (PacketInfo.sFuncName = “GetMultiTroopInfoReq”)
        unFriendpack.Unpack_GetMultiTroopInfoResp (VecFun [1].buffer, GetMultiTroopInfoResp)
        .判断开始 (count × index < GetTroopListResp.iNum)
            Aqq.Add_stTroopInfoV2 (GetMultiTroopInfoResp.vecGroupCode, count)
            index = index + 1
            Aqq.Fun_friendlist_GetMultiTroopInfoReq (GetTroopListResp, (index - 1) × count, count)
        .默认

            Aqq.Add_stTroopInfoV2 (GetMultiTroopInfoResp.vecGroupCode, GetTroopListResp.iNum - count × (index - 1))
            Aqq.Get_stTroopInfoV2 (stTroopInfoV2)
            .计次循环首 (取数组成员数 (stTroopInfoV2), i)
                sy = 超级列表框_群列表.插入表项 (, 到文本 (超级列表框_群列表.取表项数 () + 1), , , , )
                超级列表框_群列表.置标题 (sy, 1, 到文本 (stTroopInfoV2 .dwGroupCode))
                超级列表框_群列表.置标题 (sy, 2, 到文本 (stTroopInfoV2 .strGroupName))
                超级列表框_群列表.置标题 (sy, 3, 到文本 (stTroopInfoV2 .strGroupMemo))
            .计次循环尾 ()

        .判断结束

    .判断 (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 .lEctID))
            超级列表框_附近的人.置标题 (sy, 2, 到文本 (RespGetEncounterV2.vEncounterInfos .strNick))
            超级列表框_附近的人.置标题 (sy, 3, 到文本 (RespGetEncounterV2.vEncounterInfos .strDescription))
        .计次循环尾 ()
    .判断 (PacketInfo.sFuncName = “SvcReqPushMsg”)
        ' 有好友消息到了
        .计次循环首 (取数组成员数 (VecFun), i)
            .计次循环首 (VecFun .SvcReqPushMsg.iMsgNum, k)
                ' Call 好友信息回调
                调试输出 (“来自:”, VecFun .SvcReqPushMsg.vMsgInfos [k].lFromUin, iconv.Utf8ToAnsi (VecFun .SvcReqPushMsg.vMsgInfos [k].vMsg))
                有信息到达 (VecFun .SvcReqPushMsg.vMsgInfos [k])
            .计次循环尾 ()
        .计次循环尾 ()
    .判断 (PacketInfo.sFuncName ≠ “”)
        调试输出 (“PacketInfo.sFuncName ”, PacketInfo.sFuncName, Xbin.Bin2Hex (bin))
    .默认
        ' 调试输出 (“PacketInfo.sFuncName ”, PacketInfo.sFuncName, Xbin.Bin2Hex (bin))
    .判断结束

.计次循环尾 ()

际遇之神

奖励

用手机上论坛被老师发现,没想到老师是猴岛版主,获得5DB

本帖de评分: 1 条评分 DB +3
DB+3 2013-07-02

哈哈!还有一个帖子!!!

哭泣_时间说

ZxID:21214511

等级: 少尉
我为自己带盐
举报 只看该作者 沙发   发表于: 2013-07-02 0
那么小?坐等小白
2014

ZxID:21900290

等级: 元老
     ๑热心会员๑      ๑值得拥有๑

举报 只看该作者 板凳   发表于: 2013-07-02 0
不错,
引用
lsp8868530

ZxID:27101595

等级: 列兵
举报 只看该作者 地板   发表于: 2013-07-03 0
顶一下
abc222222222

ZxID:23162144

等级: 列兵
举报 只看该作者 4楼  发表于: 2013-07-03 0
看看
锐爱锐

ZxID:19575953

等级: 禁止发言
举报 只看该作者 5楼  发表于: 2013-07-15 0
哈哈
├┤

ZxID:27714085

等级: 新兵
举报 只看该作者 6楼  发表于: 2013-07-16 0
嗯嗯谢了
qzuser864b

ZxID:20266529

等级: 少尉
没事
举报 只看该作者 7楼  发表于: 2013-07-18 0
神马东西
http://bbs.houdao.com/profile.php
qq46864

ZxID:38272357

等级: 新兵
举报 只看该作者 8楼  发表于: 2013-12-20 0
  
pbplj

ZxID:36021331

等级: 新兵
举报 只看该作者 9楼  发表于: 2014-01-05 0
不会用
C、的适当

ZxID:45990661

等级: 新兵
举报 只看该作者 10楼  发表于: 2014-03-25 0
好强大的感觉
贵族~韦少

ZxID:17434667

等级: 列兵
低价开钻卡盟
举报 只看该作者 11楼  发表于: 2014-04-10 0
现在正想要呢 不知道能不能挂
翡翠卡盟 Q钻2-4折  欢迎加盟
qqee602

ZxID:46769987

等级: 新兵
举报 只看该作者 12楼  发表于: 2014-04-10 0
现在正想要呢 不知道能不能用
CHENaf7f

ZxID:27986177

等级: 新兵
举报 只看该作者 13楼  发表于: 2014-07-27 0
下载了看一下
坟地的黑猫7351

ZxID:49960857

等级: 新兵
举报 只看该作者 14楼  发表于: 2014-11-07 0
😂😂😂😂😂😭😭😭😭
王招风

ZxID:21362666

等级: 新兵
举报 只看该作者 15楼  发表于: 2014-11-24 0
看看  貌似不错的样子

际遇之神

惩罚

小贼们潜入王招风家, 偷了 DB1

  598d9

ZxID:54613761

等级: 列兵
举报 只看该作者 16楼  发表于: 2014-11-25 0
看看
咸菜有点咸

ZxID:29189065

等级: 新兵
举报 只看该作者 17楼  发表于: 2014-12-02 0
擦。。。来看看如何
qqca95e

ZxID:44937845

等级: 新兵
举报 只看该作者 18楼  发表于: 2015-05-21 0
来看啊可能

际遇之神

奖励

用手机上论坛被老师发现,没想到老师是猴岛版主,获得5DB

qqddb41e

ZxID:63691627

等级: 新兵
举报 只看该作者 19楼  发表于: 2015-06-22 0
鼓腹含和各环节
« 返回列表
发帖 回复