【带视频讲解】易语言批量下载好看视频

沉默不语！

其原理与B站视频下载大致一样。大家觉得还行的给个好评试试，虽然简单，但也要花时间写

B站视频讲解：https://www.bilibili.com/video/BV1DD4y1i7Yr/

  

子程序名	返回值类型	公开	备 注
子程序_批量下载

变量名	类 型	静态	数组	备 注
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, “下载失败”)

计次循环尾 ()
_启动窗口.标题 ＝ “”
信息框 (“全部下载完毕”, #信息图标, , )

i支持库列表	支持库注释
shell	操作系统界面功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 shell<br /> .支持库 iext<br /> <br /> .子程序 子程序_批量下载<br /> .局部变量 i, 整数型<br /> .局部变量 保存路径, 文本型<br /> .局部变量 mp4, 字节集<br /> .局部变量 返回数据, 文本型<br /> .局部变量 j, JSON类<br /> .局部变量 json文本, 文本型<br /> <br /> 保存路径 ＝ 浏览文件夹 (“请选择保存路径”, )<br /> _启动窗口.标题 ＝ “准备下载”<br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     返回数据 ＝ 模块_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”))<br />     json文本 ＝ 模块_取中间文本 (返回数据, “window.__PRELOADED_STATE__ = ”, “;     document”)<br />     j.解析 (json文本)<br /> <br />     .如果真 (保存路径 ＝ “”)<br />         返回 ()<br />     .如果真结束<br />     mp4 ＝ 模块_WinHttp访问 (j.取通用属性 (“curVideoMeta.clarityUrl[2].url”), , , , , “referer: <a href="https://haokan.baidu.com/" rel="nofollow" rel="nofollow" target="_blank">https://haokan.baidu.com/</a>” ＋ #换行符 ＋ “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”)<br />     _启动窗口.标题 ＝ “正在下载... ” ＋ 超级列表框1.取标题 (i － 1, 1)<br />     .如果 (写到文件 (保存路径 ＋ “\” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “.mp4”, mp4))<br />         超级列表框1.置标题 (i － 1, 9, “下载成功”)<br />     .否则<br />         超级列表框1.置标题 (i － 1, 9, “下载失败”)<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> _启动窗口.标题 ＝ “”<br /> 信息框 (“全部下载完毕”, #信息图标, , )

源码下载： 好看视频批量下载.zip (237.52 KB, 下载次数: 89)

2022-9-24 11:29 上传

点击文件名下载附件

木木大大

谢谢分享~~

kfccfk

下来 看看还能用不

kfccfk

感谢分享 看看还行不行

微信的木头人

喵的 现在取不出来下载地址了 超清 标清都出不来了 还是我是菜鸡的问题

dhrjgzs

66666666666666666

笑问天

1111111111111111

shizhong0117

开源精神必须支持~

布鲁惠斯

开源精神必须支持~

hangyubin

谢谢楼主分享！

jiaxiaotong

值得学习。去看看！