| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| i | 整数型 | | |
| 保存路径 | 文本型 | | |
| mp4 | 字节集 | | |
| 返回数据 | 文本型 | | |
| j | JSON类 | | |
| json文本 | 文本型 | | |
保存路径 ＝
浏览文件夹 (“请选择保存路径”,
)_启动窗口.标题 ＝
“准备下载”
计次循环首 (超级列表框1.
取表项数 (), i
)
返回数据 ＝
模块_Utf8到Ansi (模块_WinHttp访问 (超级列表框1.
取标题 (i － 1, 7
), , ,
#常量_cookie, ,
“user-agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/101.0.0.0 Safari/537.36”))
json文本 ＝
模块_取中间文本 (返回数据,
“window.__PRELOADED_STATE__ = ”,
“; document”)j.
解析 (json文本
)
如果真 (保存路径 ＝
“”)返回 ()mp4 ＝ 模块_WinHttp访问 (j.取通用属性 (“curVideoMeta.clarityUrl[2].url”), , , , , “referer: https://haokan.baidu.com/” ＋ #换行符 ＋ “user-agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/101.0.0.0 Safari/537.36”)_启动窗口.标题 ＝
“正在下载... ” ＋ 超级列表框1.
取标题 (i － 1, 1
)如果 (写到文件 (保存路径 ＋
“\” ＋ 超级列表框1.
取标题 (i － 1, 1
) ＋
“.mp4”, mp4
))
超级列表框1.
置标题 (i － 1, 9,
“下载成功”)
超级列表框1.
置标题 (i － 1, 9,
“下载失败”)
计次循环尾 ()_启动窗口.标题 ＝
“”信息框 (“全部下载完毕”,
#信息图标, ,
)
