默认浏览器下载m3u8视频2023修订版

hxq2015

再做一个合并版，可以对付大多数m3u8视频下载了，废了些时间在这些无用的事情上了。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
总下载数	整数型
已下载数	整数型
开始下载句柄	整数型
下载目录	文本型
线程池	线程池
域名头	文本型
域名中间	文本型
域名尾	文本型
下载流句柄	整数型
浏览器目录	文本型
文件名	文本型

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

组合框1.现行选中项 ＝ 0
拖放对象1.注册拖放控件 (透明标签1.取窗口句柄 ())
如果真 (寻找文件 (取运行目录 () ＋ “\ffempg11.exe”, ) ＝ “”)
写到文件 (取运行目录 () ＋ “\视频工具.zip”, #ffempg11 )
ZIP压缩1.解压 (取运行目录 () ＋ “\视频工具.zip”, 取运行目录 () ＋ “\”)
删除文件 (取运行目录 () ＋ “\视频工具.zip”)
如果真 (寻找文件 (取运行目录 () ＋ “\IDMan.exe”, ) ＝ “”)
写到文件 (取运行目录 () ＋ “\IDMan.exe”, #IDM )

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

如果 (取反 (寻找文本 (编辑框1.内容, “\”, , 假) ＝ -1))
信息框 (“格式不能含有/,请按转换键！”, 0, , )
返回 ()
如果 (编辑框1.内容 ＝ “” 或 编辑框3.内容 ＝ “”)
信息框 (“请填入完整信息！”, 0, , )
返回 ()
如果真 (文本_寻找文本 (编辑框1.内容, “.mp4”, ) ＞ 0)
调用IDM (编辑框1.内容, 取运行目录 (), 编辑框3.内容)
' 运行 (“aria2c.exe -c -x16 -s20 -j20 ” ＋ “” ＋ 编辑框1.内容 ＋ “ -o ” ＋ 编辑框3.内容 ＋ 标签4.标题, 假, )
如果真 (文本_寻找文本 (编辑框1.内容, “.m3u8”, ) ＞ 0)
线程池.创建 (到整数 (编辑框4.内容))
按钮_下载.禁止 ＝ 真
启动线程 (&开始下载, , 开始下载句柄)

子程序名	返回值类型	公开	备 注
调用IDM			命令行：IDMan.exe /s  或 IDMan.exe /d URL [/p 本地路径] [/f 本地文件名] [/q成功下载后退出] [/h成功下载后挂起链接] [/n启用安静模式不出现询问] [/a添加文件到列队后面等待下载]
参数名	类 型	参考	可空	数组	备 注
url	文本型				下载文件直链地址
add	文本型				保存目录，后面不能带"\"
filename	文本型				保存文件名，带后缀(默认从文件服务器获得文件名)

如果真 (取反 (是否为空 (filename)))
filename ＝ “ /f ” ＋ #引号 ＋ filename ＋ #引号
运行 (“IDMan.exe /p ” ＋ #引号 ＋ add ＋ #引号 ＋ filename ＋ “ /d ” ＋ #引号 ＋ url ＋ #引号 ＋ “ /n” ＋ “ /q”, 真, #隐藏窗口 )

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

如果真 (文本_寻找文本 (编辑框1.内容, “m3u8”, ) ≠ -1)
线程池.销毁 ()
按钮_下载.禁止 ＝ 假
进度条.位置 ＝ 0
已下载数 ＝ 0
标签5.标题 ＝ “用户取消”

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

变量名	类 型	静态	数组	备 注
数据列表	文本型		0
x	整数型
行号	整数型
a	整数型

获取m3u8资源列表 (编辑框1.内容, 数据列表)
如果 (取数组成员数 (数据列表) ＝ 0)
标签5.标题 ＝ “视频提取失败”
标签5.标题 ＝ “视频提取成功”
总下载数 ＝ 取数组成员数 (数据列表)
计次循环首 (取数组成员数 (数据列表), x)
线程池.加入工作 (&线程下载子程序, 总下载数, 网页_取网址文件名 (数据列表 [x]), 数据列表 [x])
计次循环尾 ()

如果 (等待线程 (开始下载句柄, 1))
强制结束线程 (开始下载句柄)
关闭线程句柄 (开始下载句柄)

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

如果 (编辑框1.内容 ＝ “”)
信息框 (“没填播放源”, 0, , )
CKplayer_播放 (编辑框1.内容)

子程序名	返回值类型	公开	备 注
CKplayer_播放
参数名	类 型	参考	可空	数组	备 注
视频地址	文本型

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

临时文本 ＝ #ckplayer
临时文本 ＝ 子文本替换 (临时文本, “{video}”, 到文本 (视频地址), , , 真)
临时文本 ＝ 子文本替换 (临时文本, “&”, “%26”, , , 真)
写到文件 (取运行目录 () ＋ “\index.html”, 到字节集 (临时文本))
超文本浏览框1.跳转 (取运行目录 () ＋ “\index.html”, , )

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

写到文件 (取运行目录 () ＋ “/flash.exe”, #flash )
运行 (取运行目录 () ＋ “/flash.exe”, 假, )

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

编辑框1.内容 ＝ 子文本替换 (编辑框1.内容, “\/”, “/”, , , 真)
编辑框1.内容 ＝ 子文本替换 (编辑框1.内容, “\”, “/”, , , 真)

子程序名	返回值类型	公开	备 注
线程下载子程序
参数名	类 型	参考	可空	数组	备 注
总数	整数型				必须加这个 空着都行
下载文件名	文本型				必须加这个 空着都行
下载地址	文本型				必须加这个 空着都行

变量名	类 型	静态	数组	备 注
保存文件名	文本型
数据	字节集
下载进度	小数型
命令	文本型

下载目录 ＝ 取运行目录 () ＋ “\” ＋ 编辑框3.内容 ＋ “\”
如果真 (取反 (目录_是否存在 (文件_取目录 (下载目录))))
创建目录 (文件_取目录 (下载目录))
保存文件名 ＝ 下载目录 ＋ 下载文件名
数据 ＝ HTTP读文件 (下载地址)
写到文件 (保存文件名, 数据)
已下载数 ＝ 已下载数 ＋ 1
下载进度 ＝ 到整数 (已下载数 ÷ 总数 × 100)
标签5.标题 ＝ “已下载：” ＋ 到文本 (下载进度) ＋ “%”
进度条.位置 ＝ 下载进度
如果真 (已下载数 ＝ 总数)
命令 ＝ 系统_取DOS执行结果 (“ffmpeg11.exe -allowed_extensions ALL -i  ” ＋ 下载目录 ＋ 编辑框3.内容 ＋ “.m3u8 -c copy ” ＋ 取运行目录 () ＋ “\” ＋ 编辑框3.内容 ＋ “.mp4”)
如果 (文件是否存在 (取运行目录 () ＋ “\” ＋ 编辑框3.内容 ＋ “.mp4”) ＝ 假)
标签5.标题 ＝ “合并文件失败”
标签5.标题 ＝ “正在删除临时文件”
删除目录 (下载目录)
标签5.标题 ＝ “下载完成”
按钮_下载.禁止 ＝ 假
进度条.位置 ＝ 0
已下载数 ＝ 0
线程池.销毁 ()

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

CKplayer_播放 (子文本替换 (接收到的文件路径, “\”, “/”, , , 真))

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

CKplayer_播放 (“ ”)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

结束 ()

子程序名	返回值类型	公开	备 注
获取m3u8资源列表
参数名	类 型	参考	可空	数组	备 注
m3u8地址	文本型
返回资源列表	文本型

变量名	类 型	静态	数组	备 注
域名	文本型
域名2	文本型
m3u8文件名	文本型
临时数据	文本型
ts列表	文本型		0
地址	文本型			单条ts名
地址名	文本型
x	整数型
m3u8新文件名	文本型
分析原地址	文本型
原地址中间	文本型
xm3u8	文本型			新的m3u8写到本地文件
key替换	文本型
下载句柄	整数型
key文件	文本型
m3u8句柄	整数型

下载目录 ＝ 取运行目录 () ＋ “\” ＋ 编辑框3.内容 ＋ “\”
如果真 (取反 (目录_是否存在 (文件_取目录 (下载目录))))
创建目录 (文件_取目录 (下载目录))

域名 ＝ 文本_取左边 (m3u8地址, “/”) ＋ “//” ＋ 网页_取域名 (m3u8地址, ) ＋ “/”  ' 取出的域名"https://vip6.3sybf.com/"
m3u8文件名 ＝ 网页_取网址文件名 (m3u8地址)  ' 取出后辍名“index.m3u8”
原地址中间 ＝ 文本_取出中间文本 (m3u8地址, 域名, m3u8文件名)  ' 原地址的中间主干“20210824/dwQiAQVy/”
分析原地址 ＝ 到文本 (HTTP读文件 (m3u8地址))  ' 解析地址,看是否包括二次转接链,如“#EXTM3U#EXT-X-STREAM-INF:PROGRAM-ID=1,BANDWIDTH=2000000,RESOLUTION=1280x720/20210824/dwQiAQVy/2000kb/hls/index.m3u8”
如果 (分析原地址 ＝ “”)
信息框 (“m3u8地址无效，请输入其他地址”, 0, , )
返回 ()


m3u8新文件名 ＝ 文本_取右边 (分析原地址, 原地址中间)  ' 取出“2000kb/hls/index.m3u8”
如果 (文本_寻找文本 (分析原地址, “BANDWIDTH=”, , 真) ≠ -1)
m3u8地址 ＝ 子文本替换 (m3u8地址, m3u8文件名, m3u8新文件名, , , 真)  ' 得到二次转接地址“https://vip6.3sybf.com/20210824/dwQiAQVy/2000kb/hls/index.m3u8”
域名2 ＝ 子文本替换 (m3u8地址, m3u8文件名, “”, , , 真)  ' 二次转接域名“https://vip6.3sybf.com/20210824/dwQiAQVy/2000kb/hls/”
临时数据 ＝ 编码_utf8到gb2312 (网页_取网页源码 (m3u8地址))
如果真 (文本_寻找文本 (临时数据, “key.key”, , 真) ≠ -1)  ' 写出key解密文件“https://vip6.3sybf.com/20210824/dwQiAQVy/2000kb/hls/key.key”
标签5.标题 ＝ “正在写出解密文件”
key文件 ＝ 子文本替换 (m3u8地址, m3u8文件名, “key.key”, , , 真)
' key替换 ＝ 文本_取出中间文本 (临时数据, #引号, #引号)
写到文件 (下载目录 ＋ “key.key”, HTTP读文件 (key文件))

域名2 ＝ 域名
临时数据 ＝ 编码_utf8到gb2312 (分析原地址)
如果真 (文本_寻找文本 (临时数据, “key.key”, , 真) ≠ -1)  ' 写出key解密文件“https://vip6.3sybf.com/20210824/dwQiAQVy/2000kb/hls/key.key”
标签5.标题 ＝ “正在写出解密文件”
key文件 ＝ 子文本替换 (m3u8地址, m3u8文件名, “key.key”, , , 真)
' key替换 ＝ 文本_取出中间文本 (临时数据, #引号, #引号)
写到文件 (下载目录 ＋ “key.key”, HTTP读文件 (key文件))


key替换 ＝ 文本_取出中间文本 (临时数据, #引号, #引号 )
如果 (文本_寻找文本 (临时数据, 原地址中间, , 真) ≠ -1)
域名2 ＝ 文本_取左边 (域名2, “/” ＋ 原地址中间)
域名2 ＝ 子文本替换 (m3u8地址, m3u8文件名, “”, , , 真)

下载句柄 ＝ 打开内存文件 ()
移到文件首 (下载句柄)
m3u8句柄 ＝ 打开内存文件 ()
移到文件首 (m3u8句柄)
' 然后现在开始提取文件列表了
如果 (文本_寻找文本 (临时数据, 字符 (10), , 真) ＝ -1)  ' 这里判断是不是上面那个看不见的分段符[字符 (10)]还是普通的换行符
ts列表 ＝ 分割文本 (临时数据, #换行符, )
ts列表 ＝ 分割文本 (临时数据, 字符 (10), )

如果 (取数组成员数 (ts列表) ≠ 0)
计次循环首 (取数组成员数 (ts列表), x)
地址 ＝ ts列表 [x]
如果 (文本_寻找文本 (地址, “#”, , 真) ＝ -1)
如果 (文本_寻找文本 (地址, “http”, , 真) ＝ -1)
加入成员 (返回资源列表, 域名2 ＋ 地址)
' 写到文件 (下载句柄, 域名2 ＋ 地址 ＋ #换行符)
加入成员 (返回资源列表, 地址)
' 写到文件 (下载句柄, 地址 ＋ #换行符)
地址名 ＝ 取文本右边 (地址, 取文本长度 (地址) － 倒找文本 (地址, “/”, , 假))
写出文本 (m3u8句柄, 子文本替换 (下载目录, “\”, “/”, , , 真) ＋ 地址名, #换行符 )
写出文本 (m3u8句柄, 地址, #换行符 )

处理事件 ()
计次循环尾 ()
信息框 (“源可能失效”, 0, , )

' 移到文件首 (下载句柄)
' 写到文件 (下载目录 ＋ “.txt”, 到字节集 (读入文本 (下载句柄, )))  ' 写出ts列表下载文本
移到文件首 (m3u8句柄)
xm3u8 ＝ 子文本替换 (读入文本 (m3u8句柄, ), key替换, 子文本替换 (下载目录, “\”, “/”, , , 真) ＋ “key.key”, , , 真)  ' 写出本地m3u8文件
写到文件 (下载目录 ＋ 编辑框3.内容 ＋ “.m3u8”, 到字节集 (xm3u8))

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

变量名	类 型	静态	数组	备 注
行内容	文本型
网源码	文本型

网源码 ＝ 到文本 (HTTP读文件 (网页地址框.内容))
如果 (文本_寻找文本 (网源码, 组合框1.取项目文本 (组合框1.现行选中项), , 假) ＝ -1)
信息框 (“没找到指定文件，请换网址再次搜寻”, 0, , )
返回 ()
行内容 ＝ 文本_取指定变量文本行 (网源码, 文本_取文本所在行_优化版 (网源码, 组合框1.取项目文本 (组合框1.现行选中项), , 假))
编辑框3.内容 ＝ 文本区分_只取汉字 (编码_utf8到gb2312 (文本_取出中间文本 (网源码, “”, , )))
如果真 (组合框1.取项目文本 (组合框1.现行选中项) ＝ “.m3u8”)
编辑框1.内容 ＝ “http” ＋ 文本_倒取出中间文本 (行内容, “.m3u8”, “http”, , 假) ＋ “.m3u8”
如果真 (组合框1.取项目文本 (组合框1.现行选中项) ＝ “.mp4”)
编辑框1.内容 ＝ “http” ＋ 文本_倒取出中间文本 (行内容, “.mp4”, “http”, , 假) ＋ “.mp4”

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

变量名	类 型	静态	数组	备 注
清晰度	文本型		0
取清晰度	整数型

组合框2.清空 ()
取清晰度 ＝ 文本_取中间_批量 (到文本 (HTTP读文件 (编辑框1.内容)), “NAME=” ＋ #引号, #引号, 清晰度, )
如果 (文本_寻找文本 (到文本 (HTTP读文件 (编辑框1.内容)), “NAME=”, , ) ＞ 1)
组合框2.加入项目 (“有数据，可选择”, )
计次循环首 (取数组成员数 (清晰度), 取清晰度)
组合框2.加入项目 (清晰度 [取清晰度], )
计次循环尾 ()
组合框2.现行选中项 ＝ 0
组合框2.加入项目 (“无数据，无需选择”, )
组合框2.现行选中项 ＝ 0

子程序名	返回值类型	公开	备 注
_组合框2_列表项被选择

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

替换名 ＝ 文本_取出中间文本 (到文本 (HTTP读文件 (编辑框1.内容)), 组合框2.取项目文本 (组合框2.现行选中项) ＋ #引号, “.m3u8”, , ) ＋ “.m3u8”
编辑框1.内容 ＝ 子文本替换 (编辑框1.内容, 网页_取网址文件名 (编辑框1.内容), 替换名, , , 真)

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

执行 (, 取运行目录 (), , , )

子程序名	返回值类型	公开	备 注
浏览器下载

如果 (编辑框1.内容 ≠ “” 且 编辑框3.内容 ≠ “”)
如果 (文件是否存在 (取运行目录 () ＋ “\” ＋ 编辑框3.内容 ＋ “.mp4”) ＝ 假)
执行 (4, 编辑框1.内容, , , )
标签5.标题 ＝ “读取中，请稍候”
时钟2.时钟周期 ＝ 1000

信息框 (“已存在同名文件”, 0, , )
返回 ()

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

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

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

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

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

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

标签5.标题 ＝ “下载中”
m3u8句柄 ＝ 打开内存文件 ()
二次文本 ＝ 到文本 (读入文件 (浏览器目录 ＋ “index.txt”))
域名尾 ＝ 取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 倒找文本 (编辑框1.内容, “/”, , 假))
域名头 ＝ 文本_取左边 (编辑框1.内容, “.com”) ＋ “.com”
域名中间 ＝ 文本_取出中间文本 (编辑框1.内容, 域名头, 域名尾)
如果真 (文本_寻找文本 (二次文本, “key.key”, , 真) ≠ -1)
key文件 ＝ 文本_取出中间文本 (二次文本, #引号, #引号 )
如果 (文本_寻找文本 (key文件, “http”, , 真) ＝ -1)
执行 (4, 域名头 ＋ 域名中间 ＋ “/” ＋ key文件, , , )
执行 (4, key文件, , , )


列表组 ＝ 分割文本 (二次文本, 字符 (10), )
如果真 (取数组成员数 (列表组) ≠ 0)
计次循环首 (取数组成员数 (列表组), n)
如果 (文本_寻找文本 (列表组 [n], “#”, , 真) ＝ -1)
如果 (文本_寻找文本 (列表组 [n], “http”, , 真) ＝ -1)
如果 (文本_寻找文本 (列表组 [n], “kb”, , 真) ＝ -1)
地址 ＝ 域名头 ＋ 域名中间 ＋ 列表组 [n]
地址 ＝ 域名头 ＋ 列表组 [n]

地址 ＝ 列表组 [n]
地址名 ＝ 取文本右边 (地址, 取文本长度 (地址) － 倒找文本 (地址, “/”, , 假))
写出文本 (m3u8句柄, 子文本替换 (浏览器目录, “\”, “/”, , , 真) ＋ 地址名, #换行符 )
表项 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (表项, 0, 到文本 (超级列表框1.取表项数 ()))
超级列表框1.置标题 (表项, 1, 地址)
超级列表框1.置标题 (表项, 2, 地址名)
超级列表框1.置标题 (表项, 3, “等待中”)

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

处理事件 ()
计次循环尾 ()
移到文件首 (m3u8句柄)
xm3u8 ＝ 子文本替换 (读入文本 (m3u8句柄, ), key文件, 子文本替换 (浏览器目录 ＋ “key.key”, “\”, “/”, , , 真), , , 真)
写到文件 (浏览器目录 ＋ 编辑框3.内容 ＋ “.m3u8”, 到字节集 (xm3u8))
删除文件 (浏览器目录 ＋ “index.txt”)

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

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

标签5.标题 ＝ “合并中”
系统_取DOS执行结果 (“ffmpeg11.exe -allowed_extensions ALL -i  ” ＋ 浏览器目录 ＋ 编辑框3.内容 ＋ “.m3u8 -c copy ” ＋ 取运行目录 () ＋ “\” ＋ 编辑框3.内容 ＋ “.mp4”)
如果 (文件是否存在 (取运行目录 () ＋ “\” ＋ 编辑框3.内容 ＋ “.mp4”) ＝ 假)
标签5.标题 ＝ “合并文件失败”
标签5.标题 ＝ “正在删除临时文件”
目录_清空 (浏览器目录)
标签5.标题 ＝ “下载完成”
超级列表框1.全部删除 ()
按钮5.禁止 ＝ 假

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

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

如果真 (超级列表框1.取表项数 () ＞ 0)
计次循环首 (超级列表框1.取表项数 (), U)
如果真 (寻找文件 (浏览器目录 ＋ 超级列表框1.取标题 (U － 1, 2), ) ≠ “”)
超级列表框1.置标题 (U － 1, 3, “完成”)
完成数 ＝ 完成数 ＋ 1

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

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

如果真 (寻找文件 (浏览器目录 ＋ “index.m3u8”, ) ≠ “”)
标签5.标题 ＝ “文件已读取，可以取地址了”

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

文件名 ＝ 寻找文件 (浏览器目录 ＋ “*.m3u8”, )
如果真 (文件名 ≠ “”)
标签5.标题 ＝ “地址已取到，可以下载”

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

如果真 (标签5.标题 ＝ “文件已读取，可以取地址了”)
时钟2.时钟周期 ＝ 0
文件更名 (浏览器目录 ＋ “index.m3u8”, 浏览器目录 ＋ “index.txt”)
如果真 (寻找文件 (浏览器目录 ＋ “index.txt”, ) ≠ “”)
取地址 ()

如果真 (标签5.标题 ＝ “地址已取到，可以下载”)
时钟3.时钟周期 ＝ 0
如果真 (文件更名 (浏览器目录 ＋ 文件名, 浏览器目录 ＋ “index.txt”))
启动线程 (&下载流, , 下载流句柄)

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

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

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

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

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

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

按钮5.禁止 ＝ 真
如果 (目录_是否存在 (“C:\Users\” ＋ 系统_取用户名 () ＋ “\Downloads\”) ＝ 真)
浏览器目录 ＝ “C:\Users\” ＋ 系统_取用户名 () ＋ “\Downloads\”
浏览器目录 ＝ “C:\Users\” ＋ 系统_取用户名 () ＋ “.” ＋ 系统_取本机名 () ＋ “\Downloads\”
标签5.标题 ＝ “正在清空浏览器下载目录”
目录_清空 (浏览器目录)
时钟4.时钟周期 ＝ 2000
如果真 (标签1.标题 ＝ “下载完成”)
时钟4.时钟周期 ＝ 0
浏览器下载 ()

i支持库列表	支持库注释
edroptarget	拖放支持库
eCompress	压缩解压支持库
EThread	多线程支持库
HtmlView	超文本浏览框支持库
internet	互联网支持库
shell	操作系统界面功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 edroptarget<br /> .支持库 eCompress<br /> .支持库 EThread<br /> .支持库 HtmlView<br /> .支持库 internet<br /> .支持库 shell<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 总下载数, 整数型<br /> .程序集变量 已下载数, 整数型<br /> .程序集变量 开始下载句柄, 整数型<br /> .程序集变量 下载目录, 文本型<br /> .程序集变量 线程池, 线程池<br /> .程序集变量 域名头, 文本型<br /> .程序集变量 域名中间, 文本型<br /> .程序集变量 域名尾, 文本型<br /> .程序集变量 下载流句柄, 整数型<br /> .程序集变量 浏览器目录, 文本型<br /> .程序集变量 文件名, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 组合框1.现行选中项 ＝ 0<br /> 拖放对象1.注册拖放控件 (透明标签1.取窗口句柄 ())<br /> .如果真 (寻找文件 (取运行目录 () ＋ “\ffempg11.exe”, ) ＝ “”)<br />     写到文件 (取运行目录 () ＋ “\视频工具.zip”, #ffempg11)<br />     ZIP压缩1.解压 (取运行目录 () ＋ “\视频工具.zip”, 取运行目录 () ＋ “\”)<br /> .如果真结束<br /> 删除文件 (取运行目录 () ＋ “\视频工具.zip”)<br /> .如果真 (寻找文件 (取运行目录 () ＋ “\IDMan.exe”, ) ＝ “”)<br />     写到文件 (取运行目录 () ＋ “\IDMan.exe”, #IDM)<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮_下载_被单击<br /> <br /> .如果 (取反 (寻找文本 (编辑框1.内容, “\”, , 假) ＝ -1))<br />     信息框 (“格式不能含有/,请按转换键！”, 0, , )<br />     返回 ()<br /> .否则<br />     .如果 (编辑框1.内容 ＝ “” 或 编辑框3.内容 ＝ “”)<br />         信息框 (“请填入完整信息！”, 0, , )<br />         返回 ()<br />     .否则<br />         .如果真 (文本_寻找文本 (编辑框1.内容, “.mp4”, ) ＞ 0)<br />             调用IDM (编辑框1.内容, 取运行目录 (), 编辑框3.内容)<br />             ' 运行 (“aria2c.exe -c -x16 -s20 -j20 ” ＋ “” ＋ 编辑框1.内容 ＋ “ -o ” ＋ 编辑框3.内容 ＋ 标签4.标题, 假, )<br />         .如果真结束<br />         .如果真 (文本_寻找文本 (编辑框1.内容, “.m3u8”, ) ＞ 0)<br />             线程池.创建 (到整数 (编辑框4.内容))<br />             按钮_下载.禁止 ＝ 真<br />             启动线程 (&开始下载, , 开始下载句柄)<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> <br /> <br /> <br /> .子程序 调用IDM, , , 命令行：IDMan.exe /s  或 IDMan.exe /d URL [/p 本地路径] [/f 本地文件名] [/q成功下载后退出] [/h成功下载后挂起链接] [/n启用安静模式不出现询问] [/a添加文件到列队后面等待下载]<br /> .参数 url, 文本型, , 下载文件直链地址<br /> .参数 add, 文本型, , 保存目录，后面不能带"\"<br /> .参数 filename, 文本型, 可空, 保存文件名，带后缀(默认从文件服务器获得文件名)<br /> <br /> .如果真 (取反 (是否为空 (filename)))<br />     filename ＝ “ /f ” ＋ #引号 ＋ filename ＋ #引号<br /> .如果真结束<br /> 运行 (“IDMan.exe /p ” ＋ #引号 ＋ add ＋ #引号 ＋ filename ＋ “ /d ” ＋ #引号 ＋ url ＋ #引号 ＋ “ /n” ＋ “ /q”, 真, #隐藏窗口)<br /> <br /> <br /> .子程序 _按钮_停止_被单击<br /> <br /> .如果真 (文本_寻找文本 (编辑框1.内容, “m3u8”, ) ≠ -1)<br />     线程池.销毁 ()<br />     按钮_下载.禁止 ＝ 假<br />     进度条.位置 ＝ 0<br />     已下载数 ＝ 0<br />     标签5.标题 ＝ “用户取消”<br /> .如果真结束<br /> <br /> <br /> .子程序 开始下载<br /> .局部变量 数据列表, 文本型, , "0"<br /> .局部变量 x, 整数型<br /> .局部变量 行号, 整数型<br /> .局部变量 a, 整数型<br /> <br /> 获取m3u8资源列表 (编辑框1.内容, 数据列表)<br /> .如果 (取数组成员数 (数据列表) ＝ 0)<br />     标签5.标题 ＝ “视频提取失败”<br /> .否则<br />     标签5.标题 ＝ “视频提取成功”<br />     总下载数 ＝ 取数组成员数 (数据列表)<br />     .计次循环首 (取数组成员数 (数据列表), x)<br />         线程池.加入工作 (&线程下载子程序, 总下载数, 网页_取网址文件名 (数据列表 [x]), 数据列表 [x])<br />     .计次循环尾 ()<br /> .如果结束<br /> <br /> .如果 (等待线程 (开始下载句柄, 1))<br />     强制结束线程 (开始下载句柄)<br /> .否则<br />     关闭线程句柄 (开始下载句柄)<br /> .如果结束<br /> <br /> <br /> .子程序 _按钮_播放_被单击<br /> <br /> .如果 (编辑框1.内容 ＝ “”)<br />     信息框 (“没填播放源”, 0, , )<br /> .否则<br />     CKplayer_播放 (编辑框1.内容)<br /> .如果结束<br /> <br /> <br /> .子程序 CKplayer_播放<br /> .参数 视频地址, 文本型<br /> .局部变量 临时文本, 文本型<br /> <br /> 临时文本 ＝ #ckplayer<br /> 临时文本 ＝ 子文本替换 (临时文本, “{video}”, 到文本 (视频地址), , , 真)<br /> 临时文本 ＝ 子文本替换 (临时文本, “&”, “%26”, , , 真)<br /> 写到文件 (取运行目录 () ＋ “\index.html”, 到字节集 (临时文本))<br /> 超文本浏览框1.跳转 (取运行目录 () ＋ “\index.html”, , )<br /> <br /> .子程序 _按钮_修复_被单击<br /> <br /> 写到文件 (取运行目录 () ＋ “/flash.exe”, #flash)<br /> 运行 (取运行目录 () ＋ “/flash.exe”, 假, )<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 编辑框1.内容 ＝ 子文本替换 (编辑框1.内容, “\/”, “/”, , , 真)<br /> 编辑框1.内容 ＝ 子文本替换 (编辑框1.内容, “\”, “/”, , , 真)<br /> <br /> .子程序 线程下载子程序<br /> .参数 总数, 整数型, , 必须加这个 空着都行<br /> .参数 下载文件名, 文本型, , 必须加这个 空着都行<br /> .参数 下载地址, 文本型, , 必须加这个 空着都行<br /> .局部变量 保存文件名, 文本型<br /> .局部变量 数据, 字节集<br /> .局部变量 下载进度, 小数型<br /> .局部变量 命令, 文本型<br /> <br /> 下载目录 ＝ 取运行目录 () ＋ “\” ＋ 编辑框3.内容 ＋ “\”<br /> <br /> .如果真 (取反 (目录_是否存在 (文件_取目录 (下载目录))))<br />     创建目录 (文件_取目录 (下载目录))<br /> .如果真结束<br /> 保存文件名 ＝ 下载目录 ＋ 下载文件名<br /> 数据 ＝ HTTP读文件 (下载地址)<br /> 写到文件 (保存文件名, 数据)<br /> 已下载数 ＝ 已下载数 ＋ 1<br /> 下载进度 ＝ 到整数 (已下载数 ÷ 总数 × 100)<br /> 标签5.标题 ＝ “已下载：” ＋ 到文本 (下载进度) ＋ “%”<br /> 进度条.位置 ＝ 下载进度<br /> .如果真 (已下载数 ＝ 总数)<br />     命令 ＝ 系统_取DOS执行结果 (“ffmpeg11.exe -allowed_extensions ALL -i  ” ＋ 下载目录 ＋ 编辑框3.内容 ＋ “.m3u8 -c copy ” ＋ 取运行目录 () ＋ “\” ＋ 编辑框3.内容 ＋ “.mp4”)<br />     .如果 (文件是否存在 (取运行目录 () ＋ “\” ＋ 编辑框3.内容 ＋ “.mp4”) ＝ 假)<br />         标签5.标题 ＝ “合并文件失败”<br />     .否则<br />         标签5.标题 ＝ “正在删除临时文件”<br />         删除目录 (下载目录)<br />         标签5.标题 ＝ “下载完成”<br />         按钮_下载.禁止 ＝ 假<br />         进度条.位置 ＝ 0<br />         已下载数 ＝ 0<br />         线程池.销毁 ()<br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> <br /> CKplayer_播放 (子文本替换 (接收到的文件路径, “\”, “/”, , , 真))<br /> <br /> .子程序 _按钮3_被单击<br /> <br /> CKplayer_播放 (“ ”)<br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 结束 ()<br /> <br /> <br /> .子程序 获取m3u8资源列表<br /> .参数 m3u8地址, 文本型<br /> .参数 返回资源列表, 文本型, 数组<br /> .局部变量 域名, 文本型<br /> .局部变量 域名2, 文本型<br /> .局部变量 m3u8文件名, 文本型<br /> .局部变量 临时数据, 文本型<br /> .局部变量 ts列表, 文本型, , "0"<br /> .局部变量 地址, 文本型, , , 单条ts名<br /> .局部变量 地址名, 文本型<br /> .局部变量 x, 整数型<br /> .局部变量 m3u8新文件名, 文本型<br /> .局部变量 分析原地址, 文本型<br /> .局部变量 原地址中间, 文本型<br /> .局部变量 xm3u8, 文本型, , , 新的m3u8写到本地文件<br /> .局部变量 key替换, 文本型<br /> .局部变量 下载句柄, 整数型<br /> .局部变量 key文件, 文本型<br /> .局部变量 m3u8句柄, 整数型<br /> <br /> 下载目录 ＝ 取运行目录 () ＋ “\” ＋ 编辑框3.内容 ＋ “\”<br /> .如果真 (取反 (目录_是否存在 (文件_取目录 (下载目录))))<br />     创建目录 (文件_取目录 (下载目录))<br /> .如果真结束<br /> <br /> 域名 ＝ 文本_取左边 (m3u8地址, “/”) ＋ “//” ＋ 网页_取域名 (m3u8地址, ) ＋ “/”  ' 取出的域名"https://vip6.3sybf.com/"<br /> m3u8文件名 ＝ 网页_取网址文件名 (m3u8地址)  ' 取出后辍名“index.m3u8”<br /> 原地址中间 ＝ 文本_取出中间文本 (m3u8地址, 域名, m3u8文件名)  ' 原地址的中间主干“20210824/dwQiAQVy/”<br /> <br /> 分析原地址 ＝ 到文本 (HTTP读文件 (m3u8地址))  ' 解析地址,看是否包括二次转接链,如“#EXTM3U#EXT-X-STREAM-INF:PROGRAM-ID=1,BANDWIDTH=2000000,RESOLUTION=1280x720/20210824/dwQiAQVy/2000kb/hls/index.m3u8”<br /> .如果 (分析原地址 ＝ “”)<br />     信息框 (“m3u8地址无效，请输入其他地址”, 0, , )<br />     返回 ()<br /> .否则<br /> <br /> .如果结束<br /> m3u8新文件名 ＝ 文本_取右边 (分析原地址, 原地址中间)  ' 取出“2000kb/hls/index.m3u8”<br /> <br /> .如果 (文本_寻找文本 (分析原地址, “BANDWIDTH=”, , 真) ≠ -1)<br />     m3u8地址 ＝ 子文本替换 (m3u8地址, m3u8文件名, m3u8新文件名, , , 真)  ' 得到二次转接地址“https://vip6.3sybf.com/20210824/dwQiAQVy/2000kb/hls/index.m3u8”<br />     域名2 ＝ 子文本替换 (m3u8地址, m3u8文件名, “”, , , 真)  ' 二次转接域名“https://vip6.3sybf.com/20210824/dwQiAQVy/2000kb/hls/”<br />     临时数据 ＝ 编码_utf8到gb2312 (网页_取网页源码 (m3u8地址))<br />     .如果真 (文本_寻找文本 (临时数据, “key.key”, , 真) ≠ -1)  ' 写出key解密文件“https://vip6.3sybf.com/20210824/dwQiAQVy/2000kb/hls/key.key”<br />         标签5.标题 ＝ “正在写出解密文件”<br />         key文件 ＝ 子文本替换 (m3u8地址, m3u8文件名, “key.key”, , , 真)<br />         ' key替换 ＝ 文本_取出中间文本 (临时数据, #引号, #引号)<br />         写到文件 (下载目录 ＋ “key.key”, HTTP读文件 (key文件))<br />     .如果真结束<br /> <br /> .否则<br />     域名2 ＝ 域名<br />     临时数据 ＝ 编码_utf8到gb2312 (分析原地址)<br />     .如果真 (文本_寻找文本 (临时数据, “key.key”, , 真) ≠ -1)  ' 写出key解密文件“https://vip6.3sybf.com/20210824/dwQiAQVy/2000kb/hls/key.key”<br />         标签5.标题 ＝ “正在写出解密文件”<br />         key文件 ＝ 子文本替换 (m3u8地址, m3u8文件名, “key.key”, , , 真)<br />         ' key替换 ＝ 文本_取出中间文本 (临时数据, #引号, #引号)<br />         写到文件 (下载目录 ＋ “key.key”, HTTP读文件 (key文件))<br />     .如果真结束<br /> <br /> .如果结束<br /> <br /> key替换 ＝ 文本_取出中间文本 (临时数据, #引号, #引号)<br /> <br /> .如果 (文本_寻找文本 (临时数据, 原地址中间, , 真) ≠ -1)<br />     域名2 ＝ 文本_取左边 (域名2, “/” ＋ 原地址中间)<br /> .否则<br />     域名2 ＝ 子文本替换 (m3u8地址, m3u8文件名, “”, , , 真)<br /> .如果结束<br /> <br /> 下载句柄 ＝ 打开内存文件 ()<br /> 移到文件首 (下载句柄)<br /> m3u8句柄 ＝ 打开内存文件 ()<br /> 移到文件首 (m3u8句柄)<br /> <br /> ' 然后现在开始提取文件列表了<br /> .如果 (文本_寻找文本 (临时数据, 字符 (10), , 真) ＝ -1)  ' 这里判断是不是上面那个看不见的分段符[字符 (10)]还是普通的换行符<br />     ts列表 ＝ 分割文本 (临时数据, #换行符, )<br /> .否则<br />     ts列表 ＝ 分割文本 (临时数据, 字符 (10), )<br /> .如果结束<br /> <br /> .如果 (取数组成员数 (ts列表) ≠ 0)<br />     .计次循环首 (取数组成员数 (ts列表), x)<br />         地址 ＝ ts列表 [x]<br />         .如果 (文本_寻找文本 (地址, “#”, , 真) ＝ -1)<br />             .如果 (文本_寻找文本 (地址, “http”, , 真) ＝ -1)<br />                 加入成员 (返回资源列表, 域名2 ＋ 地址)<br />                 ' 写到文件 (下载句柄, 域名2 ＋ 地址 ＋ #换行符)<br />             .否则<br />                 加入成员 (返回资源列表, 地址)<br />                 ' 写到文件 (下载句柄, 地址 ＋ #换行符)<br />             .如果结束<br />             地址名 ＝ 取文本右边 (地址, 取文本长度 (地址) － 倒找文本 (地址, “/”, , 假))<br />             写出文本 (m3u8句柄, 子文本替换 (下载目录, “\”, “/”, , , 真) ＋ 地址名, #换行符)<br />         .否则<br />             写出文本 (m3u8句柄, 地址, #换行符)<br />         .如果结束<br /> <br />         处理事件 ()<br />     .计次循环尾 ()<br /> .否则<br />     信息框 (“源可能失效”, 0, , )<br /> .如果结束<br /> <br /> ' 移到文件首 (下载句柄)<br /> ' 写到文件 (下载目录 ＋ “.txt”, 到字节集 (读入文本 (下载句柄, )))  ' 写出ts列表下载文本<br /> 移到文件首 (m3u8句柄)<br /> xm3u8 ＝ 子文本替换 (读入文本 (m3u8句柄, ), key替换, 子文本替换 (下载目录, “\”, “/”, , , 真) ＋ “key.key”, , , 真)  ' 写出本地m3u8文件<br /> 写到文件 (下载目录 ＋ 编辑框3.内容 ＋ “.m3u8”, 到字节集 (xm3u8))<br /> <br /> .子程序 _按钮_搜寻_被单击<br /> .局部变量 行内容, 文本型<br /> .局部变量 网源码, 文本型<br /> <br /> 网源码 ＝ 到文本 (HTTP读文件 (网页地址框.内容))<br /> .如果 (文本_寻找文本 (网源码, 组合框1.取项目文本 (组合框1.现行选中项), , 假) ＝ -1)<br />     信息框 (“没找到指定文件，请换网址再次搜寻”, 0, , )<br />     返回 ()<br /> .否则<br />     行内容 ＝ 文本_取指定变量文本行 (网源码, 文本_取文本所在行_优化版 (网源码, 组合框1.取项目文本 (组合框1.现行选中项), , 假))<br />     编辑框3.内容 ＝ 文本区分_只取汉字 (编码_utf8到gb2312 (文本_取出中间文本 (网源码, “”, , )))<br />     .如果真 (组合框1.取项目文本 (组合框1.现行选中项) ＝ “.m3u8”)<br />         编辑框1.内容 ＝ “http” ＋ 文本_倒取出中间文本 (行内容, “.m3u8”, “http”, , 假) ＋ “.m3u8”<br />     .如果真结束<br />     .如果真 (组合框1.取项目文本 (组合框1.现行选中项) ＝ “.mp4”)<br />         编辑框1.内容 ＝ “http” ＋ 文本_倒取出中间文本 (行内容, “.mp4”, “http”, , 假) ＋ “.mp4”<br />     .如果真结束<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 清晰度, 文本型, , "0"<br /> .局部变量 取清晰度, 整数型<br /> <br /> 组合框2.清空 ()<br /> 取清晰度 ＝ 文本_取中间_批量 (到文本 (HTTP读文件 (编辑框1.内容)), “NAME=” ＋ #引号, #引号, 清晰度, )<br /> .如果 (文本_寻找文本 (到文本 (HTTP读文件 (编辑框1.内容)), “NAME=”, , ) ＞ 1)<br />     组合框2.加入项目 (“有数据，可选择”, )<br />     .计次循环首 (取数组成员数 (清晰度), 取清晰度)<br />         组合框2.加入项目 (清晰度 [取清晰度], )<br />     .计次循环尾 ()<br />     组合框2.现行选中项 ＝ 0<br /> .否则<br />     组合框2.加入项目 (“无数据，无需选择”, )<br />     组合框2.现行选中项 ＝ 0<br /> .如果结束<br /> <br /> <br /> .子程序 _组合框2_列表项被选择<br /> .局部变量 替换名, 文本型<br /> <br /> 替换名 ＝ 文本_取出中间文本 (到文本 (HTTP读文件 (编辑框1.内容)), 组合框2.取项目文本 (组合框2.现行选中项) ＋ #引号, “.m3u8”, , ) ＋ “.m3u8”<br /> 编辑框1.内容 ＝ 子文本替换 (编辑框1.内容, 网页_取网址文件名 (编辑框1.内容), 替换名, , , 真)<br /> <br /> <br /> .子程序 _按钮4_被单击<br /> <br /> 执行 (, 取运行目录 (), , , )<br /> <br /> <br /> .子程序 浏览器下载<br /> <br /> .如果 (编辑框1.内容 ≠ “” 且 编辑框3.内容 ≠ “”)<br />     .如果 (文件是否存在 (取运行目录 () ＋ “\” ＋ 编辑框3.内容 ＋ “.mp4”) ＝ 假)<br />         执行 (4, 编辑框1.内容, , , )<br />         标签5.标题 ＝ “读取中，请稍候”<br />         时钟2.时钟周期 ＝ 1000<br /> <br />     .否则<br />         信息框 (“已存在同名文件”, 0, , )<br />         返回 ()<br />     .如果结束<br /> <br /> .否则<br />     信息框 (“请检查，有信息没填”, 0, , )<br />     返回 ()<br /> .如果结束<br /> <br /> <br /> .子程序 取地址<br /> .局部变量 取新后辍, 文本型<br /> .局部变量 一次文本, 文本型<br /> .局部变量 新后辍, 文本型<br /> <br /> 一次文本 ＝ 到文本 (读入文件 (浏览器目录 ＋ “index.txt”))<br /> .如果真 (文本_寻找文本 (一次文本, “BANDWIDTH=”, , 假) ＞ 0)<br />     取新后辍 ＝ 到文本 (到整数 (文本_取出中间文本 (一次文本, “BANDWIDTH=”, “,”)) ＼ 1000) ＋ “kb”<br />     新后辍 ＝ 取新后辍 ＋ 文本_取右边 (一次文本, 取新后辍)<br />     编辑框1.内容 ＝ 子文本替换 (编辑框1.内容, “index.m3u8”, 新后辍, , , 真)<br />     标签5.标题 ＝ “正在取地址”<br />     执行 (4, 编辑框1.内容, , , )<br /> .如果真结束<br /> 删除文件 (浏览器目录 ＋ “index.txt”)<br /> 时钟3.时钟周期 ＝ 1000<br /> <br /> <br /> .子程序 下载流<br /> .局部变量 列表组, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 二次文本, 文本型<br /> .局部变量 地址, 文本型<br /> .局部变量 下载句柄, 整数型<br /> .局部变量 m3u8句柄, 整数型<br /> .局部变量 地址名, 文本型<br /> .局部变量 表项, 整数型<br /> .局部变量 D, 整数型<br /> .局部变量 key文件, 文本型<br /> .局部变量 xm3u8, 文本型<br /> <br /> 标签5.标题 ＝ “下载中”<br /> m3u8句柄 ＝ 打开内存文件 ()<br /> 二次文本 ＝ 到文本 (读入文件 (浏览器目录 ＋ “index.txt”))<br /> 域名尾 ＝ 取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 倒找文本 (编辑框1.内容, “/”, , 假))<br /> 域名头 ＝ 文本_取左边 (编辑框1.内容, “.com”) ＋ “.com”<br /> 域名中间 ＝ 文本_取出中间文本 (编辑框1.内容, 域名头, 域名尾)<br /> .如果真 (文本_寻找文本 (二次文本, “key.key”, , 真) ≠ -1)<br />     key文件 ＝ 文本_取出中间文本 (二次文本, #引号, #引号)<br />     .如果 (文本_寻找文本 (key文件, “http”, , 真) ＝ -1)<br />         执行 (4, 域名头 ＋ 域名中间 ＋ “/” ＋ key文件, , , )<br />     .否则<br />         执行 (4, key文件, , , )<br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> 列表组 ＝ 分割文本 (二次文本, 字符 (10), )<br /> .如果真 (取数组成员数 (列表组) ≠ 0)<br />     .计次循环首 (取数组成员数 (列表组), n)<br />         .如果 (文本_寻找文本 (列表组 [n], “#”, , 真) ＝ -1)<br />             .如果 (文本_寻找文本 (列表组 [n], “http”, , 真) ＝ -1)<br />                 .如果 (文本_寻找文本 (列表组 [n], “kb”, , 真) ＝ -1)<br />                     地址 ＝ 域名头 ＋ 域名中间 ＋ 列表组 [n]<br />                 .否则<br />                     地址 ＝ 域名头 ＋ 列表组 [n]<br />                 .如果结束<br /> <br />             .否则<br />                 地址 ＝ 列表组 [n]<br />             .如果结束<br />             地址名 ＝ 取文本右边 (地址, 取文本长度 (地址) － 倒找文本 (地址, “/”, , 假))<br />             写出文本 (m3u8句柄, 子文本替换 (浏览器目录, “\”, “/”, , , 真) ＋ 地址名, #换行符)<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 />     移到文件首 (m3u8句柄)<br />     xm3u8 ＝ 子文本替换 (读入文本 (m3u8句柄, ), key文件, 子文本替换 (浏览器目录 ＋ “key.key”, “\”, “/”, , , 真), , , 真)<br />     写到文件 (浏览器目录 ＋ 编辑框3.内容 ＋ “.m3u8”, 到字节集 (xm3u8))<br />     删除文件 (浏览器目录 ＋ “index.txt”)<br /> <br /> .如果真结束<br /> <br /> .如果真 (超级列表框1.取表项数 () ＞ 0)<br />     .计次循环首 (超级列表框1.取表项数 (), D)<br />         执行 (4, 超级列表框1.取标题 (D － 1, 1), , , )<br />         时钟1.时钟周期 ＝ 1000<br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 合并文件<br /> <br /> 标签5.标题 ＝ “合并中”<br /> 系统_取DOS执行结果 (“ffmpeg11.exe -allowed_extensions ALL -i  ” ＋ 浏览器目录 ＋ 编辑框3.内容 ＋ “.m3u8 -c copy ” ＋ 取运行目录 () ＋ “\” ＋ 编辑框3.内容 ＋ “.mp4”)<br /> .如果 (文件是否存在 (取运行目录 () ＋ “\” ＋ 编辑框3.内容 ＋ “.mp4”) ＝ 假)<br />     标签5.标题 ＝ “合并文件失败”<br /> .否则<br />     标签5.标题 ＝ “正在删除临时文件”<br />     目录_清空 (浏览器目录)<br />     标签5.标题 ＝ “下载完成”<br />     超级列表框1.全部删除 ()<br />     按钮5.禁止 ＝ 假<br /> .如果结束<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 U, 整数型<br /> .局部变量 完成数, 整数型<br /> <br /> .如果真 (超级列表框1.取表项数 () ＞ 0)<br />     .计次循环首 (超级列表框1.取表项数 (), U)<br />         .如果真 (寻找文件 (浏览器目录 ＋ 超级列表框1.取标题 (U － 1, 2), ) ≠ “”)<br />             超级列表框1.置标题 (U － 1, 3, “完成”)<br />             完成数 ＝ 完成数 ＋ 1<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     进度条.位置 ＝ 到整数 (完成数 ÷ (U － 1) × 100)<br /> <br />     标签5.标题 ＝ “已下载：” ＋ 到文本 (进度条.位置) ＋ “%”<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 _时钟2_周期事件<br /> <br /> .如果真 (寻找文件 (浏览器目录 ＋ “index.m3u8”, ) ≠ “”)<br />     标签5.标题 ＝ “文件已读取，可以取地址了”<br /> .如果真结束<br /> <br /> <br /> .子程序 _时钟3_周期事件<br /> <br /> 文件名 ＝ 寻找文件 (浏览器目录 ＋ “*.m3u8”, )<br /> .如果真 (文件名 ≠ “”)<br />     标签5.标题 ＝ “地址已取到，可以下载”<br /> .如果真结束<br /> <br /> <br /> .子程序 _时钟4_周期事件<br /> <br /> .如果真 (标签5.标题 ＝ “文件已读取，可以取地址了”)<br />     时钟2.时钟周期 ＝ 0<br />     文件更名 (浏览器目录 ＋ “index.m3u8”, 浏览器目录 ＋ “index.txt”)<br />     .如果真 (寻找文件 (浏览器目录 ＋ “index.txt”, ) ≠ “”)<br />         取地址 ()<br />     .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (标签5.标题 ＝ “地址已取到，可以下载”)<br />     时钟3.时钟周期 ＝ 0<br />     .如果真 (文件更名 (浏览器目录 ＋ 文件名, 浏览器目录 ＋ “index.txt”))<br />         启动线程 (&下载流, , 下载流句柄)<br />     .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (标签5.标题 ＝ “已下载：100%”)<br />     时钟1.时钟周期 ＝ 0<br />     合并文件 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 _超级列表框1_右键单击表项<br /> <br /> 弹出菜单 (单项下载, , )<br /> <br /> .子程序 _下载选中_被选择<br /> <br /> 执行 (4, 超级列表框1.取标题 (超级列表框1.现行选中项, 1), , , )<br /> <br /> .子程序 _按钮5_被单击<br /> <br /> 按钮5.禁止 ＝ 真<br /> .如果 (目录_是否存在 (“C:\Users\” ＋ 系统_取用户名 () ＋ “\Downloads\”) ＝ 真)<br />     浏览器目录 ＝ “C:\Users\” ＋ 系统_取用户名 () ＋ “\Downloads\”<br /> .否则<br />     浏览器目录 ＝ “C:\Users\” ＋ 系统_取用户名 () ＋ “.” ＋ 系统_取本机名 () ＋ “\Downloads\”<br /> .如果结束<br /> 标签5.标题 ＝ “正在清空浏览器下载目录”<br /> 目录_清空 (浏览器目录)<br /> 时钟4.时钟周期 ＝ 2000<br /> .如果真 (标签1.标题 ＝ “下载完成”)<br />     时钟4.时钟周期 ＝ 0<br /> .如果真结束<br /> 浏览器下载 ()

tco99

感谢分享666

q800080

膜拜大佬!!

long280556182

缺少 视频工具.zip、#ffempg11、#IDM、#flash

人间山河

hxq2015 发表于 2023-5-15 09:19
给上个成品源，其中浏览器用的是MiniBrowser；因为成品软件包含附件，超过限制的3M，所以没传。
...

感谢分享 几个源码中都缺少常量 ：指定的常量或资源名称“ffempg11”未找到。

jysoft2022

谢谢分享

Bc0102

感谢分享

独倚斜阳

感谢分享 最近营养跟不上 养好身体再下载

q120629070

感谢分享~~~~~~~~

hxq2015

给上个成品源，其中浏览器用的是MiniBrowser；因为成品软件包含附件，超过限制的3M，所以没传。 m3u8-mp4网络视频下载2023版.e (925.47 KB, 下载次数: 66)

2023-5-15 09:18 上传

点击文件名下载附件