多线程许可证问题

zs0608zs

我创建了一个许可证，然后启动了10条线程，同时控制一个鼠标，用许可证来防止冲突，现在有个问题，我想让3号线程优先级更高一些，就是3号线程需要控制鼠标了，可以插队到其他线程前面，而不是随机的

无敌小爱

  

变量名	类 型	静态	数组	备 注
线程十号的锁	逻辑型

' 原理是在需要优先的线程里操作前  给全局变量【线程十号的锁】锁赋值为真,然后操作完毕后 赋值为假 ,如果为真则其他线、程全部等待十号完毕后才会继续运行
判断循环首 (线程十号的锁 ＝ 真)  ' 这个锁自己设置全局变量哦  这个代码放在其他的线程里面
程序_延迟 (10,)
处理事件 ()
' //这里是循环等待哦
判断循环尾 ()
' 例如这是线程十号的执行前的代码.
线程十号的锁 ＝ 真  ' OK这个就上锁
' '这里写代码
线程十号的锁 ＝ 假  ' 解锁所有线程正常运行

.版本 2<br /> <br /> .局部变量 线程十号的锁, 逻辑型<br /> <br /> <br /> ' 原理是在需要优先的线程里操作前  给全局变量【线程十号的锁】锁赋值为真,然后操作完毕后 赋值为假 ,如果为真则其他线、程全部等待十号完毕后才会继续运行<br /> <br /> .判断循环首 (线程十号的锁 ＝ 真)  ' 这个锁自己设置全局变量哦  这个代码放在其他的线程里面<br />     程序_延迟(10,)<br />     处理事件 ()<br />     ' //这里是循环等待哦<br /> .判断循环尾 ()<br /> ' 例如这是线程十号的执行前的代码.<br /> 线程十号的锁 ＝ 真  ' OK这个就上锁<br /> <br /> ' '这里写代码<br /> <br /> 线程十号的锁 ＝ 假  ' 解锁所有线程正常运行

补充内容 (2024-10-9 11:15):
线程池是为了减少开启线程的时间,如果你不是超多的线程在运行,那么代码不要求效率也可以直接用单线程 ,因为加许可证就是单线程,不是多线程

mytiger

不知道这个可不可以  api 一日一练(66) 程序自杀 设定线程优先级 SetThreadPriority函数 https://bbs.125.la/forum.php?mod=viewthread&tid=120194 (出处: 精易论坛)