鱼刺多线程

RainCharm

搞不懂大神们想要什么样的，鱼刺写的多线程说是单线程，也不看一下生成的速度，你可以用精易命令 启动线程 去写，生成同样数据，看一下速度与稳定性，好心为你们解答，反过来说不行，本来想弄点荣誉值，才去解答的。不再为你们解答了。解答大神一堆也不差我一个充人头的，下次有什么好用的源码，直接发源码区
，
.版本 2
.支持库 iext
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 鱼刺, 鱼刺类_线程池Ex
.程序集变量 数组锁, 逻辑型
.程序集变量 卡密数组, 文本型, , "0"
.程序集变量 yc1, 鱼刺类_条件临界许可

.子程序 生成卡密, 文本型
.局部变量 结果, 文本型
.局部变量 i, 整数型

.计次循环首 (16, i)

    结果 ＝ 结果 ＋ 选择 (取随机数 (1, 2) ＝ 1, 字符 (取随机数 (65, 90)), 到文本 (取随机数 (0, 9)))

    .如果真 (i ％ 4 ＝ 0 且 i ≠ 16)

        结果 ＝ 结果 ＋ “-”

    .如果真结束

.计次循环尾 ()

返回 (结果)

.子程序 开始生成
.局部变量 i, 整数型
.局部变量 s, 整数型
.局部变量 sy, 整数型

清除数组 (卡密数组)
数组锁 ＝ 假
s ＝ 取启动时间 ()
鱼刺.创建 (, 10, , , , , )  ' 这个默认最小是5线程，第二个最大写10就够,
.计次循环首 (1000, i)
    鱼刺.投递任务 (&生成卡密线程, i, )
.计次循环尾 ()
.判断循环首 (鱼刺.取_是否完全空闲 () ＝ 假)
    雨雨_延时 (10, )
.判断循环尾 ()
.计次循环首 (取数组成员数 (卡密数组), i)
    sy ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (sy, 0, 到文本 (i))
    超级列表框1.置标题 (sy, 1, 卡密数组 )
.计次循环尾 ()
调试输出 (“生成卡密耗时 ” ＋ 到文本 (取整 (取启动时间 () － s)) ＋ “ 毫秒”)
调试输出 (“生成完成！共生成：” ＋ 到文本 (取数组成员数 (卡密数组)) ＋ “ 个卡密”)
鱼刺.销毁 (1, 真)
系统_处理事件 ()

.子程序 生成卡密线程
.参数 序号, 整数型
.局部变量 卡密, 文本型

卡密 ＝ 生成卡密 ()
yc1.进入 ()
加入成员 (卡密数组, 卡密)
yc1.退出 ()

.子程序 _按钮1_被单击

开始生成 ()

小峥

感谢大佬分享

xiassang

非常好，值得学习

yuzhong

111111111111111111111111111111111111111111

精易⌒小杜

好东西 可惜不会用 只能看看了

guowenhao

感谢分享，很给力！~

suannaijiang

感谢分享，很给力！~

pianone

感谢分享

dnf1

好的 非常好 非常给力

biao84

感谢分享，很给力！~