求一个监控线程的模板学习一下。找了好多都是监控线程...

suisuinian

我自己的写法是：监控线程、主线程共用一个大漠。
监控线程里面有一个变量用来控制主线程无限循环延迟，避开大漠争夺。
想看看有没有别的跟优质的写法

易智趣吖

  

子程序名	返回值类型	公开	备 注
_按钮_全部开始_被单击

重定义数组 (大漠多线程, 假, 超级列表框1.取表项数 ())
启动线程 (&脚本总线程, , 全局_主线程句柄)  ' 启动主线程，即脚本的循环登录总控制
启动线程 (&全局监控线程, , 全局_监控句柄)  ' 启动全局的监控线程，用于重启线程，也可以对全局的窗口运行情况做监控’这个不一定需要，而且大部分情况下可以不要，除非你真的能用好

子程序名	返回值类型	公开	备 注
全局监控线程

变量名	类 型	静态	数组	备 注
i	整数型
表项数	整数型

全局监控控制 ＝ 真
表项数 ＝ 超级列表框1.取表项数 ()
判断循环首 (全局监控控制)
计次循环首 (表项数, i)
如果真 (全局监控控制 ＝ 假)
跳出循环 ()

如果真 (大漠多线程 [i].线程重启 ＝ 真)  ' 当窗口任务出现错误需要重启时，将大漠多线程 [i].重启线程置为真，重启此窗口线程’注意，重启线程要尽量避免，势必会造成多线程框架的不稳定因素增加。
超级列表框1.置标题 (i － 1, 9, “重启线程”)
大漠多线程 [i].dm.UnBindWindow ()
ADB_雷电模拟器_关闭某个 (全局_adb路径, 大漠多线程 [i].模拟器序号)
大漠多线程 [i].监控线程状态 ＝ 假  ' 如果窗口监控线程开启了，在这里结束窗口监控线程
如果真 (WaitForSingleObject (大漠多线程 [i].监控句柄, 3000) ≠ 0)
强制结束线程 (大漠多线程 [i].监控句柄)
关闭线程句柄 (大漠多线程 [i].监控句柄)
大漠多线程 [i].窗口线程状态 ＝ 假
如果真 (WaitForSingleObject (大漠多线程 [i].线程句柄, 3000) ≠ 0)
强制结束线程 (大漠多线程 [i].线程句柄)
关闭线程句柄 (大漠多线程 [i].线程句柄)
大漠多线程 [i].线程句柄 ＝ 0
大漠多线程 [i].进程ID ＝ 0
大漠多线程 [i].游戏句柄 ＝ 0
辅助延时 (1000, )
大漠多线程 [i].线程重启 ＝ 假
启动线程 (&窗口线程, i, 大漠多线程 [i].线程句柄)
辅助延时 (500, )
启动线程 (&窗口监控线程, i, 大漠多线程 [i].监控句柄)  ' 注意，如果你没有启动窗口监控线程，或者窗口监控线程是放在绑定以后或者登录以后启动，那这里就不需要这一句了’
辅助延时 (500, )

计次循环尾 ()
辅助延时 (2000, )
判断循环尾 ()

子程序名	返回值类型	公开	备 注
窗口监控线程
参数名	类 型	参考	可空	数组	备 注
i	整数型

变量名	类 型	静态	数组	备 注
dm	dmsoft
ret	整数型

CoInitializeEx (0, 0)  ' 此处为窗口监控线程，主要用来对该窗口的运行过程中做一些辅助处理，比如不定时的验证码，又或者掉线时，可以在该线程暂停大漠多线程[i].线程句柄，登录进入游戏以后再继续大漠多线程[i].线程句柄，这条线程可以开，也可以不开，根据自己的写法来
大漠多线程 [i].xm.创建对象 ()
dm ＝ 大漠多线程 [i].xm
dm.SetShowErrorMsg (0)
dm.SetPath (取运行目录 () ＋ “\pic\”)
' 这里写置全局路径、声明字库、设置图片密码等一系列准备工作
判断循环首 (真)  ' 绑定窗口
如果真 (大漠多线程 [i].游戏句柄 ＞ 0)
辅助延时 (1000, )
ret ＝ dm.BindWindowEx (大漠多线程 [i].游戏句柄, “dx.graphic.opengl”, “dx.mouse.position.lock.api”, “windows”, “”, 0)
辅助延时 (500, )
如果真 (ret ＝ 1)
调试输出 (“副绑定成功”)
跳出循环 ()

辅助延时 (1000, )
判断循环尾 ()
如果真 (ret ＝ 1)
判断循环首 (大漠多线程 [i].监控线程状态)
' 调试输出 (“监控中”)
脚本延时_监控线程 (i, 2000)
判断循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 EThread<br /> <br /> .子程序 _按钮_全部开始_被单击<br /> <br /> 重定义数组 (大漠多线程, 假, 超级列表框1.取表项数 ())<br /> 启动线程 (&脚本总线程, , 全局_主线程句柄)  ' 启动主线程，即脚本的循环登录总控制<br /> 启动线程 (&全局监控线程, , 全局_监控句柄)  ' 启动全局的监控线程，用于重启线程，也可以对全局的窗口运行情况做监控’这个不一定需要，而且大部分情况下可以不要，除非你真的能用好<br /> <br /> <br /> .子程序 全局监控线程<br /> .局部变量 i, 整数型<br /> .局部变量 表项数, 整数型<br /> <br /> 全局监控控制 ＝ 真<br /> 表项数 ＝ 超级列表框1.取表项数 ()<br /> .判断循环首 (全局监控控制)<br />     .计次循环首 (表项数, i)<br />         .如果真 (全局监控控制 ＝ 假)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />         .如果真 (大漠多线程 <i>.线程重启 ＝ 真)  ' 当窗口任务出现错误需要重启时，将大漠多线程 <i>.重启线程置为真，重启此窗口线程’注意，重启线程要尽量避免，势必会造成多线程框架的不稳定因素增加。<br />             超级列表框1.置标题 (i － 1, 9, “重启线程”)<br />             大漠多线程 <i>.dm.UnBindWindow ()<br />             ADB_雷电模拟器_关闭某个 (全局_adb路径, 大漠多线程 <i>.模拟器序号)<br />             大漠多线程 <i>.监控线程状态 ＝ 假  ' 如果窗口监控线程开启了，在这里结束窗口监控线程<br />             .如果真 (WaitForSingleObject (大漠多线程 <i>.监控句柄, 3000) ≠ 0)<br />                 强制结束线程 (大漠多线程 <i>.监控句柄)<br />                 关闭线程句柄 (大漠多线程 <i>.监控句柄)<br />             .如果真结束<br />             大漠多线程 <i>.窗口线程状态 ＝ 假<br />             .如果真 (WaitForSingleObject (大漠多线程 <i>.线程句柄, 3000) ≠ 0)<br />                 强制结束线程 (大漠多线程 <i>.线程句柄)<br />                 关闭线程句柄 (大漠多线程 <i>.线程句柄)<br />                 大漠多线程 <i>.线程句柄 ＝ 0<br />             .如果真结束<br />             大漠多线程 <i>.进程ID ＝ 0<br />             大漠多线程 <i>.游戏句柄 ＝ 0<br />             辅助延时 (1000, )<br />             大漠多线程 <i>.线程重启 ＝ 假<br />             启动线程 (&窗口线程, i, 大漠多线程 <i>.线程句柄)<br />             辅助延时 (500, )<br />             启动线程 (&窗口监控线程, i, 大漠多线程 <i>.监控句柄)  ' 注意，如果你没有启动窗口监控线程，或者窗口监控线程是放在绑定以后或者登录以后启动，那这里就不需要这一句了’<br />             辅助延时 (500, )<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     辅助延时 (2000, )<br /> .判断循环尾 ()<br /> .版本 2<br /> .支持库 spec<br /> <br /> .子程序 窗口监控线程<br /> .参数 i, 整数型<br /> .局部变量 dm, dmsoft<br /> .局部变量 ret, 整数型<br /> <br /> CoInitializeEx (0, 0)  ' 此处为窗口监控线程，主要用来对该窗口的运行过程中做一些辅助处理，比如不定时的验证码，又或者掉线时，可以在该线程暂停大漠多线程<i>.线程句柄，登录进入游戏以后再继续大漠多线程<i>.线程句柄，这条线程可以开，也可以不开，根据自己的写法来<br /> 大漠多线程 <i>.xm.创建对象 ()<br /> dm ＝ 大漠多线程 <i>.xm<br /> dm.SetShowErrorMsg (0)<br /> dm.SetPath (取运行目录 () ＋ “\pic\”)<br /> ' 这里写置全局路径、声明字库、设置图片密码等一系列准备工作<br /> .判断循环首 (真)  ' 绑定窗口<br />     .如果真 (大漠多线程 <i>.游戏句柄 ＞ 0)<br />         辅助延时 (1000, )<br />         ret ＝ dm.BindWindowEx (大漠多线程 <i>.游戏句柄, “dx.graphic.opengl”, “dx.mouse.position.lock.api”, “windows”, “”, 0)<br />         辅助延时 (500, )<br />         .如果真 (ret ＝ 1)<br />             调试输出 (“副绑定成功”)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .如果真结束<br />     辅助延时 (1000, )<br /> .判断循环尾 ()<br /> .如果真 (ret ＝ 1)<br />     .判断循环首 (大漠多线程 <i>.监控线程状态)<br />         ' 调试输出 (“监控中”)<br />         脚本延时_监控线程 (i, 2000)<br />     .判断循环尾 ()

dzscuz

就不能直接主线程一个对象，监控线程一个对象吗？

易智趣吖

监控线程单开对象，单独注册

大大大大大师

https://bbs.ijingyi.com/thread-14869356-1-1.html
这个你看一下,虽然不是两个线程共用一个对象,但是可以实现无锁同步,以及优雅退出线程.

理论上是支持两个甚至多个线程公用一个对象的,一个线程用来当监工,其他线程用来干苦力!没毛bing...

suisuinian

dzscuz 发表于 2025-12-14 09:50
就不能直接主线程一个对象，监控线程一个对象吗？

那样不会造成同时点击两个地方吗。