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

hxq2015 · 发表于 2023-5-4 15:43:39

本帖最后由 hxq2015 于 2023-5-5 13:13 编辑

QQ五笔截图未命名.jpg

再做一个合并版，可以对付大多数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 />
浏览器下载 ()