熊猫主站弹幕解析

源码调用了精易模块和zlib解析。

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

.子程序 进入房间弹幕
.局部变量 局_地址, 文本型
.局部变量 局_返回文本, 文本型
.局部变量 局_rid, 文本型
.局部变量 局_sign, 文本型
.局部变量 局_TCP数据, 文本型
.局部变量 局_ts, 文本型
.局部变量 局_appid, 文本型
.局部变量 局_chat_addr, 文本型
.局部变量 局_房间ID, 文本型, , , 主站板块房间ID
.局部变量 局_zlib, 逻辑型
.局部变量 局_COOKIE, 文本型

进入许可区 (集_许可证)
局_房间ID ＝ 编辑框1.内容
局_zlib ＝ 选择框1.选中
echo (“房间ID:” ＋ 局_房间ID ＋ “ zlib:” ＋ 到文本 (局_zlib))
退出许可区 (集_许可证)
局_COOKIE ＝ “”
局_地址 ＝ “https://riven.panda.tv/chatroom/getinfo?roomid=” ＋ 局_房间ID ＋ “&app=1&protocol=ws&_caller=panda-pc_web&_=” ＋ 时间_取现行时间戳 ()
局_返回文本 ＝ 到文本 (网页_访问S (局_地址, , , 局_COOKIE))
局_rid ＝ 文本_取出中间文本 (局_返回文本, “#引号rid#引号:”, “,”)
局_sign ＝ 文本_取出中间文本 (局_返回文本, “#引号sign#引号:#引号”, #引号)
局_ts ＝ 文本_取出中间文本 (局_返回文本, “#引号ts#引号:”, “,”)
局_appid ＝ 文本_取出中间文本 (局_返回文本, “#引号appid#引号:#引号”, #引号)
局_chat_addr ＝ 文本_取出中间文本 (局_返回文本, “#引号chat_addr_list#引号:[#引号”, #引号)
局_TCP数据 ＝ “u:” ＋ 局_rid ＋ “@” ＋ 局_appid ＋ 字符 (10)
局_TCP数据 ＝ 局_TCP数据 ＋ “ts:” ＋ 局_ts ＋ 字符 (10)
局_TCP数据 ＝ 局_TCP数据 ＋ “sign:” ＋ 局_sign ＋ 字符 (10)
局_TCP数据 ＝ 局_TCP数据 ＋ “authtype:4” ＋ 字符 (10)
局_TCP数据 ＝ 局_TCP数据 ＋ “plat:jssdk_pc_web” ＋ 字符 (10)
局_TCP数据 ＝ 局_TCP数据 ＋ “version:0.5.10” ＋ 字符 (10)
局_TCP数据 ＝ 局_TCP数据 ＋ “pdft:” ＋ 网页_取单条Cookie (局_COOKIE, “pdft”, 真) ＋ 字符 (10)
局_TCP数据 ＝ 局_TCP数据 ＋ “network:unknown” ＋ 字符 (10)
.判断开始 (局_zlib)  ' 本源码来自三叶资源网(www.sanye.cx)
    局_TCP数据 ＝ 局_TCP数据 ＋ “compress:zlib”
.默认
    局_TCP数据 ＝ 局_TCP数据 ＋ “compress:none”
.判断结束
进入许可区 (集_许可证)
客户1.连接 (文本_取左边 (局_chat_addr, “:”), 到整数 (文本_取右边 (局_chat_addr, “:”)))
客户1.发送数据 ({ 0, 6, 0, 2 } ＋ 字节集倒序 (到字节集 (到短整数 (取文本长度 (局_TCP数据)))) ＋ 到字节集 (局_TCP数据))
时钟1.时钟周期 ＝ 30 × 1000
退出许可区 (集_许可证)
调试输出 (局_TCP数据)

@zuo