多线程代码错误，求改写

Rndarine

求助大神，帮忙修改下多线程代码错误得问题。最好代上备注，谢谢各位

厉害的海绵宝宝

.版本 2
.支持库 iext

.局部变量 任务数, 整数型
.局部变量 线程数, 整数型
.局部变量 空闲数, 整数型
.局部变量 线程池_计次, 整数型
.局部变量 剩余任务数, 整数型
.局部变量 投递数, 整数型
.局部变量 ip计次, 整数型

任务数 ＝ 超级列表框1.取表项数 ()
线程数 ＝ 到整数 (编辑框_线程数.内容)
.如果真 (线程数 ≤ 0)
    线程数 ＝ 1
.如果真结束
线程池.创建 (线程数, 线程数, , , )
空闲数 ＝ 线程池.取_空闲线程数 ()
线程池_计次 ＝ 0
.判断循环首 (任务数 ＞ 0)
    .如果真 (空闲数 ＞ 0)
        剩余任务数 ＝ 任务数 － 线程池_计次
        .如果真 (剩余任务数 ≤ 0)
            .循环判断首 ()
                线程池.等待任务动态 (500)
                程序_延时 (200)
            .循环判断尾 (线程池.取_是否空闲 () ＝ 假)
            跳出循环 ()
        .如果真结束
        .判断开始 (空闲数 ＞ 剩余任务数)
            投递数 ＝ 剩余任务数
        .默认
            投递数 ＝ 空闲数
        .判断结束
        .计次循环首 (投递数, )
            .如果真 (到整数 (编辑框_IP阀值.内容) ＞ 0)
                .如果真 (ip计次 ≥ 到整数 (编辑框_IP阀值.内容))
                    .循环判断首 ()
                        线程池.等待任务动态 (200)
                        程序_延时 (200)
                    .循环判断尾 (线程池.取_是否空闲 () ＝ 假)
                    Adsl重拨 ()
                    ip计次 ＝ 0
                .如果真结束

            .如果真结束

            线程池.投递任务 (&工作线程, 线程池_计次, )
            线程池_计次 ＝ 线程池_计次 ＋ 1
            ip计次 ＝ ip计次 ＋ 1
            程序_延时 (200)
        .计次循环尾 ()
    .如果真结束
    _处理事件 ()
    线程池.等待任务动态 (200)
.判断循环尾 ()




如对您有帮助 请采纳 谢谢

补充内容 (2019-9-19 13:56):
调用的时候把投递的 线程池_计次作为索引，这样就可以获取到超级列表框里面的数据了，然后对数据进行计算即可。