多线程写法和许可位置是否存在问题

易小妞

这样写多线程有没有问题，还有就是许可这样写正确吗？求指点

  

子程序名	返回值类型	公开	备 注
登录主线

变量名	类 型	静态	数组	备 注
开始时间	整数型
执行时间	整数型
序号	整数型
任务总数	整数型
线程数量	整数型

编辑框_日志.内容 ＝ “”
重定义数组 (窗口, 假, 账号信息.取表项数 ())
开始时间 ＝ 取启动时间 ()
任务总数 ＝ 账号信息.取表项数 ()
线程数量 ＝ 到整数 (编辑框_线程数.内容)
判断 (线程数量 ＞ 任务总数)
线程数量 ＝ 任务总数
判断 (线程数量 ＞ 6)
线程数量 ＝ 6


任务完成数 ＝ 0
当前线程数量 ＝ 0
判断循环首 (任务总数 ＞ 任务完成数)  ' 判断任务完成情况
判断循环首 (线程数量 ＞ 当前线程数量)  ' 判断线程数是否足够
' 调试输出 (ID表项纪录, 线程数)
如果真 (任务完成数 ＋ 当前线程数量 ≥ 任务总数)  ' 防止溢出
跳出循环 ()

判断 (单选框_第三方多开软件.选中 ＝ 真)
鼠标_消息 (启动按钮句柄, , , , 1)
判断 (单选框_游戏启动命令.选中 ＝ 真)
运行 (编辑框_游戏路径.内容, 假, )



程序_延时 (5000)
窗口 [任务完成数 ＋ 当前线程数量 ＋ 1].线程句柄 ＝ 线程_启动 (&登录初始化, 任务完成数 ＋ 当前线程数量 ＋ 1, )
更新消息 (任务完成数 ＋ 当前线程数量, 8, “登录开始”)
更新消息 (任务完成数 ＋ 当前线程数量, 9, “运行中”)
' 账号信息.置标题 (任务完成数 ＋ 当前线程数量, 8, “登录开始”)
' 账号信息.置标题 (任务完成数 ＋ 当前线程数量, 9, “运行中”)
进入许可区 (G_许可证)
当前线程数量 ＝ 当前线程数量 ＋ 1
退出许可区 (G_许可证)
程序_延时 (2000)
判断循环尾 ()
程序_延时 (1000)
判断循环尾 ()

子程序名	返回值类型	公开	备 注
登录初始化
参数名	类 型	参考	可空	数组	备 注
序号	整数型

变量名	类 型	静态	数组	备 注
横间距	整数型
纵间距	整数型
mm	dmm
x	整数型
y	整数型
n	整数型
游戏窗口进程id集合	文本型
游戏窗口进程id数组	文本型		0
角色名	文本型
局_序号	整数型

线程_初始化COM库 ()
账号信息.保证显示 (序号 － 1)
更新消息 (序号 － 1, 8, “登录初始化”)
绑定 (序号)
进入地图 (序号)
挂机 (序号)
' 登录完毕后，ID表项纪录就加1
进入许可区 (G_许可证)
任务完成数 ＝ 任务完成数 ＋ 1
当前线程数量 ＝ 当前线程数量 － 1
退出许可区 (G_许可证)
更新消息 (序号 － 1, 9, “停止”)

i支持库列表	支持库注释
iext	扩展界面支持库一
EThread	多线程支持库

.版本 2<br /> .支持库 iext<br /> .支持库 EThread<br /> <br /> .子程序 登录主线<br /> .局部变量 开始时间, 整数型<br /> .局部变量 执行时间, 整数型<br /> .局部变量 序号, 整数型<br /> .局部变量 任务总数, 整数型<br /> .局部变量 线程数量, 整数型<br /> <br /> 编辑框_日志.内容 ＝ “”<br /> 重定义数组 (窗口, 假, 账号信息.取表项数 ())<br /> 开始时间 ＝ 取启动时间 ()<br /> <br /> 任务总数 ＝ 账号信息.取表项数 ()<br /> 线程数量 ＝ 到整数 (编辑框_线程数.内容)<br /> .判断开始 (线程数量 ＞ 任务总数)<br />     线程数量 ＝ 任务总数<br /> .判断 (线程数量 ＞ 6)<br />     线程数量 ＝ 6<br /> .默认<br /> <br /> .判断结束<br /> 任务完成数 ＝ 0<br /> 当前线程数量 ＝ 0<br /> <br /> <br /> .判断循环首 (任务总数 ＞ 任务完成数)  ' 判断任务完成情况<br />     .判断循环首 (线程数量 ＞ 当前线程数量)  ' 判断线程数是否足够<br />         ' 调试输出 (ID表项纪录, 线程数)<br />         .如果真 (任务完成数 ＋ 当前线程数量 ≥ 任务总数)  ' 防止溢出<br />             跳出循环 ()<br />         .如果真结束<br /> <br />         .判断开始 (单选框_第三方多开软件.选中 ＝ 真)<br />             鼠标_消息 (启动按钮句柄, , , , 1)<br />         .判断 (单选框_游戏启动命令.选中 ＝ 真)<br />             运行 (编辑框_游戏路径.内容, 假, )<br />         .默认<br /> <br />         .判断结束<br /> <br />         程序_延时 (5000)<br />         窗口 [任务完成数 ＋ 当前线程数量 ＋ 1].线程句柄 ＝ 线程_启动 (&登录初始化, 任务完成数 ＋ 当前线程数量 ＋ 1, )<br />         更新消息 (任务完成数 ＋ 当前线程数量, 8, “登录开始”)<br />         更新消息 (任务完成数 ＋ 当前线程数量, 9, “运行中”)<br />         ' 账号信息.置标题 (任务完成数 ＋ 当前线程数量, 8, “登录开始”)<br />         ' 账号信息.置标题 (任务完成数 ＋ 当前线程数量, 9, “运行中”)<br />         进入许可区 (G_许可证)<br />         当前线程数量 ＝ 当前线程数量 ＋ 1<br />         退出许可区 (G_许可证)<br />         程序_延时 (2000)<br />     .判断循环尾 ()<br />     程序_延时 (1000)<br /> .判断循环尾 ()<br /> <br /> <br /> <br /> <br /> .子程序 登录初始化<br /> .参数 序号, 整数型<br /> .局部变量 横间距, 整数型<br /> .局部变量 纵间距, 整数型<br /> .局部变量 mm, dmm<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 游戏窗口进程id集合, 文本型<br /> .局部变量 游戏窗口进程id数组, 文本型, , "0"<br /> .局部变量 角色名, 文本型<br /> .局部变量 局_序号, 整数型<br /> <br /> 线程_初始化COM库 ()<br /> 账号信息.保证显示 (序号 － 1)<br /> 更新消息 (序号 － 1, 8, “登录初始化”)<br /> <br /> 绑定 (序号)<br /> 进入地图 (序号)<br /> 挂机 (序号)<br /> <br /> ' 登录完毕后，ID表项纪录就加1<br /> 进入许可区 (G_许可证)<br /> 任务完成数 ＝ 任务完成数 ＋ 1<br /> 当前线程数量 ＝ 当前线程数量 － 1<br /> 退出许可区 (G_许可证)<br /> 更新消息 (序号 － 1, 9, “停止”)

神猴

两个地方的许可证  需要两个全局变量   现在是一个  会乱

补充内容 (2025-3-13 01:22):
当前线程数量 ＝ 当前线程数量 ＋ 1   
当前线程数量 ＝ 当前线程数量 - 1
这两个位置的需要两个许可证  你通用一个许可证  有问题

samll88

线程_初始化COM库 ()应该放在登录主线那里吧,好久没玩多线程忘了

jyfinn

<think> 嗯，用户问的是上面的多线程源码是否有问题，特别是许可证的用法。我需要仔细看一下提供的代码，分析可能的问题。
首先，代码的结构是使用易语言编写的，支持库是iext和EThread。子程序“登录主线”负责管理多线程任务，而“登录初始化”是每个线程执行的函数。

在登录主线中，用户使用了两个判断循环首来控制线程的启动。外层循环检查任务是否完成，内层循环控制当前线程数量不超过设定的线程数量。许可证（G_许可证）被用来保护对当前线程数量的修改，这里应该是一个临界区，防止多个线程同时修改这个变量导致的竞争条件。

但问题可能出现在许可证的使用范围。在代码中，进入和退出许可证的区域只包裹了当前线程数量的递增操作。这可能不够，因为任务完成数和当前线程数量的修改需要原子性操作。例如，当多个线程同时进入这个区域时，可能会导致任务完成数和当前线程数量的不一致。

另外，在登录初始化子程序中，任务完成数和当前线程数量的修改也被包裹在许可证中。但这里可能存在一个问题：当线程完成时，它会减少当前线程数量，并增加任务完成数。然而，这两个操作应该是原子的，否则可能出现任务完成数增加但当前线程数量未及时减少的情况，导致外层循环判断不准确。

还有，许可证是否被正确初始化和销毁？代码中没有显示许可证的创建和释放，可能在程序的其他部分，但如果遗漏了，会导致运行时错误。

另一个潜在的问题是线程数量控制的逻辑。内层循环的条件是线程数量是否足够，但任务完成数 + 当前线程数量可能超过任务总数，这里有一个判断防止溢出。不过，这里的逻辑是否正确？例如，当任务总数较少时，可能无法正确启动所有线程。

此外，线程启动后，程序_延时(2000)可能影响线程的启动速度，但这是设计上的考虑，可能不是错误。不过，过多的延时可能导致整体效率降低。

在许可证的使用上，是否有其他共享资源需要保护？例如，账号信息的更新，或者窗口数组的访问。代码中更新消息的部分可能涉及对UI控件的操作，这在多线程环境下需要同步，否则可能导致界面崩溃或数据不一致。然而，易语言的控件操作可能本身不是线程安全的，需要特别注意。

总结问题点：

许可证的使用范围可能不够，导致共享变量的竞争条件。
任务完成数和当前线程数量的修改需要原子性，可能需要更严格的保护。
许可证是否正确初始化和释放？
UI更新是否需要同步？ </think>
该多线程代码存在以下问题：

许可证使用缺陷：

保护范围不足：仅包裹当前线程数量的修改，未保护任务完成数的同步更新
竞态条件风险：任务完成数++和当前线程数量--操作应保持原子性
缺少许可证初始化：代码未展示许可证的创建(CreateMutex/CriticalSection)
线程控制逻辑问题：

.判断循环首 (线程数量 ＞ 当前线程数量) 如果真 (任务完成数 + 当前线程数量 ≥ 任务总数) ' 并发时可能失效
未受保护的复合条件判断可能导致任务遗漏或重复
资源访问风险：

窗口数组未做线程安全保护
账号信息表格的置标题操作未同步
日志编辑框的跨线程写入未队列化
性能问题：

固定5秒线程间隔影响效率
双重延时(5000+2000)导致吞吐量下降
建议改进方案：

.子程序 __启动窗口_创建完毕 G_许可证 ＝ 线程_创建许可证 () ' 增加初始化 .子程序 登录主线 进入许可区 (G_许可证) 当前线程数量 += 1 退出许可区 (G_许可证) ' 线程操作... .子程序 登录初始化 进入许可区 (G_许可证) 任务完成数 += 1 当前线程数量 -= 1 退出许可区 (G_许可证) 线程_删除许可证 (G_许可证) ' 增加销毁
优化要点：

扩大许可证保护范围至所有共享变量操作
使用信号量控制线程并发数
采用线程安全队列分配任务
UI更新使用PostMessage异步通知

LWB666

代码的意义不说，看起来应该没问题。
不建议使用精易模块的线程命令用于多线程，建议使用专门的线程池，如：鱼刺多线程、e2ee的多线程。命令多，会更方便一些

huayuanderen

线程里更改和调用全局变量 ,理论上都需要许可证 .你好几个地方调用了,线程多的或会交火

易小妞

鱼老板 发表于 2025-3-13 01:20
两个地方的许可证  需要两个全局变量   现在是一个  会乱

补充内容 (2025-3-13 01:22):

两个许可证？ 把他们分开？

进入许可区 (G_许可证_1)
当前线程数量 ＝ 当前线程数量 ＋ 1
退出许可区 (G_许可证_1)

进入许可区 (G_许可证_2)
任务完成数 ＝ 任务完成数 ＋ 1
当前线程数量 ＝ 当前线程数量 － 1
退出许可区 (G_许可证_2)

这样吗

易小妞

huayuanderen 发表于 2025-3-13 11:12
线程里更改和调用全局变量 ,理论上都需要许可证 .你好几个地方调用了,线程多的或会交火 ...

所有调用全局变量的地方，都加上许可证吗？

神猴

易小妞 发表于 2025-3-13 16:35
两个许可证？ 把他们分开？

进入许可区 (G_许可证_1)

对的  其实正常是可以不用加的  但是你加了  就必须做两个  他两不通用