软件是易语言开发的，然后不用调用浏览器，直接截取wss数据，客户采集匿名的数据，源码我这边会公开，核心的部分。

采集出来的效果：

易语言核心代码：

=================================================

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

.程序集 窗口程序集_窗口1, , , 744894369

.子程序 _窗口1_创建完毕 .局部变量 pe, 整数型

模块初始化_421 () 客户端_全局初始化 (真) 客户端_全局绑定事件 (&WS连接成功, &WS将被断开, &WS消息到达, &WS连接错误)

.子程序 WS连接成功, 整数型 .参数 连接ID, 整数型, , 连接ID

id ＝ 连接ID 输出调试文本 (“WS连接事件: ” ＋ 到文本 (连接ID)) 启动线程 (&hear, , ) 返回 (0)

.子程序 WS将被断开, 整数型 .参数 连接ID, 整数型, , 连接ID .参数 错误类型, 整数型, , enOperation(#SO_ 开头常量) .参数 错误代码, 整数型

调试输出 (“WS断开事件: ” ＋ 到文本 (连接ID), 错误类型, 错误代码) 返回 (#HR_OK)

.子程序 WS连接错误, 整数型 .参数 连接ID, 整数型 .参数 iErrorCode, 整数型 .参数 lpszErrorDesc, 文本型

调试输出 (“WS连接错误: ” ＋ 到文本 (连接ID), iErrorCode, lpszErrorDesc)

返回 (#HR_OK)

.子程序 WS消息到达, 整数型 .参数 连接ID, 整数型, , 连接ID .参数 数据指针, 整数型, , 这里的 数据指针 只能使用 客户端_取回文本 客户端_取回数据 .参数 数据长度, 整数型, , 使用 指针到字节集会崩溃哦 .局部变量 操作码, 字节型, , , 操作码：0x0 - 0xF (0=连续消息分片 1=文本消息分片 2=二进制消息分片 8=连接关闭 9=心跳Ping 10=心跳Pong) .局部变量 str, 文本型 .局部变量 bin, 字节集 .局部变量 掩码, 整数型 .局部变量 rsv, 字节型 .局部变量 jsonData, 文本型 .局部变量 json, 类_json .局部变量 max, 整数型 .局部变量 i, 整数型 .局部变量 t, 文本型

客户端_取回消息状态 (连接ID, , rsv, 操作码, 掩码, ) .判断开始 (操作码 ＝ 2) bin ＝ 客户端_取回数据 (数据指针, 数据长度) bin ＝ 取字节集右边 (bin, 取字节集长度 (bin) － 寻找字节集 (bin, { 31, 139, 8, 0, 0, 0, 0, 0, 0 }, ) ＋ 1) bin ＝ 网页_GZIP解压 (bin) jsonData ＝ 编码_utf8到gb2312 (PB转JSON (bin)) json.解析 (jsonData) max ＝ json.成员数 (“”) .计次循环首 (max, i) t ＝ 到文本 (i － 1) .如果真 (json.取通用属性 (“[” ＋ t ＋ “].value[0].value”) ＝ “WebcastChatMessage”) 调试输出 (json.取通用属性 (“[” ＋ t ＋ “].value[1].value[1].value[2].note”), json.取通用属性 (“[” ＋ t ＋ “].value[1].value[2].note”)) .如果真结束

.计次循环尾 ()

.判断 (操作码 ＝ 8) 返回 (#HR_ERROR) ' 断开 .判断 (操作码 ＝ 9) 返回 (#HR_IGNORE) .默认

.判断结束 返回 (#HR_OK)

.子程序 PB转JSON, 文本型, 公开 .参数 PB数据, 字节集 .局部变量 p, 整数型 .局部变量 s, 文本型

p ＝ PbToJson (PB数据, 取字节集长度 (PB数据)) s ＝ 指针到文本 (p) Cfree (p) 返回 (s)

.子程序 字节集倒序, 字节集 .参数 bin, 字节集 .局部变量 bin1, 字节集 .局部变量 x, 整数型 .局部变量 max, 整数型

bin1 ＝ bin max ＝ 取字节集长度 (bin) .计次循环首 (max, x) bin1 [x] ＝ bin [max － x ＋ 1] .计次循环尾 () 返回 (bin1)

.子程序 JSON转PB, 字节集, 公开 .参数 PB数据, 文本型 .局部变量 p, 整数型 .局部变量 len, 整数型 .局部变量 bin, 字节集

len ＝ 取文本长度 (PB数据) p ＝ JsonToPB (PB数据, len) .如果真 (p ＝ 0) 返回 ({ }) .如果真结束 bin ＝ 字节集倒序 (指针到字节集 (p, 8)) len ＝ 取字节集数据 (bin, #长整数型, ) 返回 (指针到字节集 (p ＋ 8, len))

.子程序 _按钮2_被单击 .局部变量 bool, 逻辑型 .局部变量 erro, 文本型

id ＝ 客户端_连接 (编辑框1.内容, q_ck, , , , erro) .如果真 (id ＝ 0) 输出调试文本 (“连接失败”, erro) 返回 () .如果真结束 输出调试文本 (“连接成功: ” ＋ 到文本 (id))

.子程序 hear

.判断循环首 (真) 程序_延时 (10 × 1000) 客户端_发送消息体数据 (id, 编码_BASE64解码 (“OgJoYg==”, )) .判断循环尾 ()

=================================================