易语言版m3u8视频下载播放器

到此为止i

fdmjjhsvfbhtyjm h

城爵

感谢分享~~~~

q1227362130

666666666666666666666666666666666666666666

q1227362130

看看怎么样吧

杨明煜

kankan............

杨明煜

kankan.........

hxq2015

xiaoxin187 发表于 2022-12-23 23:34
跪求大佬开源啊

主要文件

hxq2015

xiaoxin187 发表于 2022-12-23 23:34
跪求大佬开源啊

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
命令	文本型		ffmpeg命令行

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

如果 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)
命令 ＝ “cmd.exe/c” ＋ “ ” ＋ 取运行目录 () ＋ “\ffmpeg.exe -i ” ＋ 编辑框1.内容 ＋ “ ” ＋ 编辑框2.内容 ＋ “.mp4”
运行 (命令, 假, )
_时钟1_周期事件 ()
编辑框3.内容 ＝ 取DOS返回文本1 (命令, &信息回调)
如果真 (倒找文本 (编辑框3.内容, “overhead”, , 假) ≠ -1)
信息框 (“下载完成”, 0, , )
如果真 (倒找文本 (编辑框3.内容, “Server returned 404 Not Found”, , 假) ≠ -1)
信息框 (“链接地址不是m3u8格式====”, 0, , )
如果真 (倒找文本 (编辑框3.内容, “Duration”, , 假) ＝ -1)
信息框 (“链接失败，请重试下载”, 0, , )

信息框 (“m3u8源或者文件命名没有填”, 0, , )
处理事件 ()

子程序名	返回值类型	公开	备 注
信息回调
参数名	类 型	参考	可空	数组	备 注
文本	文本型

编辑框3.加入文本 (文本)

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

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

终止进程 (“ffmpeg.exe”)
延时 (200)
时钟1.时钟周期 ＝ 0
标签3.标题 ＝ “0%”
进度条1.位置 ＝ 0
删除文件 (取运行目录 () ＋ “\” ＋ 编辑框2.内容 ＋ “.mp4”)
信息框 (“下载已终止”, 0, , )

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

变量名	类 型	静态	数组	备 注
t	整数型			总时间化整数
t1	整数型			当前时间化整数
总时间	文本型			文件持续时间
分时间	文本型			当前下载时间

时钟1.时钟周期 ＝ 100
总时间 ＝ 取文本中间 (编辑框3.内容, 寻找文本 (编辑框3.内容, “Duration:”, , 假) ＋ 10, 8)  ' 取到ffmpeg总时长
分时间 ＝ 取文本中间 (编辑框3.内容, 倒找文本 (编辑框3.内容, “time=”, , 假) ＋ 5, 8)  ' 取ffmpeg当前时长
处理事件 ()
t ＝ 到整数 (取文本左边 (总时间, 2)) × 60 × 60 ＋ 到整数 (取文本中间 (总时间, 4, 2)) × 60 ＋ 到整数 (取文本右边 (总时间, 2))  ' 总时长化整数
t1 ＝ 到整数 (取文本左边 (分时间, 2)) × 60 × 60 ＋ 到整数 (取文本中间 (分时间, 4, 2)) × 60 ＋ 到整数 (取文本右边 (分时间, 2))  ' 当前时长化整数
标签3.标题 ＝ 到文本 (四舍五入 (t1 ÷ t, 2) × 100) ＋ “%”
进度条1.位置 ＝ t1
进度条1.最大位置 ＝ t

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

终止进程 (“ffmpeg.exe”)
删除文件 (取特定目录 (11) ＋ “/flash.exe”)
释放组件 ()

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

如果 (编辑框1.内容 ＝ “”)
信息框 (“没填播放源”, 0, , )
_启动窗口.宽度 ＝ 1000
CKplayer_播放 (编辑框1.内容)

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

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

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

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

写到文件 (取特定目录 (11) ＋ “/flash.exe”, HTTP读文件 (“https://www.flash.cn/cdm/latest/flashplayerax_install_cn.exe”))
运行 (取特定目录 (11) ＋ “/flash.exe”, 假, )

i支持库列表	支持库注释
eAPI	应用接口支持库
shell	操作系统界面功能支持库
aquarius	(未知支持库)
HtmlView	超文本浏览框支持库
internet	互联网支持库

.版本 2<br /> .支持库 eAPI<br /> .支持库 shell<br /> .支持库 aquarius<br /> .支持库 HtmlView<br /> .支持库 internet<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 命令, 文本型, , , ffmpeg命令行<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)<br />     命令 ＝ “cmd.exe/c” ＋ “ ” ＋ 取运行目录 () ＋ “\ffmpeg.exe -i ” ＋ 编辑框1.内容 ＋ “ ” ＋ 编辑框2.内容 ＋ “.mp4”<br />     运行 (命令, 假, )<br />     _时钟1_周期事件 ()<br />     编辑框3.内容 ＝ 取DOS返回文本1 (命令, &信息回调)<br />     .如果真 (倒找文本 (编辑框3.内容, “overhead”, , 假) ≠ -1)<br />         信息框 (“下载完成”, 0, , )<br />     .如果真结束<br />     .如果真 (倒找文本 (编辑框3.内容, “Server returned 404 Not Found”, , 假) ≠ -1)<br />         信息框 (“链接地址不是m3u8格式====”, 0, , )<br />     .如果真结束<br />     .如果真 (倒找文本 (编辑框3.内容, “Duration”, , 假) ＝ -1)<br />         信息框 (“链接失败，请重试下载”, 0, , )<br />     .如果真结束<br /> <br /> .否则<br />     信息框 (“m3u8源或者文件命名没有填”, 0, , )<br /> .如果结束<br /> 处理事件 ()<br /> <br /> .子程序 信息回调<br /> .参数 文本, 文本型<br /> <br /> 编辑框3.加入文本 (文本)<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 临时文件, 文本型<br /> <br /> 终止进程 (“ffmpeg.exe”)<br /> 延时 (200)<br /> 时钟1.时钟周期 ＝ 0<br /> 标签3.标题 ＝ “0%”<br /> 进度条1.位置 ＝ 0<br /> 删除文件 (取运行目录 () ＋ “\” ＋ 编辑框2.内容 ＋ “.mp4”)<br /> 信息框 (“下载已终止”, 0, , )<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 t, 整数型, , , 总时间化整数<br /> .局部变量 t1, 整数型, , , 当前时间化整数<br /> .局部变量 总时间, 文本型, , , 文件持续时间<br /> .局部变量 分时间, 文本型, , , 当前下载时间<br /> <br /> 时钟1.时钟周期 ＝ 100<br /> <br /> 总时间 ＝ 取文本中间 (编辑框3.内容, 寻找文本 (编辑框3.内容, “Duration:”, , 假) ＋ 10, 8)  ' 取到ffmpeg总时长<br /> 分时间 ＝ 取文本中间 (编辑框3.内容, 倒找文本 (编辑框3.内容, “time=”, , 假) ＋ 5, 8)  ' 取ffmpeg当前时长<br /> 处理事件 ()<br /> t ＝ 到整数 (取文本左边 (总时间, 2)) × 60 × 60 ＋ 到整数 (取文本中间 (总时间, 4, 2)) × 60 ＋ 到整数 (取文本右边 (总时间, 2))  ' 总时长化整数<br /> t1 ＝ 到整数 (取文本左边 (分时间, 2)) × 60 × 60 ＋ 到整数 (取文本中间 (分时间, 4, 2)) × 60 ＋ 到整数 (取文本右边 (分时间, 2))  ' 当前时长化整数<br /> 标签3.标题 ＝ 到文本 (四舍五入 (t1 ÷ t, 2) × 100) ＋ “%”<br /> 进度条1.位置 ＝ t1<br /> 进度条1.最大位置 ＝ t<br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 终止进程 (“ffmpeg.exe”)<br /> 删除文件 (取特定目录 (11) ＋ “/flash.exe”)<br /> 释放组件 ()<br /> <br /> <br /> .子程序 _按钮3_被单击<br /> <br /> .如果 (编辑框1.内容 ＝ “”)<br />     信息框 (“没填播放源”, 0, , )<br /> .否则<br />     _启动窗口.宽度 ＝ 1000<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 /> .子程序 _按钮4_被单击<br /> <br /> 写到文件 (取特定目录 (11) ＋ “/flash.exe”, HTTP读文件 (“https://www.flash.cn/cdm/latest/flashplayerax_install_cn.exe”))<br /> 运行 (取特定目录 (11) ＋ “/flash.exe”, 假, )

544450597

77777777777777777777777

a1134075691

666666谢谢分享