网络视频下载

fastdao

怎么带进度条下载这个网络视频：https://v3-web.douyinvod.com/353f6fb3349c302b71e0658f58009bc7/66c9cfc3/video/tos/cn/tos-cn-ve-15/oUbV0KSVZESgLAL2GCHRTOfBXJDIA0eeEfYGIg/?a=6383&br=2598&bt=2598&btag=c0000e00028000&cd=0%7C0%7C0%7C3&ch=26&cquery=100x_100z_100o_100w_100B&cr=3&cs=0&cv=1&dr=0&ds=3&dy_q=1724491087&feature_id=2e1813f3872a2105acee44623dff2864&ft=AJkeU_TLRR0sJrC3SDx2Nc.xBiGNbLuS8UsU_46LQZG9Nv7TGW&is_ssr=1&l=2024082417180745F258CE930E3499E745&lr=all&mime_type=video_mp4&qs=0&rc=ZztoPGRoOzNoZDo3ZGk8NEBpM247b2s5cnVsdTMzNGkzM0AxNC1iLjE2NjYxMDVeYmJiYSNoMDNmMmQ0czFgLS1kLWFzcw%3D%3D

幻想大人

给你上图上源码，直接下载我这个源码复制用


补充内容 (2024-8-26 22:04):
没有其他问题的话，就结帖吧

补充内容 (2024-8-27 05:19):
另外这个DY解析出来的链接是有时效性的，等你看到这个源码的时候，链接应该失效了

右手胜过左手

第一次：在协议头中提交"Range: bytes=0-0"  请求网页、这一步操作是先拿到整个视频大小。
响应的协议头中存在视频的相关信息，其中“Content-Range: bytes 0-0/XXXXX”、前半段"0-0"就是你从哪里开始请求下载，到哪里结束下载的字节；后半段“XXXXX”就是整个视频的大小；

拿到整个视频大小了、想请求多少次、就自己计算出总次数；有视频总大小、有总次数、进度条的进度百分比=已请求下载次数÷总次数×100

fastdao

右手胜过左手 发表于 2024-8-24 19:22
第一次：在协议头中提交"Range: bytes=0-0"  请求网页、这一步操作是先拿到整个视频大小。
响应的协议头中 ...

能帮忙写个例子吗，谢谢

熬夜

https://bbs.125.la/forum.php?mod=viewthread&tid=14560618

weihua2018

大哥这个容量太小 正常的进度下载是不会有进度显示的哦？

幻想大人

  

网页_下载文件 ( #视频链接, “C:\Users\Administrator\Desktop\测试.MP4”, &进度回调)

子程序名	返回值类型	公开	备 注
进度回调
参数名	类 型	参考	可空	数组	备 注
下载进度	文本型

调试输出 (下载进度)

子程序名	返回值类型	公开	备 注
网页_下载文件			单线程下载，带进度回调
参数名	类 型	参考	可空	数组	备 注
下载链接	文本型				文件直链
保存路径	文本型
进度回调	子程序指针				回调子程序{参数一:下载进度[文本型]}

变量名	类 型	静态	数组	备 注
局_返回协议头	文本型
文件大小	整数型
开始位置	整数型
结束位置	整数型
剩余大小	整数型
临时数据	字节集
文件句柄	整数型
下载速度	整数型
schedule	文本型
i	整数型

网页_访问_对象 (下载链接, 1, , , , “Range: bytes=0-0”, 局_返回协议头, , , , , , , , , , , , )
文件大小 ＝ 到整数 (文本_取右边 (网页_协议头_取信息 (局_返回协议头, “Content-Range”), “/”, , ))
如果真 (文件是否存在 (保存路径))
删除文件 (保存路径)
文件_创建空白文件 (保存路径, 文件大小)
文件句柄 ＝ 文件_打开 (保存路径, )
如果 (文件大小 ＜ 1048576 × 10)  ' 小于10MB
下载速度 ＝ 2
下载速度 ＝ 4

判断循环首 (真)
剩余大小 ＝ 文件大小 － 结束位置 － 1
如果 (剩余大小 ＞ 0)
判断 (剩余大小 ＞ 1048576 × 下载速度)  ' 1048576字节=1Mb
结束位置 ＝ 开始位置 ＋ 1048576 × 下载速度
判断 (剩余大小 ≤ 1048576 × 下载速度)
结束位置 ＝ 开始位置 ＋ 剩余大小



跳出循环 ()
临时数据 ＝ 网页_访问_对象 (下载链接, 0, , , , “Range: bytes=” ＋ 到文本 (开始位置) ＋ “-” ＋ 到文本 (结束位置), , , , , , , , , , , , , )
文件_写出字节集W (文件句柄, 临时数据)
开始位置 ＝ 结束位置 ＋ 1
如果真 (是否为空 (进度回调) ＝ 假)
schedule ＝ 到文本 (四舍五入 (结束位置 ÷ (文件大小 ÷ 100), 2))
程序_Call (到整数 (进度回调), 取指针地址_文本型 (schedule), , , , )

判断循环尾 ()
文件_关闭文件W (文件句柄)

子程序名	返回值类型	公开	备 注
文件_创建空白文件	逻辑型
参数名	类 型	参考	可空	数组	备 注
文件名	文本型				完整路径
文件大小	长整数型				字节

变量名	类 型	静态	数组	备 注
A	文本型

如果真 (文件是否存在 (文件名))
如果真 (取反 (删除文件 (文件名)))
返回 (假)

A ＝ “fsutil.exe file createnew ” ＋ #引号 ＋ 文件名 ＋ #引号 ＋ “ ” ＋ 到文本 (文件大小)
返回 (运行 (A, 真, 2))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> 网页_下载文件 (#视频链接, “C:\Users\Administrator\Desktop\测试.MP4”, &进度回调)<br /> <br /> .子程序 进度回调<br /> .参数 下载进度, 文本型<br /> <br /> 调试输出 (下载进度)<br /> <br /> .子程序 网页_下载文件, , 公开, 单线程下载，带进度回调<br /> .参数 下载链接, 文本型, , 文件直链<br /> .参数 保存路径, 文本型<br /> .参数 进度回调, 子程序指针, 可空, 回调子程序{参数一:下载进度[文本型]}<br /> .局部变量 局_返回协议头, 文本型<br /> .局部变量 文件大小, 整数型<br /> .局部变量 开始位置, 整数型<br /> .局部变量 结束位置, 整数型<br /> .局部变量 剩余大小, 整数型<br /> .局部变量 临时数据, 字节集<br /> .局部变量 文件句柄, 整数型<br /> .局部变量 下载速度, 整数型<br /> .局部变量 schedule, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 网页_访问_对象 (下载链接, 1, , , , “Range: bytes=0-0”, 局_返回协议头, , , , , , , , , , , , )<br /> 文件大小 ＝ 到整数 (文本_取右边 (网页_协议头_取信息 (局_返回协议头, “Content-Range”), “/”, , ))<br /> .如果真 (文件是否存在 (保存路径))<br />     删除文件 (保存路径)<br /> .如果真结束<br /> 文件_创建空白文件 (保存路径, 文件大小)<br /> 文件句柄 ＝ 文件_打开 (保存路径, )<br /> .如果 (文件大小 ＜ 1048576 × 10)  ' 小于10MB<br />     下载速度 ＝ 2<br /> .否则<br />     下载速度 ＝ 4<br /> .如果结束<br /> <br /> .判断循环首 (真)<br />     剩余大小 ＝ 文件大小 － 结束位置 － 1<br />     .如果 (剩余大小 ＞ 0)<br />         .判断开始 (剩余大小 ＞ 1048576 × 下载速度)  ' 1048576字节=1Mb<br />             结束位置 ＝ 开始位置 ＋ 1048576 × 下载速度<br />         .判断 (剩余大小 ≤ 1048576 × 下载速度)<br />             结束位置 ＝ 开始位置 ＋ 剩余大小<br />         .默认<br /> <br />         .判断结束<br /> <br />     .否则<br />         跳出循环 ()<br />     .如果结束<br />     临时数据 ＝ 网页_访问_对象 (下载链接, 0, , , , “Range: bytes=” ＋ 到文本 (开始位置) ＋ “-” ＋ 到文本 (结束位置), , , , , , , , , , , , , )<br />     文件_写出字节集W (文件句柄, 临时数据)<br />     开始位置 ＝ 结束位置 ＋ 1<br />     .如果真 (是否为空 (进度回调) ＝ 假)<br />         schedule ＝ 到文本 (四舍五入 (结束位置 ÷ (文件大小 ÷ 100), 2))<br />         程序_Call (到整数 (进度回调), 取指针地址_文本型 (schedule), , , , )<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 文件_关闭文件W (文件句柄)<br /> <br /> .子程序 文件_创建空白文件, 逻辑型, 公开<br /> .参数 文件名, 文本型, , 完整路径<br /> .参数 文件大小, 长整数型, , 字节<br /> .局部变量 A, 文本型<br /> <br /> .如果真 (文件是否存在 (文件名))<br />     .如果真 (取反 (删除文件 (文件名)))<br />         返回 (假)<br />     .如果真结束<br /> <br /> .如果真结束<br /> A ＝ “fsutil.exe file createnew ” ＋ #引号 ＋ 文件名 ＋ #引号 ＋ “ ” ＋ 到文本 (文件大小)<br /> 返回 (运行 (A, 真, 2))

补充内容 (2024-8-25 13:53):
需要精易模块

fastdao

幻想大人 发表于 2024-8-25 13:52
[e=3].版本 2
.支持库 spec

下载下来的文件是0字节

幻想大人

fastdao 发表于 2024-8-25 15:10
下载下来的文件是0字节

那是因为你这个链接的视频失效了

fastdao

幻想大人 发表于 2024-8-25 19:48
那是因为你这个链接的视频失效了

我测试了，没有失效，

补充内容 (2024-8-26 11:03):
还真的失效了，我再试试看