浏览器下载特殊m3u8视频

hxq2015

在下载m3u8格式视频中，遇到了一种新情况：非IE浏览器中可以播放，用易语言http读文件或网页访问不了的链接，无法调用下载软件下载。又写了一款针对这种特殊m3u8视频的下载软件，没有整合常见和加密m3u8链的解析。只要电脑性能不差，用默认非ie浏览器下载，速度还是可以的。我用的是MiniBrowser浏览器，浏览器下载的临时文件夹是“C:\Users\Administrator\Downloads\i”，可能会和他人所用电脑不同，可以自行修改源码，保存下载后的文件在本程序运行目录。用了四个时钟实现自动化，模块用到精易[v7.5],合并临时流文件用到11m的ffmpeg。等后面有时间了再整合前一版调用IDM极速下载,或者加入常规和加密链接下载。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
域名头	文本型
下载流句柄	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

如果 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)
执行 (4, 编辑框1.内容, , , )
标签1.标题 ＝ “读取中，请稍候”
_时钟2_周期事件 ()

信息框 (“请检查，有信息没填”, 0, , )
返回 ()

子程序名	返回值类型	公开	备 注
取地址

变量名	类 型	静态	数组	备 注
取新后辍	文本型
一次文本	文本型
新后辍	文本型

一次文本 ＝ 到文本 (读入文件 (“C:\Users\Administrator\Downloads\index.txt”))
删除文件 (“C:\Users\Administrator\Downloads\index.txt”)
如果真 (文本_寻找文本 (一次文本, “BANDWIDTH=”, , 假) ＞ 0)
取新后辍 ＝ 到文本 (到整数 (文本_取出中间文本 (一次文本, “BANDWIDTH=”, “,”)) ＼ 1000) ＋ “kb”
新后辍 ＝ 取新后辍 ＋ 文本_取右边 (一次文本, 取新后辍)
编辑框1.内容 ＝ 子文本替换 (编辑框1.内容, “index.m3u8”, 新后辍, , , 真)
域名头 ＝ 文本_取左边 (编辑框1.内容, “index.m3u8”)
标签1.标题 ＝ “正在取地址”
执行 (4, 编辑框1.内容, , , )
_时钟3_周期事件 ()

子程序名	返回值类型	公开	备 注
下载流

变量名	类 型	静态	数组	备 注
列表组	文本型		0
n	整数型
二次文本	文本型
地址	文本型
下载句柄	整数型
m3u8句柄	整数型
地址名	文本型
表项	整数型
D	整数型

' 下载句柄 ＝ 打开内存文件 ()
标签1.标题 ＝ “下载中”
m3u8句柄 ＝ 打开内存文件 ()
二次文本 ＝ 到文本 (读入文件 (“C:\Users\Administrator\Downloads\index.txt”))
列表组 ＝ 分割文本 (二次文本, 字符 (10), )
如果真 (取数组成员数 (列表组) ≠ 0)
计次循环首 (取数组成员数 (列表组), n)
如果 (文本_寻找文本 (列表组 [n], “#”, , 真) ＝ -1)
如果 (文本_寻找文本 (列表组 [n], “http”, , 真) ＝ -1)
地址 ＝ 域名头 ＋ 列表组 [n]
' 写出文本 (下载句柄, 域名头 ＋ 地址 ＋ #换行符)
' 写出文本 (下载句柄, 地址 ＋ #换行符)
地址 ＝ 列表组 [n]
地址名 ＝ 取文本右边 (地址, 取文本长度 (地址) － 倒找文本 (地址, “/”, , 假))
写出文本 (m3u8句柄, 子文本替换 (“C:\Users\Administrator\Downloads\”, “\”, “/”, , , 真) ＋ 地址名, #换行符 )
表项 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (表项, 0, 到文本 (超级列表框1.取表项数 ()))
超级列表框1.置标题 (表项, 1, 地址)
超级列表框1.置标题 (表项, 2, 地址名)
超级列表框1.置标题 (表项, 3, “等待中”)

写出文本 (m3u8句柄, 列表组 [n], #换行符 )

处理事件 ()
计次循环尾 ()
' 移到文件首 (下载句柄)
' 编辑框4.内容 ＝ 读入文本 (下载句柄, )
' 写到文件 (下载目录 ＋ “.txt”, 到字节集 (读入文本 (下载句柄, )))  ' 写出ts列表下载文本
移到文件首 (m3u8句柄)
' xm3u8 ＝ 子文本替换 (读入文本 (m3u8句柄, ), key替换, 子文本替换 (下载目录, “\”, “/”, , , 真) ＋ “key.key”, , , 真)  ' 写出本地m3u8文件
写到文件 (“C:\Users\Administrator\Downloads\” ＋ 编辑框2.内容 ＋ “.m3u8”, 到字节集 (读入文本 (m3u8句柄, )))
删除文件 (“C:\Users\Administrator\Downloads\index.txt”)

如果真 (超级列表框1.取表项数 () ＞ 0)
计次循环首 (超级列表框1.取表项数 (), D)
执行 (4, 超级列表框1.取标题 (D － 1, 1), , , )
计次循环尾 ()

_时钟1_周期事件 ()

子程序名	返回值类型	公开	备 注
合并文件

标签1.标题 ＝ “合并中”
系统_取DOS执行结果 (“ffmpeg11.exe -allowed_extensions ALL -i  C:\Users\Administrator\Downloads\” ＋ 编辑框2.内容 ＋ “.m3u8 -c copy ” ＋ 取运行目录 () ＋ “\” ＋ 编辑框2.内容 ＋ “.mp4”)
如果 (文件是否存在 (取运行目录 () ＋ “\” ＋ 编辑框2.内容 ＋ “.mp4”) ＝ 假)
标签1.标题 ＝ “合并文件失败”
标签1.标题 ＝ “正在删除临时文件”
目录_清空 (“C:\Users\Administrator\Downloads\”)
标签1.标题 ＝ “下载完成”

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
U	整数型
完成数	整数型

如果真 (超级列表框1.取表项数 () ＞ 0)
计次循环首 (超级列表框1.取表项数 (), U)
如果真 (寻找文件 (“C:\Users\Administrator\Downloads\” ＋ 超级列表框1.取标题 (U － 1, 2), ) ≠ “”)
超级列表框1.置标题 (U － 1, 3, “完成”)
完成数 ＝ 完成数 ＋ 1

计次循环尾 ()
进度条1.位置 ＝ 到整数 (完成数 ÷ (U － 1) × 100)
标签1.标题 ＝ “已下载：” ＋ 到文本 (进度条1.位置) ＋ “%”

子程序名	返回值类型	公开	备 注
_时钟2_周期事件

如果真 (寻找文件 (“C:\Users\Administrator\Downloads\index.m3u8”, ) ≠ “”)
标签1.标题 ＝ “文件已读取，可以取地址了”

子程序名	返回值类型	公开	备 注
_时钟3_周期事件

如果真 (寻找文件 (“C:\Users\Administrator\Downloads\index.m3u8”, ) ≠ “”)
标签1.标题 ＝ “地址已取到，可以下载”

子程序名	返回值类型	公开	备 注
_超级列表框1_右键单击表项

弹出菜单 (下载菜单, , )

子程序名	返回值类型	公开	备 注
_下载选中项_被选择

执行 (4, 超级列表框1.取标题 (超级列表框1.现行选中项, 1), , , )

子程序名	返回值类型	公开	备 注
_时钟4_周期事件

如果真 (标签1.标题 ＝ “文件已读取，可以取地址了”)
时钟2.时钟周期 ＝ 0
文件更名 (“C:\Users\Administrator\Downloads\index.m3u8”, “C:\Users\Administrator\Downloads\index.txt”)
如果真 (寻找文件 (“C:\Users\Administrator\Downloads\index.txt”, ) ≠ “”)
取地址 ()

如果真 (标签1.标题 ＝ “地址已取到，可以下载”)
时钟3.时钟周期 ＝ 0
如果真 (文件更名 (“C:\Users\Administrator\Downloads\index.m3u8”, “C:\Users\Administrator\Downloads\index.txt”))
启动线程 (&下载流, , 下载流句柄)

如果真 (标签1.标题 ＝ “已下载：100%”)
时钟1.时钟周期 ＝ 0
合并文件 ()

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

_时钟4_周期事件 ()
如果真 (标签1.标题 ＝ “下载完成”)
时钟4.时钟周期 ＝ 0

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

.版本 2<br /> .支持库 shell<br /> .支持库 iext<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 域名头, 文本型<br /> .程序集变量 下载流句柄, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)<br />     执行 (4, 编辑框1.内容, , , )<br />     标签1.标题 ＝ “读取中，请稍候”<br />     _时钟2_周期事件 ()<br /> <br /> .否则<br />     信息框 (“请检查，有信息没填”, 0, , )<br />     返回 ()<br /> .如果结束<br /> <br /> <br /> .子程序 取地址<br /> .局部变量 取新后辍, 文本型<br /> .局部变量 一次文本, 文本型<br /> .局部变量 新后辍, 文本型<br /> <br /> 一次文本 ＝ 到文本 (读入文件 (“C:\Users\Administrator\Downloads\index.txt”))<br /> 删除文件 (“C:\Users\Administrator\Downloads\index.txt”)<br /> .如果真 (文本_寻找文本 (一次文本, “BANDWIDTH=”, , 假) ＞ 0)<br />     取新后辍 ＝ 到文本 (到整数 (文本_取出中间文本 (一次文本, “BANDWIDTH=”, “,”)) ＼ 1000) ＋ “kb”<br />     新后辍 ＝ 取新后辍 ＋ 文本_取右边 (一次文本, 取新后辍)<br />     编辑框1.内容 ＝ 子文本替换 (编辑框1.内容, “index.m3u8”, 新后辍, , , 真)<br />     域名头 ＝ 文本_取左边 (编辑框1.内容, “index.m3u8”)<br />     标签1.标题 ＝ “正在取地址”<br />     执行 (4, 编辑框1.内容, , , )<br /> .如果真结束<br /> _时钟3_周期事件 ()<br /> <br /> <br /> .子程序 下载流<br /> .局部变量 列表组, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 二次文本, 文本型<br /> .局部变量 地址, 文本型<br /> .局部变量 下载句柄, 整数型<br /> .局部变量 m3u8句柄, 整数型<br /> .局部变量 地址名, 文本型<br /> .局部变量 表项, 整数型<br /> .局部变量 D, 整数型<br /> <br /> ' 下载句柄 ＝ 打开内存文件 ()<br /> 标签1.标题 ＝ “下载中”<br /> m3u8句柄 ＝ 打开内存文件 ()<br /> 二次文本 ＝ 到文本 (读入文件 (“C:\Users\Administrator\Downloads\index.txt”))<br /> 列表组 ＝ 分割文本 (二次文本, 字符 (10), )<br /> <br /> .如果真 (取数组成员数 (列表组) ≠ 0)<br />     .计次循环首 (取数组成员数 (列表组), n)<br />         .如果 (文本_寻找文本 (列表组 [n], “#”, , 真) ＝ -1)<br />             .如果 (文本_寻找文本 (列表组 [n], “http”, , 真) ＝ -1)<br />                 地址 ＝ 域名头 ＋ 列表组 [n]<br />                 ' 写出文本 (下载句柄, 域名头 ＋ 地址 ＋ #换行符)<br />             .否则<br />                 ' 写出文本 (下载句柄, 地址 ＋ #换行符)<br />                 地址 ＝ 列表组 [n]<br />             .如果结束<br />             地址名 ＝ 取文本右边 (地址, 取文本长度 (地址) － 倒找文本 (地址, “/”, , 假))<br />             写出文本 (m3u8句柄, 子文本替换 (“C:\Users\Administrator\Downloads\”, “\”, “/”, , , 真) ＋ 地址名, #换行符)<br />             表项 ＝ 超级列表框1.插入表项 (, , , , , )<br />             超级列表框1.置标题 (表项, 0, 到文本 (超级列表框1.取表项数 ()))<br />             超级列表框1.置标题 (表项, 1, 地址)<br />             超级列表框1.置标题 (表项, 2, 地址名)<br />             超级列表框1.置标题 (表项, 3, “等待中”)<br /> <br /> <br />         .否则<br />             写出文本 (m3u8句柄, 列表组 [n], #换行符)<br />         .如果结束<br /> <br />         处理事件 ()<br /> <br />     .计次循环尾 ()<br />     ' 移到文件首 (下载句柄)<br />     ' 编辑框4.内容 ＝ 读入文本 (下载句柄, )<br />     ' 写到文件 (下载目录 ＋ “.txt”, 到字节集 (读入文本 (下载句柄, )))  ' 写出ts列表下载文本<br />     移到文件首 (m3u8句柄)<br />     ' xm3u8 ＝ 子文本替换 (读入文本 (m3u8句柄, ), key替换, 子文本替换 (下载目录, “\”, “/”, , , 真) ＋ “key.key”, , , 真)  ' 写出本地m3u8文件<br />     写到文件 (“C:\Users\Administrator\Downloads\” ＋ 编辑框2.内容 ＋ “.m3u8”, 到字节集 (读入文本 (m3u8句柄, )))<br />     删除文件 (“C:\Users\Administrator\Downloads\index.txt”)<br /> <br /> .如果真结束<br /> <br /> .如果真 (超级列表框1.取表项数 () ＞ 0)<br />     .计次循环首 (超级列表框1.取表项数 (), D)<br />         执行 (4, 超级列表框1.取标题 (D － 1, 1), , , )<br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> _时钟1_周期事件 ()<br /> <br /> <br /> .子程序 合并文件<br /> <br /> 标签1.标题 ＝ “合并中”<br /> 系统_取DOS执行结果 (“ffmpeg11.exe -allowed_extensions ALL -i  C:\Users\Administrator\Downloads\” ＋ 编辑框2.内容 ＋ “.m3u8 -c copy ” ＋ 取运行目录 () ＋ “\” ＋ 编辑框2.内容 ＋ “.mp4”)<br /> .如果 (文件是否存在 (取运行目录 () ＋ “\” ＋ 编辑框2.内容 ＋ “.mp4”) ＝ 假)<br />     标签1.标题 ＝ “合并文件失败”<br /> .否则<br />     标签1.标题 ＝ “正在删除临时文件”<br />     目录_清空 (“C:\Users\Administrator\Downloads\”)<br />     标签1.标题 ＝ “下载完成”<br /> .如果结束<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 U, 整数型<br /> .局部变量 完成数, 整数型<br /> <br /> .如果真 (超级列表框1.取表项数 () ＞ 0)<br />     .计次循环首 (超级列表框1.取表项数 (), U)<br />         .如果真 (寻找文件 (“C:\Users\Administrator\Downloads\” ＋ 超级列表框1.取标题 (U － 1, 2), ) ≠ “”)<br />             超级列表框1.置标题 (U － 1, 3, “完成”)<br />             完成数 ＝ 完成数 ＋ 1<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     进度条1.位置 ＝ 到整数 (完成数 ÷ (U － 1) × 100)<br /> <br />     标签1.标题 ＝ “已下载：” ＋ 到文本 (进度条1.位置) ＋ “%”<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 _时钟2_周期事件<br /> <br /> .如果真 (寻找文件 (“C:\Users\Administrator\Downloads\index.m3u8”, ) ≠ “”)<br />     标签1.标题 ＝ “文件已读取，可以取地址了”<br /> .如果真结束<br /> <br /> <br /> .子程序 _时钟3_周期事件<br /> <br /> .如果真 (寻找文件 (“C:\Users\Administrator\Downloads\index.m3u8”, ) ≠ “”)<br />     标签1.标题 ＝ “地址已取到，可以下载”<br /> .如果真结束<br /> <br /> <br /> .子程序 _超级列表框1_右键单击表项<br /> <br /> 弹出菜单 (下载菜单, , )<br /> <br /> .子程序 _下载选中项_被选择<br /> <br /> 执行 (4, 超级列表框1.取标题 (超级列表框1.现行选中项, 1), , , )<br /> <br /> .子程序 _时钟4_周期事件<br /> <br /> <br /> .如果真 (标签1.标题 ＝ “文件已读取，可以取地址了”)<br />     时钟2.时钟周期 ＝ 0<br />     文件更名 (“C:\Users\Administrator\Downloads\index.m3u8”, “C:\Users\Administrator\Downloads\index.txt”)<br />     .如果真 (寻找文件 (“C:\Users\Administrator\Downloads\index.txt”, ) ≠ “”)<br />         取地址 ()<br />     .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (标签1.标题 ＝ “地址已取到，可以下载”)<br />     时钟3.时钟周期 ＝ 0<br />     .如果真 (文件更名 (“C:\Users\Administrator\Downloads\index.m3u8”, “C:\Users\Administrator\Downloads\index.txt”))<br />         启动线程 (&下载流, , 下载流句柄)<br />     .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (标签1.标题 ＝ “已下载：100%”)<br />     时钟1.时钟周期 ＝ 0<br />     合并文件 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> _时钟4_周期事件 ()<br /> .如果真 (标签1.标题 ＝ “下载完成”)<br />     时钟4.时钟周期 ＝ 0<br /> .如果真结束

木木大大

谢谢高手·~~

epwne

支持~！感谢分享~！

1379369235

好的，学习学习

ex621

有个小软件去合成

cabrite

hxq2015 发表于 2023-4-25 14:34
目前我遇到的是可以合成的，里面没有加密文件的，所有数据流都需要用浏览器才能下来 ...

我一般都是用QQ浏览器去下载，然后有个小软件去合成

hxq2015

cabrite 发表于 2023-4-25 14:17
能合并成mp4吗，之前下过那种视频，然后不能合并

目前我遇到的是可以合成的，里面没有加密文件的，所有数据流都需要用浏览器才能下来

cabrite

能合并成mp4吗，之前下过那种视频，然后不能合并

精彩的鸟

好的，学习学习

hxq2015

如果你也遇到这种情况，可以试试看