.版本 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)