Bilibili视频直链信息解析工具源码

将B站地址复制到解析地址框内，点击按钮即可获取该视频的信息以及下载信息。

视频id ＝ 子文本替换 (小视频地址, “…………………………”, , , , 真)
调试输出 (“视频ID：” ＋ 视频id)
' 调用api并解析json文件
写到文件 (temp文件夹 ＋ “\bilibili_video.json”, HTTP读文件 (“…………………………” ＋ 视频id ＋ “&need_playurl=1”))
json文件 ＝ temp文件夹 ＋ “\bilibili_video.json”
json文本 ＝ 编码_utf8到gb2312 (到文本 (读入文件 (json文件)))
json.解析 (json文本)
返回状态 ＝ 子文本替换 (json.取属性对象 (“message”), #引号, , , , 真)
.如果真 (返回状态 ＝ “video not found”)
信息框 (“未找到该视频！”, 0, , )
.如果真结束
.如果真 (返回状态 ≠ “success” 且 返回状态 ≠ “video not found”)
信息框 (“未知错误！”, 0, , )
.如果真结束
调试输出 (“返回状态：” ＋ 返回状态)
视频地址 ＝ json.取属性 (“data”).取属性 (“item”).取属性对象 (“video_playurl”)
' 去除引号
调试输出 (“视频地址（处理前）：” ＋ 视频地址)
视频地址 ＝ 子文本替换 (视频地址, #引号, , , , 真)
下载地址框.内容 ＝ 视频地址
调试输出 (“视频地址：” ＋ 视频地址)
' 获取封面
封面地址 ＝ 子文本替换 (json.取属性 (“data”).取属性 (“item”).取属性对象 (“first_pic”), #引号, , , , 真)
写到文件 (temp文件夹 ＋ “\cover.jpg”, HTTP读文件 (封面地址))
封面.图片 ＝ 读入文件 (temp文件夹 ＋ “\cover.jpg”)
调试输出 (“封面地址：” ＋ 封面地址)
' 获取其他信息
发布者.标题 ＝ “发布者：” ＋ 子文本替换 (json.取属性 (“data”).取属性 (“user”).取属性对象 (“name”), #引号, , , , 真)
上传时间.标题 ＝ “上传时间：” ＋ 取文本左边 (子文本替换 (json.取属性 (“data”).取属性 (“item”).取属性对象 (“upload_time”), #引号, , , , 真), 10)
播放量.标题 ＝ “播放量：” ＋ json.取属性 (“data”).取属性 (“item”).取属性对象 (“watched_num”)