NX线程池模块 修复版

Esma001

支持开源~！感谢分享

买疙瘩

原版测试经常出现线程失败

哈拉哈拉

楼主辛苦了，谢谢楼主，感谢楼主分享，楼主好人一生平安！！！

zjmowu

支持开源~！感谢分享

一指温柔

支持开源~！感谢分享

煞气辅助

yibosm 发表于 2024-2-21 18:02
.版本 2
.支持库 spec

可以加,如果需要更复杂的用法 建议用 鱼刺多线程[更新][鱼刺多线程-鱼刺类_多线程应用模块v5.4完整源码 [url]https://bbs.125.la/forum.php?mod=viewthread&tid=14098474[/url]

tankw

66666666666666666

yue86

回复富贵花皇冠夫妇姑姑姑父丰富的风风光光更丰富飞飞哥

yibosm

yibosm 发表于 2024-2-21 18:00
NX.关闭     循环里面可否加 2个延迟

.版本 2
.支持库 spec

.子程序 关闭, , 公开, 成功返回真，失败返回假。
.参数 等待时间, 整数型, 可空, 可空。默认为“5000”毫秒。等待线程池销毁的时间，单位毫秒,如果为INFINITE（-1），则仅在对象发出信号时返回。
.局部变量 i, 整数型

.如果真 (取反 (成员_线程池_状态))
    返回 ()
.如果真结束
成员_线程池_状态 ＝ 假

.计次循环首 (成员_线程数, )
    PostQueuedCompletionStatus (成员_线程池IOCP, 0, -999, 0)  ' 通知所有线程退出
    处理事件 ()
    延迟 (100)
.计次循环尾 ()

等待所有任务完成 (选择 (是否为空 (等待时间), 5000, 等待时间))
SetEvent (成员_任务完成事件)

.计次循环首 (取数组成员数 (成员_线程句柄), i)
    .如果真 (WaitForSingleObject (成员_线程句柄 , 1) ≠ #WAIT_OBJECT_0)

        .如果真 (成员_调试输出)
            调试输出 (“强制销毁线程” ＋ 到文本 (i))
        .如果真结束
        TerminateThread (成员_线程句柄 , 0)

    .如果真结束
    CloseHandle (成员_线程句柄 )
    处理事件 ()
    延迟 (100)
.计次循环尾 ()


清除数组 (成员_线程句柄)
成员_线程数 ＝ 0
成员_任务数 ＝ 0
成员_执行数 ＝ 0



.如果真 (成员_调试输出)
    调试输出 (“线程池已结束”)
.如果真结束

CloseHandle (成员_线程池IOCP)

yibosm

NX.关闭     循环里面可否加 2个延迟