写了个鱼刺多线程的碰到一点问题哪位帮忙看看？

zzg666

  

执行线程数 ＝ 10
取总个数 ＝ 超级列表框2.取表项数 ()
如果真 (取总个数 ＜ 执行线程数)  ' 判断就是执行的线程如果比我们祖册的线程数量多 就把 执行的线程数的值=注册的线程数
执行线程数 ＝ 取总个数
创建线程池 ＝ 鱼刺池.创建 (执行线程数, 执行线程数, , 真, )  ' 这两个参数填注册的线程数不填的话系统好像是默认为5 这个不管反正运行得起来就好
如果真 (取反 (创建线程池))  ' 这个就是你当你线程数如果为0的话就出个提示框提示你一下。
信息框 (“您的线程创建失败，请重试！”, 0, , )
返回 ()
投递计算 ＝ 0
判断循环首 (投递计算 ＜ 取总个数)  ' 投递计算=0  如果你  执行的线程数= 0 就不进入循环
判断 (投递计算 ＝ 0)
排队线程 ＝ 取总个数


空闲线程 ＝ 鱼刺池.取_空闲线程数 ()  ' 取还没执行在待命的线程
. ' 判断循环首 (空闲线程 ＝ 0)
. ' 如果真 (鱼刺池.取_状态 () ≠ 1)  ' 0=未启动，1=正在工作，2=正在创建，3=正在销毁  要他不是在“工作”就是在运行才可以进入中断运行
' 返回 ()
' 程序_延时 (100, )
' 空闲线程 ＝ 鱼刺池.取_空闲线程数 ()
. ' 判断循环尾 ()
如果真 (排队线程 ＜ 执行线程数)
执行线程数 ＝ 排队线程
排队线程 ＝ 排队线程 － 执行线程数
计次循环首 (执行线程数, )
鱼刺池.投递任务 (&下载程序1, 投递计算, 句柄)  ' 这就是启动线程
原子_递增 (投递计算)  ' 投递次数每次加1
程序_延时 (100, )
空闲线程 ＝ 鱼刺池.取_空闲线程数 ()
调试输出 (“空闲线程：” ＋ 到文本 (空闲线程), 鱼刺池.取_状态 (), 鱼刺池.取_执行线程数 ())
计次循环尾 ()
bool ＝ 鱼刺池.等待任务动态 ()
如果真 (bool ＝ 假)  ' 返回假 表示线程池被执行销毁 也表示用户手动点了停止
返回 ()

判断循环尾 ()
判断循环首 (鱼刺池.取_是否有空闲 () ＝ 假)
如果真 (鱼刺池.取_状态 () ≠ 1)
返回 ()

判断循环尾 ()
判断循环首 (鱼刺池.取_是否有空闲 () ＝ 假)
如果真 (鱼刺池.取_状态 () ≠ 1)
返回 ()

判断循环尾 ()
鱼刺池.销毁 (1, 真)  ' 把线程销毁

子程序名	返回值类型	公开	备 注
下载程序1
参数名	类 型	参考	可空	数组	备 注
i	整数型
句柄	整数型

变量名	类 型	静态	数组	备 注
局_网址	文本型
局_提交协议头	文本型
局_结果	字节集
局_方式	整数型
保存	文本型
wy	整数型
t	文本型

时间_取间隔_开始 ()
局_网址 ＝ 超级列表框2.取标题 (i － 1, 4)
局_方式 ＝ 0
局_提交协议头 ＝ “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”
局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, , , , 局_提交协议头, , wy, , , , 30, , , , , )
判断 (wy ≠ 404)
保存 ＝ 取运行目录 () ＋ “\” ＋ 超级列表框2.取标题 (i － 1, 1) ＋ “\” ＋ 超级列表框2.取标题 (i － 1, 0) ＋ “\” ＋ 超级列表框2.取标题 (i － 1, 5) ＋ “\” ＋ 超级列表框2.取标题 (i － 1, 2) ＋ “.jpg”
写到文件 (保存, 到字节集 (局_结果))



t ＝ 文本_取左边 (时间_取间隔_结束 (), “秒”)
判断 (到整数 (t) ＞ 50)
线程_销毁 (句柄)


标签1.标题 ＝ “剩余” ＋ 到文本 (超级列表框2.取表项数 () － i) ＋ “个”

子程序名	返回值类型	公开	备 注
下载程序1
参数名	类 型	参考	可空	数组	备 注
i	整数型
句柄	整数型

变量名	类 型	静态	数组	备 注
局_网址	文本型
局_提交协议头	文本型
局_结果	字节集
局_方式	整数型
保存	文本型
wy	整数型
t	文本型

时间_取间隔_开始 ()
局_网址 ＝ 超级列表框2.取标题 (i － 1, 4)
局_方式 ＝ 0
局_提交协议头 ＝ “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”
局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, , , , 局_提交协议头, , wy, , , , 30, , , , , )
判断 (wy ≠ 404)
保存 ＝ 取运行目录 () ＋ “\” ＋ 超级列表框2.取标题 (i － 1, 1) ＋ “\” ＋ 超级列表框2.取标题 (i － 1, 0) ＋ “\” ＋ 超级列表框2.取标题 (i － 1, 5) ＋ “\” ＋ 超级列表框2.取标题 (i － 1, 2) ＋ “.jpg”
写到文件 (保存, 到字节集 (局_结果))



t ＝ 文本_取左边 (时间_取间隔_结束 (), “秒”)
判断 (到整数 (t) ＞ 50)
线程_销毁 (句柄)


标签1.标题 ＝ “剩余” ＋ 到文本 (超级列表框2.取表项数 () － i) ＋ “个”

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> 执行线程数 ＝ 10<br /> 取总个数 ＝ 超级列表框2.取表项数 ()<br /> .如果真 (取总个数 ＜ 执行线程数)  ' 判断就是执行的线程如果比我们祖册的线程数量多 就把 执行的线程数的值=注册的线程数<br />     执行线程数 ＝ 取总个数<br /> .如果真结束<br /> 创建线程池 ＝ 鱼刺池.创建 (执行线程数, 执行线程数, , 真, )  ' 这两个参数填注册的线程数不填的话系统好像是默认为5 这个不管反正运行得起来就好<br /> .如果真 (取反 (创建线程池))  ' 这个就是你当你线程数如果为0的话就出个提示框提示你一下。<br />     信息框 (“您的线程创建失败，请重试！”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> 投递计算 ＝ 0<br /> .判断循环首 (投递计算 ＜ 取总个数)  ' 投递计算=0  如果你  执行的线程数= 0 就不进入循环<br />     .判断开始 (投递计算 ＝ 0)<br />         排队线程 ＝ 取总个数<br />     .默认<br /> <br />     .判断结束<br />     空闲线程 ＝ 鱼刺池.取_空闲线程数 ()  ' 取还没执行在待命的线程<br />     .' 判断循环首 (空闲线程 ＝ 0)<br />         .' 如果真 (鱼刺池.取_状态 () ≠ 1)  ' 0=未启动，1=正在工作，2=正在创建，3=正在销毁  要他不是在“工作”就是在运行才可以进入中断运行<br />             ' 返回 ()<br />         .如果真结束<br />         ' 程序_延时 (100, )<br />         ' 空闲线程 ＝ 鱼刺池.取_空闲线程数 ()<br />     .' 判断循环尾 ()<br />     .如果真 (排队线程 ＜ 执行线程数)<br />         执行线程数 ＝ 排队线程<br />     .如果真结束<br />     排队线程 ＝ 排队线程 － 执行线程数<br />     .计次循环首 (执行线程数, )<br />         鱼刺池.投递任务 (&下载程序1, 投递计算, 句柄)  ' 这就是启动线程<br />         原子_递增 (投递计算)  ' 投递次数每次加1<br />         程序_延时 (100, )<br />         空闲线程 ＝ 鱼刺池.取_空闲线程数 ()<br />         调试输出 (“空闲线程：” ＋ 到文本 (空闲线程), 鱼刺池.取_状态 (), 鱼刺池.取_执行线程数 ())<br />     .计次循环尾 ()<br />     bool ＝ 鱼刺池.等待任务动态 ()<br />     .如果真 (bool ＝ 假)  ' 返回假 表示线程池被执行销毁 也表示用户手动点了停止<br />         返回 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> <br /> .判断循环首 (鱼刺池.取_是否有空闲 () ＝ 假)<br />     .如果真 (鱼刺池.取_状态 () ≠ 1)<br />         返回 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> .判断循环首 (鱼刺池.取_是否有空闲 () ＝ 假)<br />     .如果真 (鱼刺池.取_状态 () ≠ 1)<br />         返回 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 鱼刺池.销毁 (1, 真)  ' 把线程销毁<br /> .版本 2<br /> .支持库 iext<br /> <br /> .子程序 下载程序1<br /> .参数 i, 整数型<br /> .参数 句柄, 整数型<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_提交协议头, 文本型<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_方式, 整数型<br /> .局部变量 保存, 文本型<br /> .局部变量 wy, 整数型<br /> .局部变量 t, 文本型<br /> <br /> 时间_取间隔_开始 ()<br /> 局_网址 ＝ 超级列表框2.取标题 (i － 1, 4)<br /> 局_方式 ＝ 0<br /> 局_提交协议头 ＝ “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”<br /> 局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, , , , 局_提交协议头, , wy, , , , 30, , , , , )<br /> .判断开始 (wy ≠ 404)<br />     保存 ＝ 取运行目录 () ＋ “\” ＋ 超级列表框2.取标题 (i － 1, 1) ＋ “\” ＋ 超级列表框2.取标题 (i － 1, 0) ＋ “\” ＋ 超级列表框2.取标题 (i － 1, 5) ＋ “\” ＋ 超级列表框2.取标题 (i － 1, 2) ＋ “.jpg”<br />     写到文件 (保存, 到字节集 (局_结果))<br /> .默认<br /> <br /> .判断结束<br /> <br /> t ＝ 文本_取左边 (时间_取间隔_结束 (), “秒”)<br /> .判断开始 (到整数 (t) ＞ 50)<br />     线程_销毁 (句柄)<br /> .默认<br /> <br /> .判断结束<br /> 标签1.标题 ＝ “剩余” ＋ 到文本 (超级列表框2.取表项数 () － i) ＋ “个”<br /> .版本 2<br /> .支持库 iext<br /> <br /> .子程序 下载程序1<br /> .参数 i, 整数型<br /> .参数 句柄, 整数型<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_提交协议头, 文本型<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_方式, 整数型<br /> .局部变量 保存, 文本型<br /> .局部变量 wy, 整数型<br /> .局部变量 t, 文本型<br /> <br /> 时间_取间隔_开始 ()<br /> 局_网址 ＝ 超级列表框2.取标题 (i － 1, 4)<br /> 局_方式 ＝ 0<br /> 局_提交协议头 ＝ “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”<br /> 局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, , , , 局_提交协议头, , wy, , , , 30, , , , , )<br /> .判断开始 (wy ≠ 404)<br />     保存 ＝ 取运行目录 () ＋ “\” ＋ 超级列表框2.取标题 (i － 1, 1) ＋ “\” ＋ 超级列表框2.取标题 (i － 1, 0) ＋ “\” ＋ 超级列表框2.取标题 (i － 1, 5) ＋ “\” ＋ 超级列表框2.取标题 (i － 1, 2) ＋ “.jpg”<br />     写到文件 (保存, 到字节集 (局_结果))<br /> .默认<br /> <br /> .判断结束<br /> <br /> t ＝ 文本_取左边 (时间_取间隔_结束 (), “秒”)<br /> .判断开始 (到整数 (t) ＞ 50)<br />     线程_销毁 (句柄)<br /> .默认<br /> <br /> .判断结束<br /> 标签1.标题 ＝ “剩余” ＋ 到文本 (超级列表框2.取表项数 () － i) ＋ “个”

多线程执行一段时间就停了，执行线程一直是10，就不动了  ，有没有办法把线程池出错的线程结束掉，列里的继续运行。




补充内容 (2024-8-20 12:10):
t ＝ 文本_取左边 (时间_取间隔_结束 (), “秒”)
判断 (到整数 (t) ＞ 50)
线程_销毁 (句柄)

无敌小爱

zzg666 发表于 2024-8-20 12:11
t ＝ 文本_取左边 (时间_取间隔_结束 (), “秒”)
判断 (到整数 (t) ＞ 50)
线程_销毁 (句柄)

那么大概率是   
没有运行到这一句代码    就卡住半路了，


解决思路：在开始下载子程序最开始创建一个， 附属线程， 用于监测目前现有的线程状态，附属线程启动传递现在的时间戳， 然后线程判断循环就行了，循环到你判断的这个时间就直接结束掉这个被检测的线程，然后跳出循环

zzg666

t ＝ 文本_取左边 (时间_取间隔_结束 (), “秒”)
判断 (到整数 (t) ＞ 50)
线程_销毁 (句柄)
想通过这一段来结束，结束不了啊

zzg666

无敌小爱 发表于 2024-8-20 15:42
那么大概率是   
没有运行到这一句代码    就卡住半路了，

能简单的举个例子不，实在搞不懂啊

nice123456

好家伙，一点延时舍不得加啊！你电脑配件好厉害!顶配都不行！你的软件不是计算器，不用加延时，简单的程序！哪怕加个延时（10）！1000=1s（1秒）另外你都玩线程了，你！！！！！！