| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮_开始停止_被单击 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| bool | 逻辑型 | |||||
| len | 整数型 | |||||
如果真 (线程池.取_是否空闲 () ＝ 假)
信息框 (“请等待线程完全停止再启动”, 48 ＋ 65536, , )返回 ()
线程池.销毁 (0)
编辑框9.内容 ＝ “1”
len ＝ 超级列表框1.取表项数 ()
如果真 (len ＜ 1)信息框 (“请先导入ck”, 48 ＋ 65536, , )返回 ()临界.进入 ()
连续赋值 (0, 已完成数量, 保证显示索引)
临界.退出 ()
bool ＝ 线程.创建 (&工作)
如果真 (bool ＝ 真)返回 ()| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 工作 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 并发线程数 | 整数型 | |||||
| bool | 逻辑型 | |||||
| len | 整数型 | |||||
| i | 整数型 | |||||
| 空闲线程数 | 整数型 | |||||
| int | 整数型 | |||||
| 线程工作数 | 整数型 | |||||
| a | 整数型 | |||||
并发线程数 ＝ 到整数 (编辑框_并发线程数.内容)
临界.退出 ()
如果真 (并发线程数 ＜ 1)并发线程数 ＝ 1bool ＝ 线程池.创建 (并发线程数)
如果真 (bool ＝ 假)返回 ()临界.进入 ()
len ＝ 超级列表框1.取表项数 () － 1 ' 列表索引从0开始
a ＝ 超级列表框1.取表项数 ()
临界.退出 ()
判断 (到整数 (编辑框_账号执行行.内容) ＝ 0)
i ＝ 到整数 (编辑框_账号执行行.内容)
i ＝ 到整数 (到文本 (编辑框_账号执行行.内容))
判断循环首 (i ≤ len)空闲线程数 ＝ 线程池.取_空闲线程数 ()
如果真 (空闲线程数 ＞ 0)int ＝ len － i ＋ 1如果真 (int ＞ 空闲线程数)int ＝ 空闲线程数
计次循环首 (a, )如果真 (超级列表框1.取当前状态图片 (i) ＝ 1) ' 这句话判断检查框是否勾选上，勾选则状态图片=1线程池.投递任务 (&邀请, i, )
i ＝ i ＋ 1
计次循环尾 ()bool ＝ 线程池.等待任务动态 ()
如果真 (bool ＝ 假) ' 返回假 表示线程池被执行销毁 也表示用户手动点了停止返回 ()判断循环尾 ()' 等待剩余任务执行完毕
判断循环首 (线程池.取_是否空闲 () ＝ 假)如果真 (线程池.取_状态 () ≠ #线程池_正在工作 )返回 ()bool ＝ 线程池.等待任务动态 (100)判断循环尾 ()' 执行停止
线程池.销毁 (0)
按钮_开始停止.禁止 ＝ 假
| i支持库列表 | 支持库注释 |
| iext | 扩展界面支持库一 |