下载命令问题，帮我看看

木木大大

  

子程序名	返回值类型	公开	备 注
日志
参数名	类 型	参考	可空	数组	备 注
str	文本型

编辑框运行日志.加入文本 (“[” ＋ 到文本 (取现行时间 ()) ＋ “]” ＋ str ＋ #换行符 )

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

写配置项 (取运行目录 () ＋ “\pz.ini”, “设置”, “目录”, 编辑框视频保存位置.内容)
写配置项 (取运行目录 () ＋ “\pz.ini”, “sunny”, “端口”, 编辑框抓包端口.内容)
Sunny中间件.停止代理 ()

子程序名	返回值类型	公开	备 注
_按钮安装证书_被单击

变量名	类 型	静态	数组	备 注
错误信息	文本型

如果真 (Sunny中间件.安装证书 (错误信息) ＝ 假)
信息框 (“自动安装证书到系统失败,请手动安装证书！” ＋ #换行符 ＋ #换行符 ＋ 错误信息, 0, “证书安装失败”, )
错误信息 ＝ Sunny中间件.取错误 ()
如果真 (寻找文本 (错误信息, “Only one usage of each socket address (protocol/network address/port) is normally permitted”, , 假) ≠ -1)
信息框 (“【启动失败】 端口被占用,请关闭占用端口”, 0, , )

信息框 (“安装证书成功”, 0, , )

子程序名	返回值类型	公开	备 注
_超级列表框_data列表_鼠标右键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

弹出菜单 (功能, , )

子程序名	返回值类型	公开	备 注
_修改视频标题_被选择

变量名	类 型	静态	数组	备 注
i	整数型

i ＝ 超级列表框_data列表.现行选中项
如果真 (i ＞ -1)
超级列表框_data列表.置标题 (i, 2, 编辑框修改标题.内容)

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

变量名	类 型	静态	数组	备 注
目录	文本型

目录 ＝ 对话框_打开文件夹 (“请选择保存目录”, _启动窗口.取窗口句柄 ())
编辑框视频保存位置.内容 ＝ 目录

子程序名	返回值类型	公开	备 注
_复制视频标题_被选择

变量名	类 型	静态	数组	备 注
i	整数型
视频标题	文本型

i ＝ 超级列表框_data列表.现行选中项
如果真 (i ＞ -1)
视频标题 ＝ 超级列表框_data列表.取标题 (i, 2)
置剪辑板文本 (视频标题)

子程序名	返回值类型	公开	备 注
_删除_被选择

变量名	类 型	静态	数组	备 注
i	整数型

i ＝ 超级列表框_data列表.现行选中项
如果真 (i ＞ -1)
如果真 (信息框 (“是否删除”, 1, , ) ＝ 0)
超级列表框_data列表.删除表项 (i)

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

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (超级列表框_data列表.取表项数 (), i)
超级列表框_data列表.置状态图片 (i － 1, 1)
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
i	整数型
当前	整数型

计次循环首 (超级列表框_data列表.取表项数 (), i)
当前 ＝ 超级列表框_data列表.取当前状态图片 (i － 1)
如果 (当前 ≤ 0)
超级列表框_data列表.置状态图片 (i － 1, 1)
超级列表框_data列表.置状态图片 (i － 1, 0)

计次循环尾 ()

子程序名	返回值类型	公开	备 注
_复制视频链接_被选择

变量名	类 型	静态	数组	备 注
i	整数型
视频标题	文本型

i ＝ 超级列表框_data列表.现行选中项
如果真 (i ＞ -1)
视频标题 ＝ 超级列表框_data列表.取标题 (i, 1)
置剪辑板文本 (视频标题)

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

变量名	类 型	静态	数组	备 注
i	整数型
状态	整数型

鱼刺线程.创建 (到整数 (5))
按钮_下载.禁止 ＝ 真
计次循环首 (超级列表框_data列表.取表项数 (), i)
状态 ＝ 超级列表框_data列表.取当前状态图片 (i － 1)
如果真 (状态 ＞ 0)
鱼刺线程.投递任务 (&下载线程, i － 1, )

计次循环尾 ()
判断循环首 (真)
如果真 (鱼刺线程.取_是否空闲 () ＝ 真)
跳出循环 ()

程序_延时 (10, 0)
判断循环尾 ()
鱼刺线程.销毁 (, )
按钮_下载.禁止 ＝ 假

子程序名	返回值类型	公开	备 注
下载线程
参数名	类 型	参考	可空	数组	备 注
索引	整数型

变量名	类 型	静态	数组	备 注
下载链接	文本型
下载标题	文本型
下载返回	整数型

下载链接 ＝ 超级列表框_data列表.取标题 (索引, 1)
下载标题 ＝ 超级列表框_data列表.取标题 (索引, 2)
计次循环首 (3, )
下载返回 ＝ HTTP下载_开始 (下载链接, 编辑框视频保存位置.内容 ＋ “\” ＋ 下载标题 ＋ “.mp4”, 到整数 (&下载回调程序), 索引)
如果真 (下载返回 ＝ 1)
跳出循环 ()

计次循环尾 ()
如果 (下载返回 ＝ 1)
超级列表框_data列表.置标题 (索引, 3, “下载完成”)
超级列表框_data列表.置标题 (索引, 3, “下载失败”)

子程序名	返回值类型	公开	备 注
下载回调程序
参数名	类 型	参考	可空	数组	备 注
下载标识	整数型				下载线程的标识
下载状态	整数型				下载线程的状态
文件总大小	长整数型				B
已下载大小	长整数型				B
剩余大小	长整数型				B
下载进度	小数型				%
平均速度	小数型				KB/S
下载用时	整数型				ms
下载路径	文本型

如果 (下载状态 ＝ 3 且 到整数 (下载进度 × 100) ＝ 100)
超级列表框_data列表.置标题 (下载标识 － 1, 3, “下载完成”)
超级列表框_data列表.置标题 (下载标识 － 1, 3, 到文本 (到整数 (下载进度 × 100)) ＋ “%”)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 日志<br /> .参数 str, 文本型<br /> <br /> 编辑框运行日志.加入文本 (“[” ＋ 到文本 (取现行时间 ()) ＋ “]” ＋ str ＋ #换行符)<br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 写配置项 (取运行目录 () ＋ “\pz.ini”, “设置”, “目录”, 编辑框视频保存位置.内容)<br /> 写配置项 (取运行目录 () ＋ “\pz.ini”, “sunny”, “端口”, 编辑框抓包端口.内容)<br /> Sunny中间件.停止代理 ()<br /> <br /> <br /> .子程序 _按钮安装证书_被单击<br /> .局部变量 错误信息, 文本型<br /> <br /> .如果真 (Sunny中间件.安装证书 (错误信息) ＝ 假)<br />     信息框 (“自动安装证书到系统失败,请手动安装证书！” ＋ #换行符 ＋ #换行符 ＋ 错误信息, 0, “证书安装失败”, )<br /> .如果真结束<br /> 错误信息 ＝ Sunny中间件.取错误 ()<br /> .如果真 (寻找文本 (错误信息, “Only one usage of each socket address (protocol/network address/port) is normally permitted”, , 假) ≠ -1)<br />     信息框 (“【启动失败】 端口被占用,请关闭占用端口”, 0, , )<br /> .如果真结束<br /> <br /> 信息框 (“安装证书成功”, 0, , )<br /> <br /> <br /> .子程序 _超级列表框_data列表_鼠标右键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 弹出菜单 (功能, , )<br /> <br /> .子程序 _修改视频标题_被选择<br /> .局部变量 i, 整数型<br /> <br /> i ＝ 超级列表框_data列表.现行选中项<br /> .如果真 (i ＞ -1)<br />     超级列表框_data列表.置标题 (i, 2, 编辑框修改标题.内容)<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮打开选择_被单击<br /> .局部变量 目录, 文本型<br /> <br /> 目录 ＝ 对话框_打开文件夹 (“请选择保存目录”, _启动窗口.取窗口句柄 ())<br /> 编辑框视频保存位置.内容 ＝ 目录<br /> <br /> .子程序 _复制视频标题_被选择<br /> .局部变量 i, 整数型<br /> .局部变量 视频标题, 文本型<br /> <br /> i ＝ 超级列表框_data列表.现行选中项<br /> .如果真 (i ＞ -1)<br />     视频标题 ＝ 超级列表框_data列表.取标题 (i, 2)<br />     置剪辑板文本 (视频标题)<br /> .如果真结束<br /> <br /> <br /> .子程序 _删除_被选择<br /> .局部变量 i, 整数型<br /> <br /> i ＝ 超级列表框_data列表.现行选中项<br /> .如果真 (i ＞ -1)<br />     .如果真 (信息框 (“是否删除”, 1, , ) ＝ 0)<br />         超级列表框_data列表.删除表项 (i)<br /> <br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _全选_被选择<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (超级列表框_data列表.取表项数 (), i)<br />     超级列表框_data列表.置状态图片 (i － 1, 1)<br /> .计次循环尾 ()<br /> <br /> .子程序 _反选_被选择<br /> .局部变量 i, 整数型<br /> .局部变量 当前, 整数型<br /> <br /> .计次循环首 (超级列表框_data列表.取表项数 (), i)<br />     当前 ＝ 超级列表框_data列表.取当前状态图片 (i － 1)<br />     .如果 (当前 ≤ 0)<br />         超级列表框_data列表.置状态图片 (i － 1, 1)<br />     .否则<br />         超级列表框_data列表.置状态图片 (i － 1, 0)<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 _复制视频链接_被选择<br /> .局部变量 i, 整数型<br /> .局部变量 视频标题, 文本型<br /> <br /> i ＝ 超级列表框_data列表.现行选中项<br /> .如果真 (i ＞ -1)<br />     视频标题 ＝ 超级列表框_data列表.取标题 (i, 1)<br />     置剪辑板文本 (视频标题)<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮_下载_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 状态, 整数型<br /> <br /> 鱼刺线程.创建 (到整数 (5))<br /> <br /> 按钮_下载.禁止 ＝ 真<br /> .计次循环首 (超级列表框_data列表.取表项数 (), i)<br />     状态 ＝ 超级列表框_data列表.取当前状态图片 (i － 1)<br />     .如果真 (状态 ＞ 0)<br />         鱼刺线程.投递任务 (&下载线程, i － 1, )<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .判断循环首 (真)<br /> <br />     .如果真 (鱼刺线程.取_是否空闲 () ＝ 真)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     程序_延时 (10, 0)<br /> .判断循环尾 ()<br /> <br /> 鱼刺线程.销毁 (, )<br /> 按钮_下载.禁止 ＝ 假<br /> <br /> .子程序 下载线程<br /> .参数 索引, 整数型<br /> .局部变量 下载链接, 文本型<br /> .局部变量 下载标题, 文本型<br /> .局部变量 下载返回, 整数型<br /> <br /> 下载链接 ＝ 超级列表框_data列表.取标题 (索引, 1)<br /> 下载标题 ＝ 超级列表框_data列表.取标题 (索引, 2)<br /> <br /> .计次循环首 (3, )<br /> <br />     下载返回 ＝ HTTP下载_开始 (下载链接, 编辑框视频保存位置.内容 ＋ “\” ＋ 下载标题 ＋ “.mp4”, 到整数 (&下载回调程序), 索引)<br /> <br />     .如果真 (下载返回 ＝ 1)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .如果 (下载返回 ＝ 1)<br />     超级列表框_data列表.置标题 (索引, 3, “下载完成”)<br /> .否则<br />     超级列表框_data列表.置标题 (索引, 3, “下载失败”)<br /> .如果结束<br /> <br /> <br /> .子程序 下载回调程序<br /> .参数 下载标识, 整数型, , 下载线程的标识<br /> .参数 下载状态, 整数型, , 下载线程的状态<br /> .参数 文件总大小, 长整数型, , B<br /> .参数 已下载大小, 长整数型, , B<br /> .参数 剩余大小, 长整数型, , B<br /> .参数 下载进度, 小数型, , %<br /> .参数 平均速度, 小数型, , KB/S<br /> .参数 下载用时, 整数型, , ms<br /> .参数 下载路径, 文本型<br /> <br /> .如果 (下载状态 ＝ 3 且 到整数 (下载进度 × 100) ＝ 100)<br />     超级列表框_data列表.置标题 (下载标识 － 1, 3, “下载完成”)<br /> .否则<br />     超级列表框_data列表.置标题 (下载标识 － 1, 3, 到文本 (到整数 (下载进度 × 100)) ＋ “%”)<br /> .如果结束

我这个代码是设置勾选全部视频一起下载的，点下载就全部视频下载命令全部发出全部开始下载，但是有个问题，如果视频下载数量较多的情况下，软件会闪退。我想改下程序下载命令，比如点全部视频下载后，视频下载命令先推送5个下载，等这5个下载结束后再继续推送5个视频下载命令。以此类推到结束。
需要怎么设置，有大神帮我修改下没

无痕雨

加个许可证试试 如果要五个任务下载完再去操作的话 投递线程那里得判断下线程状态

k420

这个下载模块好用

补充内容 (2024-5-3 13:47):
https://bbs.125.la/forum.php?mod=viewthread&tid=14815454

木木大大

搞定了，不用了。找人帮我看好了~~

比拼

    111111111111111111111好友用过