鱼刺多线程崩溃，求模板框架

oliver867

鱼刺多线程数量多了，就直接崩溃，想求一套多线程模板，只

  

子程序名	返回值类型	公开	备 注
多线程模版
参数名	类 型	参考	可空	数组	备 注
换IP数量	整数型
zc数量	整数型
线程数量	整数型
索引	整数型
i	整数型
空闲线程数量	整数型
总任务数量	整数型
已投递数量	整数型
单次投递数量	整数型

变量名	类 型	静态	数组	备 注
原子_递增	整数型

' 如果要使用宽带换IP 线程操作下要加原子_递增 (IP已完成数量)
线程数量 ＝ 到整数 (编辑框_线程数量.内容)
总任务数量 ＝ 到整数 (编辑框_zc数量.内容)
已投递数量 ＝ 0
如果 (鱼刺线程池.创建 (线程数量, 线程数量, , , ))
判断循环首 (总任务数量 ＞ 已投递数量)
空闲线程数量 ＝ 鱼刺线程池.取_空闲线程数 ()
单次投递数量 ＝ 空闲线程数量
如果真 (空闲线程数量 ＞ 0)
如果真 (总任务数量 － 已投递数量 ＜ 空闲线程数量)
单次投递数量 ＝ 总任务数量 － 已投递数量
计次循环首 (单次投递数量, )
鱼刺线程池.投递任务 (&执行程序, 已投递数量, )
已投递数量 ＝ 原子_递增 (已投递数量)
_延迟 (50)
计次循环尾 ()
如果真 (鱼刺线程池.等待任务动态 (, ) ＝ 假)
跳出循环 ()

判断循环尾 ()


判断循环首 (鱼刺线程池.取_是否空闲 () ＝ 假)
如果真 (鱼刺线程池.取_状态 () ＝ 3)
跳出循环 ()
_延迟 (10)
判断循环尾 ()鱼刺线程池.销毁 (3, , )

.版本 2<br /> <br /> .子程序 多线程模版<br /> .参数 换IP数量, 整数型<br /> .参数 zc数量, 整数型<br /> .参数 线程数量, 整数型<br /> .参数 索引, 整数型<br /> .参数 i, 整数型<br /> .参数 空闲线程数量, 整数型<br /> .参数 总任务数量, 整数型<br /> .参数 已投递数量, 整数型<br /> .参数 单次投递数量, 整数型<br /> .局部变量 原子_递增, 整数型<br /> <br /> ' 如果要使用宽带换IP 线程操作下要加原子_递增 (IP已完成数量)<br /> 线程数量 ＝ 到整数 (编辑框_线程数量.内容)<br /> 总任务数量 ＝ 到整数 (编辑框_zc数量.内容)<br /> 已投递数量 ＝ 0<br /> .如果 (鱼刺线程池.创建 (线程数量, 线程数量, , , ))<br />     .判断循环首 (总任务数量 ＞ 已投递数量)<br />         空闲线程数量 ＝ 鱼刺线程池.取_空闲线程数 ()<br />         单次投递数量 ＝ 空闲线程数量<br />         .如果真 (空闲线程数量 ＞ 0)<br />             .如果真 (总任务数量 － 已投递数量 ＜ 空闲线程数量)<br />                 单次投递数量 ＝ 总任务数量 － 已投递数量<br />             .如果真结束<br />             .计次循环首 (单次投递数量, )<br />                 鱼刺线程池.投递任务 (&执行程序, 已投递数量, )<br />                 已投递数量 ＝ 原子_递增 (已投递数量)<br />                 _延迟 (50)<br />             .计次循环尾 ()<br />         .如果真结束<br />         .如果真 (鱼刺线程池.等待任务动态 (, ) ＝ 假)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .判断循环尾 ()<br /> .否则<br /> <br /> .如果结束<br /> .判断循环首 (鱼刺线程池.取_是否空闲 () ＝ 假)<br />     .如果真 (鱼刺线程池.取_状态 () ＝ 3)<br />         跳出循环 ()<br />     .如果真结束<br />     _延迟 (10)<br /> .判断循环尾 ()<br /> 鱼刺线程池.销毁 (3, , )

用改一下投递任务的子程序那种。

yycold

懒得改了。给你一个不用线程的参考下吧。  这个保证不崩溃

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .局部变量 ID表项记录
   
5. 
   
6. 序号 ＝ 0
   
7. .判断循环首 (序号 ＋ 1 ≤ 超级列表框1.取表项数 ())
   
8.     .如果 (线程数量 ＜ 到整数 (编辑框_线程数.内容))  ' 判断线程数是否小于我们设定的数目
   
9.         序号 ＝ 序号 ＋ 1
   
10.         线程ID ＝ 线程_启动 (&登陆, 序号)  ' 如果小于就执行创建
    
11.         超级列表框1.置标题 (ID表项记录, 12, “由线程：” ＋ 到文本 (线程ID) ＋ “正在处理”)  ' 记录该线程的ID 循环很快所以放在这记录
    
12. 
    
13.         ID表项记录 ＝ ID表项记录 ＋ 1  ' 这个变量用来记录ID的表项 ，必须
    
14.         线程数量 ＝ 线程数量 ＋ 1  ' 创建一次就+1  用来判断线程数量  于上面的如果对应
    
15.     .否则
    
16. 
    
17.         延时 (2000)  ' 如果线程数量大于设定数量延时X秒等待线程处理完毕 在循环（考虑到实际操作程序中线程运转完毕没有那么快，特地延时。）
    
18.     .如果结束
    
19. 
    
20. .判断循环尾 ()
    
21. 
    
22. 处理表项记录 ＝ 0  ' 清空记录
    

复制代码

补充内容 (2019-4-8 01:43):
说错了，是不用鱼刺的。

你考虑的太复杂了。

风度猫

直接执行中线程小于你设置的线程数,就投递一次就好了.完全不需要这么复杂

yycold

https://bbs.125.la/forum.php?mod=viewthread&tid=13991787&highlight=%D3%E3%B4%CC
看看这个。

oliver867

风度猫 发表于 2019-4-8 01:22
直接执行中线程小于你设置的线程数,就投递一次就好了.完全不需要这么复杂

线程一大就被崩溃，难受

oliver867

yycold 发表于 2019-4-8 01:25
https://bbs.125.la/forum.php?mod=viewthread&tid=13991787&highlight=%D3%E3%B4%CC
看看这个。

这我看了，比我发的那个蹦得还快

风度猫

肯定的啊.取空闲线程直接投递,然后又投递,你都没发现你执行的根本不是你要求的线程数嘛.直接取执行线程数.鱼刺自带的又,然后循环  发现执行的数量小于你的设置投递一次,大于或者等于了就延迟等待就好了啊

oliver867

风度猫 发表于 2019-4-8 01:29
肯定的啊.取空闲线程直接投递,然后又投递,你都没发现你执行的根本不是你要求的线程数嘛.直接取执行线程数. ...

执行的是我要的啊，执行程序只写一个超级列表框插入表现，zc数量100是插入了100个啊，但是代码多了，写完一整套zc流程投递进去 就蹦

yycold

zc多线程看这个吧
https://bbs.125.la/forum.php?mod=viewthread&tid=13991787&highlight=%D3%E3%B4%CC

风度猫

oliver867 发表于 2019-4-8 01:32
执行的是我要的啊，执行程序只写一个超级列表框插入表现，zc数量100是插入了100个啊，但是代码多了，写完 ...

算了休息了都不知道你在说什么...我说的是线程数量,不是你的zc数量,你就算zc1万个也得10个或者20个分批zc把,