# 易语言多线程任务投递方案 以下是一个易语言实现的多线程任务处理框架，满足你的需求：不卡界面、不重复投递、执行完自动关闭线程。 ```易语言 .版本 2 .支持库 EThread .支持库 spec .程序集 窗口程序集_启动窗口 .程序集变量 任务队列, 文本型, , "0" ' 存储待处理的任务 .程序集变量 线程池, 整数型, , "0" ' 存储线程句柄 .程序集变量 线程锁, 整数型 ' 线程同步锁 .程序集变量 任务锁, 整数型 ' 任务队列锁 .程序集变量 最大线程数, 整数型 ' 最大并发线程数 .程序集变量 当前线程数, 整数型 ' 当前活跃线程数 .程序集变量 已处理任务, 文本型, , "0" ' 记录已处理任务避免重复 .子程序 __启动窗口_创建完毕 线程锁 ＝ 创建进入许可证 () 任务锁 ＝ 创建进入许可证 () 最大线程数 ＝ 5 ' 根据CPU核心数调整 当前线程数 ＝ 0 .子程序 __启动窗口_将被销毁 删除进入许可证 (线程锁) 删除进入许可证 (任务锁) ' 模拟获取数据 .子程序 _按钮_获取数据_被单击 局部变量 新数据, 文本型, , "10" 局部变量 i, 整数型 ' 模拟获取10条数据 计次循环首 (10, i) 新数据 [i] ＝ “任务数据_” ＋ 到文本 (取随机数 (1, 10000)) .计次循环尾 () ' 添加到任务队列 添加任务到队列 (新数据) ' 启动处理线程 处理任务 () ' 添加任务到队列（去重） .子程序 添加任务到队列, 逻辑型 .参数 任务数组, 文本型, 数组 局部变量 i, 整数型 局部变量 已存在, 逻辑型 进入许可区 (任务锁) 计次循环首 (取数组成员数 (任务数组), i) 已存在 ＝ 假 ' 检查是否已在已处理列表中 如果 (取数组成员数 (已处理任务) ＞ 0) 如果 (数组_查找 (已处理任务, 任务数组 [i]) ≠ -1) 已存在 ＝ 真 .如果结束 .如果结束 ' 检查是否已在待处理队列中 如果 (取数组成员数 (任务队列) ＞ 0) 如果 (数组_查找 (任务队列, 任务数组 [i]) ≠ -1) 已存在 ＝ 真 .如果结束 .如果结束 如果 (已存在 ＝ 假) 加入成员 (任务队列, 任务数组 [i]) .如果结束 .计次循环尾 () 退出许可区 (任务锁) 返回 (真) ' 任务处理主逻辑 .子程序 处理任务 判断循环首 (真) ' 检查是否有任务需要处理 进入许可区 (任务锁) 局部变量 任务数量 ＝ 取数组成员数 (任务队列) 退出许可区 (任务锁) 如果 (任务数量 ＝ 0) 跳出循环 () .如果结束 ' 检查线程数是否达到上限 进入许可区 (线程锁) 如果 (当前线程数 ＜ 最大线程数) 当前线程数 ＝ 当前线程数 ＋ 1 退出许可区 (线程锁) ' 启动新线程处理任务 局部变量 线程句柄 ＝ 启动线程 (&线程处理函数, , ) 加入成员 (线程池, 线程句柄) 否则 退出许可区 (线程锁) 延时 (100) ' 避免CPU占用过高 .如果结束 .判断循环尾 () ' 线程处理函数 .子程序 线程处理函数 局部变量 当前任务, 文本型 ' 从队列获取任务 进入许可区 (任务锁) 如果 (取数组成员数 (任务队列) ＞ 0) 当前任务 ＝ 任务队列 [1] 删除成员 (任务队列, 1, ) 加入成员 (已处理任务, 当前任务) .如果结束 退出许可区 (任务锁) ' 执行任务处理 如果 (当前任务 ≠ “”) ' 这里是实际的任务处理代码 调试输出 (“正在处理任务：”, 当前任务) 延时 (取随机数 (500, 2000)) ' 模拟处理耗时 调试输出 (“任务完成：”, 当前任务) .如果结束 ' 线程结束，减少计数 进入许可区 (线程锁) 当前线程数 ＝ 当前线程数 － 1 退出许可区 (线程锁) ' 辅助函数：在数组中查找元素 .子程序 数组_查找, 整数型 .参数 数组, 文本型, 数组 .参数 查找内容, 文本型 局部变量 i, 整数型 计次循环首 (取数组成员数 (数组), i) 如果 (数组 [i] ＝ 查找内容) 返回 (i) .如果结束 .计次循环尾 () 返回 (-1) ``` ## 代码说明 1. 任务队列管理：使用数组存储待处理任务，通过许可证实现线程安全访问 2. 线程池控制：限制最大并发线程数，避免资源耗尽 3. 去重机制：维护已处理任务列表，确保不重复处理相同任务 4. 界面响应：通过多线程确保主界面不卡顿 5. 自动清理：线程执行完毕后自动减少计数，等待新任务 ## 使用建议 1. 根据CPU核心数调整`最大线程数`变量（通常为核心数的2倍） 2. 实际任务处理代码替换`线程处理函数`中的模拟代码 3. 可根据需要添加任务优先级、失败重试等机制 ## 三条额外需要注意的逻辑点 1. 线程安全是核心，所有共享资源的访问必须加锁（任务队列、线程计数器等） 2. 任务去重逻辑需要考虑并发场景下的正确性 3. 线程数控制要合理，过多会导致资源竞争，过少无法充分利用CPU [2025-04-11 10:31:34 | AI写代码神器 | 1443点数解答]