将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, , )
.如果真结束
调试输出 (“返回状态:” + 返回状态)
视频地址