哔哩哔哩视频播放地址解析源码

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

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 sign, 文本型
.局部变量 cid, 文本型
.局部变量 time, 文本型
.局部变量 url, 文本型
.局部变量 data, 文本型
.局部变量 n, 整数型
.局部变量 regx, 正则表达式类

列表框1.清空 ()
sign ＝ gzip (网页_访问 (编辑框1.内容, 0, “”, “”, “”, #常量1))
cid ＝ 文本_取出中间文本 (sign, #引号 ＋ “cid=”, “&”)
.如果真 (cid ＝ “”)
    data ＝ gzip (网页_访问 (“https://bangumi.bilibili.com/web_api/episode/” ＋ 文本_取出中间文本 (sign, “first_ep_id = ” ＋ #引号, #引号) ＋ “.json”, 0, “”, “”, “”, #常量3))
    cid ＝ 文本_取出中间文本 (data, “danmaku” ＋ #引号 ＋ “:” ＋ #引号, #引号)
.如果真结束
time ＝ 时间_取现行时间戳 (真)
sign ＝ “cid=” ＋ cid ＋ “&player=1&qn=80&quality=3&ts=” ＋ time ＋ “1c15888dc316e05a15fdd0a02ed6584f”
url ＝ “https://interface.bilibili.com/playurl?quality=3&cid=” ＋ cid ＋ “&qn=80&player=1&ts=” ＋ time ＋ “&sign=” ＋ 取数据摘要 (到字节集 (sign))
data ＝ 到文本 (gzip (网页_访问 (url, 0, “”, “”, “”, #常量3)))
regx.创建 (“</size>[\s]*<url><!\[CDATA\[(.*?)\]\]></url>”, data, , 真, 真, )
.计次循环首 (regx.取匹配数量 (), n)
    列表框1.加入项目 (regx.取子匹配文本 (n, 1), )
    调试输出 (regx.取子匹配文本 (n, 1))
.计次循环尾 ()

.子程序 gzip, 文本型
.参数 data, 字节集
.局部变量 tmpData, 文本型

tmpData ＝ 到文本 (网页_GZIP解压 (data))
.如果真 (tmpData ＝ “”)
    tmpData ＝ 到文本 (data)
.如果真结束
返回 (tmpData)

@Farmer°