重工电子论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
热搜: 活动 交友 discuz
查看: 6052|回复: 1

[其他] 【QQ辅助】获取已加的QQ群内所有成员信息

[复制链接]

286

主题

666

帖子

5538

积分

学生管理组

Rank: 8Rank: 8

积分
5538
发表于 2018-11-27 22:17:19 | 显示全部楼层 |阅读模式
如果我有10个QQ,每个QQ有500个QQ群,每个群平均1000人,那么提取所有QQ号的账号,昵称,性别等信息,数据量就是500万条,我不可能手去挨着挨着点出来,所以只能利用程序去实现

对于注入进程或者hook等到QQ软件里面就不要想了,所以现在所有的群发等工具都是用按键精灵来实现了,所以不存在外挂一说,当前市面的软件大概300元一个,但是拉取速度很慢,不能自动检索所有群然后自动拉取,但是通过手动检索,最终能达到要求。

我的方法
这里我利用网站http://qun.qq.com ,但是登陆过后,能够获取当前账号下所有的QQ群,也能够获取每个QQ群里面的人员信息,
存在的问题:不可以一次性拉取一个群内所有的成员信息,这个是基于滚动条拉倒浏览器下侧后的一个事件触发来完成的,一次拉取20条,而且拉取完了后就组装到页面内了。。。即使我全部复制在excel里面去做解析也很慢。

破解思路,这里需要破解掉QQ群这个官网,然后利用他提供的API去拉取信息,完了后再组装起来为我所用。
回复

使用道具 举报

286

主题

666

帖子

5538

积分

学生管理组

Rank: 8Rank: 8

积分
5538
 楼主| 发表于 2018-11-27 22:18:28 | 显示全部楼层
本帖最后由 李维强-15级 于 2018-11-30 13:54 编辑

下面先贴代码,描述为伪造的POST内容和参数
[Visual Basic] syntaxhighlighter_viewsource syntaxhighlighter_copycode
Dim gzip() As Byte
    On Error GoTo ErrHandle                    '错误处理
    Dim ShuJu As String
    Dim cwj As String
    Dim neirong As String
     Dim nr As String
     Dim nt As String
     Dim aaa As String
     aaa = CStr(WebBrowser1.Document.Cookie)
     aaa = Replace(Mid(aaa, InStr(aaa, "skey="), InStr(InStr(aaa, "skey="), aaa, ";") - InStr(aaa, "skey=")), "skey=", "")
    Dim WinHttp As WinHttp.WinHttpRequest '声明一个对象
    Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    ShuJu = "gc=" & Text1.Text & "&st=0&end=20000&sort=0&bkn=" & g_tk10位版(aaa) '设置POST数据
    WinHttp.Open "POST", "http://qun.qq.com/cgi-bin/qun_mgr/search_group_members", True
    WinHttp.SetTimeouts 30000, 30000, 30000, 30000 '设置超时时间
    WinHttp.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = &H3300 '忽略错误
    WinHttp.SetRequestHeader "Accept", "application/json, text/javascript, */*; q=0.01"
    WinHttp.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=UTF-8"
    WinHttp.SetRequestHeader "X-Requested-With", "XMLHttpReques"
    WinHttp.SetRequestHeader "Referer", "http://qun.qq.com/member.html?#gid=" & Text1.Text
    WinHttp.SetRequestHeader "Accept-Language", "zh-cn"
    WinHttp.SetRequestHeader "Accept-Encoding", "gzip, deflate"
    WinHttp.SetRequestHeader "User-Agent", "Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)"
    WinHttp.SetRequestHeader "Host", "qun.qq.com"
    WinHttp.SetRequestHeader "Content-Length", "46"
    WinHttp.SetRequestHeader "Connection", "keep-alive"
    WinHttp.SetRequestHeader "Cache-Control", "no-cache"
    WinHttp.SetRequestHeader "Cookie", WebBrowser1.Document.Cookie
    WinHttp.Send ShuJu     '发送
    WinHttp.WaitForResponse  '异步发送
    gzip = WinHttp.ResponseBody                                                          '获取返回的byte
    UnCompressByte gzip                                                                'gzip 解压缩
    nr = BytesToBstr(gzip, "UTF-8")


http://www.qqlite.cn/
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|cqutlab ( 渝ICP备15004556号

GMT+8, 2024-3-29 22:50 , Processed in 0.152054 second(s), 28 queries .

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表