多线程

ljlcr

  

按钮_开始登录.禁止 ＝ 真
线程数量 ＝ 到整数 (编辑框_执行数量.内容)
创建状态 ＝ 线程池.创建 (线程数量, 线程数量, , 真, )
如果真 (取反 (创建状态))
提示框 (“线程创建失败”, , , , )
按钮_开始登录.标题 ＝ “开始登录”
返回 ()
按钮_开始登录.禁止 ＝ 假
计次循环首 (超级列表框_登录信息.取表项数 (), i)
临时帐号.帐号 ＝ 超级列表框_登录信息.取标题 (i － 1, 1)
临时帐号.密码 ＝ 超级列表框_登录信息.取标题 (i － 1, 2)
临时帐号.T值 ＝ 超级列表框_登录信息.取标题 (i － 1, 4)
加入成员 (集_帐号, 临时帐号)
线程池.投递任务 (&开始工作, i, )
可用线程 ＝ 线程池.取_空闲线程数 ()
判断循环首 (可用线程 ＝ 0)
如果真 (线程池.取_状态 () ≠ 1)
返回 ()
延时 (50)
可用线程 ＝ 线程池.取_空闲线程数 ()
调试输出 (“卡在可用线程里”)
判断循环尾 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> 按钮_开始登录.禁止 ＝ 真<br /> 线程数量 ＝ 到整数 (编辑框_执行数量.内容)<br /> 创建状态 ＝ 线程池.创建 (线程数量, 线程数量, , 真, )<br /> .如果真 (取反 (创建状态))<br />     提示框 (“线程创建失败”, , , , )<br />     按钮_开始登录.标题 ＝ “开始登录”<br />     返回 ()<br /> .如果真结束<br /> 按钮_开始登录.禁止 ＝ 假<br /> .计次循环首 (超级列表框_登录信息.取表项数 (), i)<br />     临时帐号.帐号 ＝ 超级列表框_登录信息.取标题 (i － 1, 1)<br />     临时帐号.密码 ＝ 超级列表框_登录信息.取标题 (i － 1, 2)<br />     临时帐号.T值 ＝ 超级列表框_登录信息.取标题 (i － 1, 4)<br />     加入成员 (集_帐号, 临时帐号)<br />     线程池.投递任务 (&开始工作, i, )<br />     可用线程 ＝ 线程池.取_空闲线程数 ()<br />     .判断循环首 (可用线程 ＝ 0)<br />         .如果真 (线程池.取_状态 () ≠ 1)<br />             返回 ()<br />         .如果真结束<br />         延时 (50)<br />         可用线程 ＝ 线程池.取_空闲线程数 ()<br />         调试输出 (“卡在可用线程里”)<br />     .判断循环尾 ()<br /> .计次循环尾 ()

帮忙修改下 为什么永远都卡在可用线程=0这个死循环里

yapiing

最好把e文件发出来

ljlcr

yapiing 发表于 2018-11-5 16:54
最好把e文件发出来

.版本 2
.支持库 iext
.支持库 spec

.子程序 _按钮_开始登录_被单击
.局部变量 临时帐号, 帐号信息
.局部变量 线程数量, 整数型
.局部变量 执行数量, 文本型
.局部变量 创建状态, 逻辑型
.局部变量 zc数量, 整数型
.局部变量 可用线程, 整数型
.局部变量 i, 整数型
.局部变量 投递计次, 整数型

按钮_开始登录.禁止 ＝ 真
线程数量 ＝ 到整数 (编辑框_执行数量.内容)
创建状态 ＝ 线程池.创建 (线程数量, 线程数量, , 真, )
.如果真 (取反 (创建状态))
    提示框 (“线程创建失败”, , , , )
    按钮_开始登录.标题 ＝ “开始登录”
    返回 ()
.如果真结束
按钮_开始登录.禁止 ＝ 假
.计次循环首 (超级列表框_登录信息.取表项数 (), i)
    临时帐号.帐号 ＝ 超级列表框_登录信息.取标题 (i － 1, 1)
    临时帐号.密码 ＝ 超级列表框_登录信息.取标题 (i － 1, 2)
    临时帐号.T值 ＝ 超级列表框_登录信息.取标题 (i － 1, 4)
    加入成员 (集_帐号, 临时帐号)
    可用线程 ＝ 线程池.取_空闲线程数 ()
    .判断循环首 (可用线程 ＝ 0)
        .如果真 (线程池.取_状态 () ≠ 1)
            返回 ()
        .如果真结束
        延时 (50)
        可用线程 ＝ 线程池.取_空闲线程数 ()
        调试输出 (“卡在可用线程里”)
    .判断循环尾 ()
    线程池.投递任务 (&开始工作, i, )
    超级列表框_登录信息.插入表项 (, , , , , )
.计次循环尾 ()
.判断循环首 (线程池.取_是否空闲 () ＝ 假)
    .如果真 (线程池.取_状态 () ≠ 1)
        返回 ()
    .如果真结束
    延时 (50)
    调试输出 (“卡在最后循环”)
.判断循环尾 ()
线程池.销毁 (0, , 真)
提示框 (“线程执行完毕”, , , , )

.子程序 开始工作
.参数 i, 整数型

超级列表框_登录信息.插入表项 (, , , , , )
.如果 (登录 (集_帐号 .帐号, 集_帐号 .密码, 集_帐号 .T值, 集_帐号 .cookie) ＝ 1)
    修改名称 (集_帐号 .T值, 集_帐号 .cookie)
    超级列表框_登录信息.置标题 (i － 1, 3, “修改成功”)
.否则
    超级列表框_登录信息.置标题 (i － 1, 3, “修改失败”)



如果删除掉开始工作子程序里的 超级列表框操作  线程就不会卡死

Insist改变

把取_空闲线程数 () 改成执行取_执行线程数 ()  试试

云云云云钟

循环判断不用了，用下面这个试试
bool ＝ 线程池.等待任务动态 (, )

gowy111

如果真 (取反 (创建状态)) 这句就有毛病了...如果真的开始创建失败 创建状态=假，你这边取反就是=真，你的代码也会提示 ‘创建失败’。。。而且创建完不是立马就能用的，要先查 .取_状态 ()...创建中就继续判断循环等待创建完毕再取可用线程数量 再去投递任务...逻辑思路没通~~~

13292187873

我来看一看啊