最新2025年易语言实现MPV自改线程池M3U8下载器源码(2025)

       这版下载器是将MPV播放器和线程池下载M3U8结合在一起，方便先查看M3U8源是否可观看然后下载，还是需要用到ffmpeg.exe。如果线程池解析不出，可直接用ffmpeg下载，那需要用到33M以上的ffmpeg,你可以从网上下载，我资源里只传了11M的ffmpeg，因为目前我用线程池和11M的已经够用了。我封装依赖的模块，为了美化另用了皮肤模块，相关源码和成品在云盘里了。

1. .版本 2
   
2. .支持库 edroptarget
   
3. .支持库 iext
   
4. .支持库 internet
   
5. .支持库 EThread
   
6. 
   
7. .程序集 窗口程序集_启动窗口
   
8. .程序集变量 线程池, 线程池自改版
   
9. .程序集变量 临时目录, 文本型
   
10. .程序集变量 已下载数, 整数型, , , 必须在窗口或全局变量里，保证进度条工作
    
11. .程序集变量 mpv, mpv播放器
    
12. 
    
13. .子程序 __启动窗口_创建完毕
    
14. 
    
15. mpv.创建 (图片框1.取窗口句柄 ())
    
16. 拖放对象1.注册拖放控件 (图片框1.取窗口句柄 ())
    
17. 加载皮肤 (20)
    
18. 时钟1.时钟周期 ＝ 1
    
19. 
    
20. .子程序 _时钟1_周期事件
    
21. 
    
22. ' 标签6.标题 ＝ 到文本 (四舍五入 (mpv.取位置 () ÷ mpv.取长度 (), 2) × 100) ＋ “%”
    
23. 标签6.标题 ＝ 时间格式化 (到文本 (四舍五入 (mpv.取位置 (), 2))) ＋ “/” ＋ 时间格式化 (到文本 (四舍五入 (mpv.取长度 (), 2)))
    
24. ' 标签2.标题 ＝ 格式化文本 (“%d%% / 100%%”, mpv.取百分比位置 ())
    
25. 进度条.位置 ＝ mpv.取百分比位置 ()
    
26. 
    
27. .子程序 _按钮_暂停_被单击
    
28. 
    
29. mpv.暂停 ()
    
30. 
    
31. .子程序 _按钮_播放_被单击
    
32. 
    
33. mpv.播放 ()
    
34. mpv.是否循环播放 (真)
    
35. 
    
36. .子程序 _hk条_音量_位置被改变
    
37. 
    
38. mpv.置音量 (hk条_音量.位置)
    
39. 
    
40. .子程序 _按钮_打开_被单击
    
41. 
    
42. .如果真 (通用对话框1.打开 ())
    
43.     mpv.打开 (通用对话框1.文件名)
    
44.     mpv.是否循环播放 (真)
    
45. .如果真结束
    
46. 
    
47. 
    
48. .子程序 _按钮_打开2_被单击
    
49. 
    
50. .如果 (编辑框2.内容 ＝ “”)
    
51.     信息框 (“请将URL填入m3u8源框内”, 0, , )
    
52.     返回 ()
    
53. .否则
    
54.     mpv.打开 (编辑框2.内容)
    
55.     mpv.是否循环播放 (真)
    
56. 
    
57. .如果结束
    
58. 
    
59. 
    
60. .子程序 __启动窗口_尺寸被改变
    
61. 
    
62. .如果 (_启动窗口.位置 ＝ 3)
    
63.     图片框1.移动 (0, 2, 取用户区宽度 (), 取用户区高度 () × 0.95)
    
64.     进度条.移动 (280, 取用户区高度 () × 0.97, 取用户区宽度 () × 0.4, 15)
    
65.     hk条_音量.移动 (取用户区宽度 () × 0.9, 取用户区高度 () × 0.97, 90, 20)
    
66.     按钮_打开.移动 (取用户区宽度 () × 0.6, 取用户区高度 () × 0.97, 64, 25)
    
67.     按钮_播放.移动 (取用户区宽度 () × 0.75, 取用户区高度 () × 0.97, 64, 25)
    
68.     按钮_暂停.移动 (取用户区宽度 () × 0.7, 取用户区高度 () × 0.97, 64, 25)
    
69.     按钮_打开2.移动 (取用户区宽度 () × 0.65, 取用户区高度 () × 0.97, 64, 25)
    
70.     按钮_停止.移动 (取用户区宽度 () × 0.8, 取用户区高度 () × 0.97, 64, 25)
    
71.     标签6.移动 (19, 取用户区高度 () × 0.965, 153, 25)
    
72. .否则
    
73.     图片框1.移动 (0, 1, 344, 260)
    
74.     进度条.移动 (160, 270, 124, 15)
    
75.     hk条_音量.移动 (285, 267, 65, 20)
    
76.     按钮_打开.移动 (9, 296, 64, 25)
    
77.     按钮_播放.移动 (201, 296, 64, 25)
    
78.     按钮_暂停.移动 (137, 296, 64, 25)
    
79.     按钮_打开2.移动 (73, 296, 64, 25)
    
80.     标签6.移动 (6, 266, 153, 20)
    
81.     按钮_停止.移动 (265, 296, 64, 25)
    
82. .如果结束
    
83. 
    
84. 
    
85. .子程序 _按钮_停止_被单击
    
86. 
    
87. mpv.打开 (“”)
    
88. 时钟1.时钟周期 ＝ 1
    
89. 
    
90. .子程序 _拖放对象1_得到文件
    
91. .参数 接收到的文件路径, 文本型
    
92. 
    
93. mpv.打开 (接收到的文件路径)
    
94. mpv.是否循环播放 (真)
    
95. 
    
96. .子程序 执行下载
    
97. .局部变量 线程ID, 整数型
    
98. 
    
99. 线程池.启动 (到整数 (编辑框_线程数.内容), &下载, )
    
100. .计次循环首 (超级列表框1.取表项数 (), 线程ID)
     
101.     线程池.加入工作 (线程ID)
     
102. .计次循环尾 ()
     
103. 
     
104. 
     
105. .子程序 下载
     
106. .参数 总行数, 整数型
     
107. .局部变量 切片源, 文本型
     
108. 
     
109. 切片源 ＝ 超级列表框1.取标题 (总行数 － 1, 1)
     
110. 写到文件 (临时目录 ＋ “\” ＋ 网页_取网址文件名 (切片源), HTTP读文件 (切片源))
     
111. 超级列表框1.置标题 (总行数 － 1, 2, “已下载”)
     
112. 已下载数 ＝ 已下载数 ＋ 1
     
113. 
     
114. 进度条1.位置 ＝ 到整数 (已下载数 ÷ 超级列表框1.取表项数 () × 100)
     
115. 标签2.标题 ＝ 到文本 (进度条1.位置) ＋ “%”
     
116. .如果真 (标签2.标题 ＝ “100%”)
     
117.     线程池.关闭 (到整数 (编辑框_线程数.内容))
     
118.     下载子程序 ()
     
119. .如果真结束
     
120. 
     
121. 
     
122. 
     
123. .子程序 下载子程序
     
124. 
     
125. 标签2.标题 ＝ “下载完成，正在转换”
     
126. .如果 (文件是否存在 (取运行目录 () ＋ “\ffmpeg.exe”) ＝ 假)
     
127.     信息框 (“请将ffmpeg.exe放在本程序目录中”, 0, , )
     
128.     返回 ()
     
129. .否则
     
130.     系统_取DOS执行结果 (取运行目录 () ＋ “\ffmpeg -allowed_extensions ALL -i  ” ＋ 临时目录 ＋ “\index.m3u8 -c copy  ” ＋ 取运行目录 () ＋ “\” ＋ 编辑框_文件名.内容 ＋ “.mp4”)
     
131.     .如果真 (文件是否存在 (取运行目录 () ＋ “\” ＋ 编辑框_文件名.内容 ＋ “.mp4”) ＝ 真)
     
132.         删除目录 (临时目录)
     
133.         标签2.标题 ＝ “下载完成，源已删除”
     
134.         进度条1.位置 ＝ 0
     
135.         超级列表框1.全部删除 ()
     
136.     .如果真结束
     
137. 
     
138. .如果结束
     
139. 
     
140. 
     
141. .子程序 _按钮_解析_被单击
     
142. 
     
143. 临时目录 ＝ 取运行目录 () ＋ “\” ＋ 编辑框_文件名.内容
     
144. .如果 (编辑框2.内容 ≠ “” 且 编辑框_文件名.内容 ≠ “”)
     
145.     .如果 (文件是否存在 (取运行目录 () ＋ “\” ＋ 编辑框_文件名.内容 ＋ “.mp4”) ＝ 假)
     
146.         创建目录 (临时目录)
     
147.     .否则
     
148.         信息框 (“文件已存在或文件名重复，请重命名”, 0, , )
     
149.         返回 ()
     
150.     .如果结束
     
151. 
     
152. .否则
     
153.     信息框 (“下载链接或保存名没有填，请检查”, 0, , )
     
154.     返回 ()
     
155. .如果结束
     
156. 
     
157. 启动线程 (&解析, , )
     
158. 
     
159. 
     
160. .子程序 解析, , , 分析出ts数组下载流
     
161. .局部变量 m3u8, 文本型, , , m3u8源
     
162. .局部变量 路径, 文本型, , , 保存文件本地路径
     
163. .局部变量 地址源, 文本型, , , 分析开始地址**
     
164. .局部变量 新地址, 文本型, , , 得到二次地址**
     
165. .局部变量 域名头, 文本型, , , 链接头部**
     
166. .局部变量 域名中, 文本型, , , 链接中部**
     
167. .局部变量 域名尾, 文本型, , , 链接尾部**
     
168. .局部变量 key正则, 正则表达式类, , , 匹配取引号中间key
     
169. .局部变量 本地key, 文本型, , , 下载到本地的key
     
170. .局部变量 key替换, 文本型, , , 替换key文件中的网址为本地
     
171. .局部变量 计数, 整数型, , , 记录次数的变量
     
172. .局部变量 key文件, 文本型, , , 解密文件
     
173. .局部变量 域名, 文本型, , , 流名前附加域名**
     
174. .局部变量 二次源, 文本型, , , 分析二次地址返回文本**
     
175. .局部变量 ts列表, 文本型, , "0", 分析得到下载列表**
     
176. .局部变量 解析流名, 文本型, , , 分解出单条ts**
     
177. .局部变量 计次, 整数型, , , 循环变量**
     
178. .局部变量 待换数组, 文本型, , "0", m3u8本地组
     
179. .局部变量 用作替换数组, 文本型, , "0", m3u8本地组
     
180. .局部变量 表项行, 整数型, , , 列表第几行
     
181. 
     
182. 
     
183. 路径 ＝ 子文本替换 (临时目录, “\”, “/”, , , 真)
     
184. m3u8 ＝ 子文本替换 (编辑框2.内容, “\”, “/”, , , 真)
     
185. 域名头 ＝ 文本_取左边 (m3u8, 网页_取域名 (m3u8), , ) ＋ 网页_取域名 (m3u8)
     
186. 域名尾 ＝ 网页_取网址文件名 (m3u8)  ' index.m3u8
     
187. 域名中 ＝ 文本_取出中间文本 (m3u8, 域名头, 域名尾, , )
     
188. ' =============================================================拆分初始地链接
     
189. 地址源 ＝ 到文本 (HTTP读文件 (删首尾空 (m3u8)))
     
190. .如果 (地址源 ＝ “”)
     
191.     信息框 (“m3u8地址失效，可将https换成http再试”, 0, , )
     
192.     返回 ()
     
193. 
     
194. .否则
     
195.     .如果 (寻找文本 (地址源, “http”, , 假) ≠ -1)
     
196.         新地址 ＝ m3u8
     
197.     .否则
     
198.         .如果 (寻找文本 (地址源, 域名中, , 假) ≠ -1)
     
199.             新地址 ＝ 域名头 ＋ 域名中 ＋ 文本_取右边 (地址源, 域名中)
     
200.         .否则
     
201.             新地址 ＝ m3u8
     
202.         .如果结束
     
203. 
     
204.     .如果结束
     
205. 
     
206. .如果结束
     
207. 
     
208. ' ========================================================================得到二次链接
     
209. 二次源 ＝ 到文本 (HTTP读文件 (新地址))
     
210. .如果 (寻找文本 (二次源, 域名头 ＋ 域名中, , 假) ≠ -1)
     
211.     域名 ＝ 域名头 ＋ 域名中
     
212. .否则
     
213.     域名 ＝ 取文本左边 (新地址, 倒找文本 (新地址, “/”, , 假))
     
214. .如果结束
     
215. 处理事件 ()
     
216. ' ==========================================================================得到下载流前缀域名
     
217. .如果真 (寻找文本 (二次源, “.key”, , 假) ＞ 0)
     
218.     key正则.创建 (“” ＋ #引号 ＋ “(.*?)” ＋ #引号 ＋ “”, 二次源)
     
219.     .计次循环首 (key正则.取匹配数量 (), 计数)
     
220.         key文件 ＝ key正则.取子匹配文本 (计数, 1)
     
221.         key替换 ＝ 路径 ＋ “/” ＋ 到文本 (计数) ＋ “.key”
     
222.         二次源 ＝ 文本_替换 (二次源, , , , key文件, key替换, , , )
     
223.         .如果 (寻找文本 (key文件, “https”, , 假) ≠ -1)
     
224.             本地key ＝ key文件
     
225.         .否则
     
226.             本地key ＝ 域名头 ＋ key文件
     
227.         .如果结束
     
228.         写到文件 (临时目录 ＋ “\” ＋ 到文本 (计数) ＋ “.key”, HTTP读文件 (本地key))  ' 写出key解密文件
     
229.     .计次循环尾 ()
     
230. 
     
231. .如果真结束
     
232. 
     
233. ' ==============================================================================写出解密文件
     
234. 超级列表框1.全部删除 ()
     
235. ts列表 ＝ 分割文本 (二次源, 字符 (10), )
     
236. 处理事件 ()
     
237. 
     
238. .如果 (取数组成员数 (ts列表) ≠ 0)
     
239.     .计次循环首 (取数组成员数 (ts列表), 计次)
     
240. 
     
241.         .如果真 (取文本右边 (ts列表 [计次], 3) ＝ “.ts”)
     
242.             解析流名 ＝ ts列表 [计次]
     
243.             加入成员 (待换数组, 解析流名)
     
244.             加入成员 (用作替换数组, 路径 ＋ “/” ＋ 取文本右边 (解析流名, 取文本长度 (解析流名) － 倒找文本 (解析流名, “/”, , 假)))
     
245. 
     
246. 
     
247.             .如果 (寻找文本 (解析流名, “http”, , 假) ≠ -1)
     
248.                 解析流名 ＝ ts列表 [计次]
     
249.             .否则
     
250.                 .如果 (寻找文本 (解析流名, “/”, , 假) ≠ -1)
     
251.                     解析流名 ＝ 文本_取右边 (解析流名, “/”)
     
252.                     解析流名 ＝ 域名 ＋ 解析流名
     
253.                 .否则
     
254.                     解析流名 ＝ 域名 ＋ 解析流名
     
255.                 .如果结束
     
256. 
     
257. 
     
258.             .如果结束
     
259. 
     
260.             表项行 ＝ 超级列表框1.插入表项 (, , , , , )
     
261.             超级列表框1.置标题 (表项行, 0, 到文本 (表项行 ＋ 1))
     
262.             超级列表框1.置标题 (表项行, 1, 解析流名)
     
263.             超级列表框1.保证显示 (表项行)
     
264. 
     
265.         .如果真结束
     
266. 
     
267.     .计次循环尾 ()
     
268.     .如果 (超级列表框1.取表项数 () ＞ 0)
     
269.         标签2.标题 ＝ “解析完成”
     
270.     .否则
     
271.         标签2.标题 ＝ “解析失败”
     
272.     .如果结束
     
273. 
     
274. 
     
275. .否则
     
276. 
     
277. .如果结束
     
278. 
     
279. 
     
280. 二次源 ＝ 文本_快速替换_EX (二次源, 待换数组, 用作替换数组, 1, 1, )
     
281. 写到文件 (临时目录 ＋ “\index.m3u8”, 到字节集 (二次源))  ' 得到本地m3u8
     
282. 
     
283. 
     
284. 处理事件 ()
     
285. 关闭所有文件 ()
     
286. .如果真 (标签2.标题 ＝ “解析完成”)
     
287.     执行下载 ()
     
288. .如果真结束
     
289. 
     
290. 
     
291. 
     
292. 
     
293. .子程序 _按钮_搜索_被单击
     
294. .局部变量 行内容, 文本型
     
295. .局部变量 网源码, 文本型
     
296. 
     
297. 
     
298. 网源码 ＝ 到文本 (HTTP读文件 (网页地址框.内容))
     
299. .如果 (文本_寻找文本 (网源码, “.m3u8”, , 假) ＝ -1)
     
300.     信息框 (“没找到指定文件，请换网址再次搜寻”, 0, , )
     
301.     返回 ()
     
302. .否则
     
303.     行内容 ＝ 文本_取指定变量文本行 (网源码, 文本_取文本所在行_优化版 (网源码, “.m3u8”, , 假))
     
304.     编辑框2.内容 ＝ “http” ＋ 文本_倒取出中间文本 (行内容, “.m3u8”, “http”, , 假) ＋ “.m3u8”
     
305. .如果结束
     
306. 
     
307. 
     
308. .子程序 _按钮_符号_被单击
     
309. 
     
310. 编辑框2.内容 ＝ 子文本替换 (编辑框2.内容, “\/”, “/”, , , 真)
     
311. 编辑框2.内容 ＝ 子文本替换 (编辑框2.内容, “\”, “/”, , , 真)
     
312. 
     
313. 
     
314. .子程序 _按钮_下载_被单击
     
315. 
     
316. 临时目录 ＝ 取运行目录 () ＋ “\” ＋ 编辑框_文件名.内容
     
317. .如果 (编辑框2.内容 ≠ “” 且 编辑框_文件名.内容 ≠ “”)
     
318.     .如果 (文件是否存在 (取运行目录 () ＋ “\” ＋ 编辑框_文件名.内容 ＋ “.mp4”) ＝ 假)
     
319.         .如果 (寻找文件 (“ffmpeg.exe”, ) ≠ “”)
     
320.             运行 (“cmd.exe /c   ” ＋ 取运行目录 () ＋ “\ffmpeg.exe  -i ” ＋ 编辑框2.内容 ＋ “ ” ＋ 取运行目录 () ＋ “\” ＋ 编辑框_文件名.内容 ＋ “.mp4”, 假, )
     
321.         .否则
     
322.             信息框 (“需有ffmpeg.exe”, 0, , )
     
323.             返回 ()
     
324.         .如果结束
     
325.         创建目录 (临时目录)
     
326.     .否则
     
327.         信息框 (“文件已存在或文件名重复，请重命名”, 0, , )
     
328.         返回 ()
     
329.     .如果结束
     
330. 
     
331. .否则
     
332.     信息框 (“下载链接或保存名没有填，请检查”, 0, , )
     
333.     返回 ()
     
334. .如果结束
     
335. 
     
336. 
     
337. 
     
338. 
     
339. 
     
340. 
     
341. 
     
342. 
     
343. .子程序 _进度条_位置被改变
     
344. 
     
345. mpv.置百分比位置 (进度条.位置)

复制代码

游客，如果您要查看本帖隐藏内容请回复

感谢这个i资源

11111111111111111111111111

谢谢分享！~

嘻嘻不错支持一个

谢谢楼主的辛苦分享

看看看看看看看看看看看看

谢谢分享！~

谢谢楼主，，，收藏ing

支持，赞