多线程问题

你送的花开了

  

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

如果真 (局_总数量.取剩余行数 () ＝ 0)
信息框 (“请先导入账号”, 48, , )
返回 ()

如果真 (局_工作线程.创建 (&线程_初始化, , , , , , , , ))
按钮_开始.禁止 ＝ 真
G_开始时间 ＝ 取启动时间 ()
时钟1.时钟周期 ＝ 1000
透明标签4.标题 ＝ “运行中”

子程序名	返回值类型	公开	备 注
线程_初始化

变量名	类 型	静态	数组	备 注
index	整数型
i	整数型
int	整数型
部_总任务数	整数型
已投递数量	整数型
空闲线程数量	整数型
单次投递数量	整数型
线程数量	整数型

部_总任务数 ＝ 局_总数量.取剩余行数 ()
线程数量 ＝ 到整数 (编辑框_线程数量)
连续赋值 (0, G_完成数量, G_失败)
已投递数量 ＝ 0
窗口1.标题 ＝ “[” ＋ 时间_格式化 (取现行时间 (), “yyyy-M-d ”, “hh:mm:ss”, 真, ) ＋ “]”
如果真 (局_线程池.创建 (线程数量, 线程数量, , , ))
计次循环首 (部_总任务数, )
局_线程池.投递任务 (&工作线程, , )
Sleep (10)
计次循环尾 ()

判断循环首 (局_线程池.取_是否空闲 () ＝ 假)
如果真 (局_线程池.取_状态 () ＝ 3)
跳出循环 ()
Sleep (10)
判断循环尾 ()
按钮_开始.禁止 ＝ 假
局_线程池.销毁 (3, , )
透明标签4.标题 ＝ “未运行”

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮_开始_被单击<br /> <br /> .如果真 (局_总数量.取剩余行数 () ＝ 0)<br />     信息框 (“请先导入账号”, 48, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> .如果真 (局_工作线程.创建 (&线程_初始化, , , , , , , , ))<br />     按钮_开始.禁止 ＝ 真<br />     G_开始时间 ＝ 取启动时间 ()<br />     时钟1.时钟周期 ＝ 1000<br />     透明标签4.标题 ＝ “运行中”<br /> .如果真结束<br /> <br /> <br /> .子程序 线程_初始化<br /> .局部变量 index, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 int, 整数型<br /> .局部变量 部_总任务数, 整数型<br /> .局部变量 已投递数量, 整数型<br /> .局部变量 空闲线程数量, 整数型<br /> .局部变量 单次投递数量, 整数型<br /> .局部变量 线程数量, 整数型<br /> <br /> 部_总任务数 ＝ 局_总数量.取剩余行数 ()<br /> 线程数量 ＝ 到整数 (编辑框_线程数量)<br /> <br /> 连续赋值 (0, G_完成数量, G_失败)<br /> 已投递数量 ＝ 0<br /> 窗口1.标题 ＝ “[” ＋ 时间_格式化 (取现行时间 (), “yyyy-M-d ”, “hh:mm:ss”, 真, ) ＋ “]”<br /> <br /> .如果真 (局_线程池.创建 (线程数量, 线程数量, , , ))<br />     .计次循环首 (部_总任务数, )<br />         局_线程池.投递任务 (&工作线程, , )<br />         Sleep (10)<br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> .判断循环首 (局_线程池.取_是否空闲 () ＝ 假)<br />     .如果真 (局_线程池.取_状态 () ＝ 3)<br />         跳出循环 ()<br />     .如果真结束<br />     Sleep (10)<br /> .判断循环尾 ()<br /> 按钮_开始.禁止 ＝ 假<br /> 局_线程池.销毁 (3, , )<br /> 透明标签4.标题 ＝ “未运行”

数据导入用的 “快速文本对象+代理ip提取” 模块  拖放对象那直接压入文件地址 在工作线程里弹出然后进行处理

工作线程内容：数据弹出 分割数据为1和2 计次循环进行处理网页访问请求（请求为单独子程序返回内容进行循环内判断是否跳出）

现在出现问题是 设置50线程实际处理为1线程 一个处理完才进行下一个 有点懵  是线程池有什么问题吗还是别的什么原因  琢磨半天没解决


补充内容 (2024-3-5 14:41):
线程池也试了别的写法 也是执行线程为1

yaoming110

用精易的 线程池.启动 (&工作线程, , ) 看看

houtian

  

如果真 (局_线程池.创建 (线程数量, 线程数量, , , ))
返回 ()

判断循环首 (真)
如果 (局_线程池.取_空闲线程数 () ＞ 0)
局_线程池.投递任务 (&工作线程, , )
Sleep (10)

局_线程池.等待任务动态 ()

判断循环尾 ()

.版本 2<br /> <br /> .如果真 (局_线程池.创建 (线程数量, 线程数量, , , ))<br />     返回 ()<br /> .如果真结束<br /> <br /> .判断循环首 (真)<br />     .如果 (局_线程池.取_空闲线程数 () ＞ 0)<br />         局_线程池.投递任务 (&工作线程, , )<br />         Sleep (10)<br /> <br />     .否则<br />         局_线程池.等待任务动态 ()<br />     .如果结束<br /> <br /> .判断循环尾 ()

试试这样

你送的花开了

houtian 发表于 2024-3-5 15:14
[e=1].版本 2

.如果真 (局_线程池.创建 (线程数量, 线程数量, , , ))

这样直接没反应了

你送的花开了

yaoming110 发表于 2024-3-5 15:11
用精易的 线程池.启动 (&工作线程, , ) 看看

工作线程是投递任务....

补充内容 (2024-3-5 15:20):
开始按钮那块用jy的线程_启动试过了

houtian

你送的花开了 发表于 2024-3-5 15:19
这样直接没反应了

把判断里面的等于假   创建失败就返回  手打的忘记加了

没事瞎琢磨

把这个   局_工作线程.创建 (&线程_初始化, , , , , , , , )

换成 启动线程（&线程_初始化，） 试试