据统计90%查看本帖的人,都已经注册本站了哦
您需要 登录 才可以下载或查看,没有账号?立即注册
×
如上图,超级列表框序号出现错乱和插入出现空白。求大佬们帮解决!
引用了鱼翅多线程
[ecode=0].版本 2
.支持库 spec
.支持库 iext
.程序集 窗口程序集_启动窗口
.程序集变量 集_句柄, 整数型
.程序集变量 线程, 鱼刺类_线程操作
.程序集变量 多线程, 鱼刺类_线程池Ex
.程序集变量 许可证, 鱼刺类_临界许可
.子程序 _按钮1_被单击
.如果真 (线程.创建 (&分配线程, , 集_句柄, ) = 真)
调试输出 (真)
返回 ()
.如果真结束
调试输出 (假)
.子程序 分配线程
.局部变量 总任务, 整数型
.局部变量 线程数量, 整数型
.局部变量 执行线程数, 整数型
.局部变量 N, 整数型
总任务 = 到整数 (编辑框2.内容)
线程数量 = 到整数 (编辑框1.内容)
.如果真 (多线程.创建 (线程数量, 线程数量, ) = 假)
调试输出 (假)
返回 ()
.如果真结束
调试输出 (真)
.计次循环首 (总任务, N)
多线程.投递任务 (&主线程, N, )
处理事件 ()
.计次循环尾 ()
.子程序 主线程
.参数 线程数, 整数型
.局部变量 账号, 文本型
.局部变量 密码, 文本型
.局部变量 表项, 整数型
.局部变量 N, 整数型
置随机数种子 ()
许可证.进入 ()
表项 = 超级列表框1.插入表项 (, 到文本 (线程数), , , , )
账号 = 文本_取随机字母 (5, 0) + 文本_取随机数字 (3)
超级列表框1.置标题 (表项 - 1, 1, 账号)
许可证.退出 ()
_延迟 (3000)
密码 = 文本_取随机字母 (3, 0) + 文本_取随机数字 (5)
许可证.进入 ()
超级列表框1.置标题 (表项 - 1, 2, 密码)
超级列表框1.置标题 (表项 - 1, 3, “正在zc,请稍等”)
许可证.退出 ()
_延迟 (3000)
.计次循环首 (15, N)
_延迟 (1000)
许可证.进入 ()
超级列表框1.置标题 (表项 - 1, 3, “[” + 到文本 (N) + “/15]”)
许可证.退出 ()
处理事件 ()
.计次循环尾 ()
.判断开始 (寻找文本 (账号, “1”, , 假) ≠ -1)
许可证.进入 ()
超级列表框1.置标题 (表项 - 1, 3, “zc成功”)
许可证.退出 ()
许可证.进入 ()
.默认
超级列表框1.置标题 (表项 - 1, 3, “zc失败”)
许可证.退出 ()
.判断结束
.子程序 _按钮2_被单击
线程_销毁 (集_句柄)
多线程.销毁 ()
多线程.rar
(859.74 KB, 下载次数: 404)
揰掵佲已获得悬赏 1 易币+20 易币最佳答案
序号 建议用 程序集变量,毕竟多线程本来就不是按照顺序的~至于空白的话,自己在线程内判断一下
|