求助大哥指点迷津 大漠主线程里面切换窗口

87467311

求助大哥指点我一二

如果真 (启动线程 (&脚本主线程, 主序号, 线程信息 [主序号].线程句柄) ＝ 假)
子程序 过滑块（序号）
   如果真 (启动线程 (&脚本主线程, 主序号, 线程信息 [主序号].线程句柄) ＝ 假)


子程序
滑块窗口句柄 ＝ dm.EnumWindow (线程信息 [序号].窗口句柄, “”, “Internet Explorer_Server”, 2 ＋ 16) 获取验证码窗口
  .如果真 (dm.SwitchBindWindow (到整数 (滑块窗口句柄)) ＝ 1 ) 这里阻塞
‘这里是切换到滑块验证码窗口， 滑块验证码窗口，是另外一个窗口句柄。 这里切换窗口到滑块窗口的时候，所有窗口主线程，副线程都出现了阻塞 ，主线程，副线程感觉都暂停了， 等切换成功了，其他窗口才又开始运行。开10个号，还没什么感觉， 开15个号，一到切换窗口，过滑块 的时候，15个窗口就不会动了，感觉越切越慢
是SwitchBindWindow 这个命令会阻塞， 还是dm.AiYoloDetectObjects这个命令会阻塞。
        调试输出 (“切换到滑块窗口成功”)            
         脚本延时 (序号, 500)
        ' ------------------
            dm.AiYoloUseModel (0)
            返回值 ＝ dm.AiYoloDetectObjects (16, 68, 320, 232, 0.85, 0.45)  大漠YOLO 过滑块
            .如果真 (返回值 ≠ “”)
结束

切回游戏窗口
如果真 (dm.SwitchBindWindow (线程信息 [序号].窗口句柄) ＝ 1) 这里又不会阻塞

Giggle梦痕

AiYoloDetectObjects  注:模块内部是全局的,所以调用此接口时得确保没有其它接口去访问此模型.  如果多个线程里,UseModel的序号是相同的,那么如果同时执行此接口时,会排队执行.  大漠接口说明里有这个解释 看起来是yolo排队了

chuyu123

.版本 2
.全局变量 全局dm切换锁, 整数型  ' 全局互斥锁

' 程序启动时创建锁
.子程序 _启动窗口_创建完毕
    全局dm切换锁 ＝ 创建互斥锁 ()
    ' 初始化线程信息数组（15个线程）
    重定义数组 (线程信息, 假, 15)

' ========== 脚本延时优化：高精度非阻塞延时 ==========
.子程序 脚本延时, , 公开
    .参数 序号, 整数型
    .参数 延时毫秒, 整数型
    .局部变量 开始时间, 整数型
    开始时间 ＝ 取启动时间 ()
    ' 非阻塞延时：不占用线程，只等待时间到
    .判断循环首 (取启动时间 () － 开始时间 ＜ 延时毫秒)
        处理事件 ()  ' 关键！让窗口消息循环不卡死，避免“窗口不动”的视觉效果
    .判断循环尾 ()

chuyu123

.子程序 后台截图识别hk, 逻辑型
    .参数 序号, 整数型
    .局部变量 dm, dmsoft
    dm ＝ 线程信息 [序号].dm

    ' 后台截图hk窗口（无需切换绑定）
    dm.BindWindow (线程信息 [序号].hk窗口句柄, “gdi”, “none”, “none”, 0)  ' 临时绑定，不切换上下文
    dm.Capture (0, 0, 300, 200, “temp_” ＋ 到文本 (序号) ＋ “.bmp”)  ' 后台截图
    dm.UnBindWindow ()  ' 立即解绑

    ' 离线识别截图中的hk（用YOLO离线识别，避免切换窗口）
    返回值 ＝ dm.AiYoloDetectObjectsFromFile (“temp_” ＋ 到文本 (序号) ＋ “.bmp”, 0.9, 0.5)
    ' 删除临时截图
    删除文件 (“temp_” ＋ 到文本 (序号) ＋ “.bmp”)

chuyu123

.子程序 过hk, 逻辑型
    .参数 序号, 整数型
    .局部变量 返回值, 文本型
    .局部变量 dm, dmsoft  ' 取当前线程的dm实例
    dm ＝ 线程信息 [序号].dm

    ' ========== 优化1：缓存hk窗口句柄，避免重复EnumWindow ==========
    .如果真 (线程信息 [序号].hk窗口句柄 ＝ 0 或 窗口是否存在 (线程信息 [序号].hk窗口句柄) ＝ 假)
        ' 枚举hk窗口时加过滤，减少遍历耗时
        线程信息 [序号].hk窗口句柄 ＝ dm.EnumWindow (线程信息 [序号].窗口句柄, “”, “Internet Explorer_Server”, 2 ＋ 16)
        .如果真 (线程信息 [序号].hk窗口句柄 ＝ 0)
            调试输出 (“线程” ＋ 到文本 (序号) ＋ “未找到hk窗口”)
            返回 (假)
        .如果真结束
    .如果真结束

    ' ========== 优化2：切换前校验窗口，减少无效阻塞 ==========
    .如果真 (dm.IsWindow (到整数 (线程信息 [序号].hk窗口句柄)) ＝ 0)
        调试输出 (“线程” ＋ 到文本 (序号) ＋ “hk窗口无效，重新枚举”)
        线程信息 [序号].hk窗口句柄 ＝ dm.EnumWindow (线程信息 [序号].窗口句柄, “”, “Internet Explorer_Server”, 2 ＋ 16)
        .如果真 (线程信息 [序号].hk窗口句柄 ＝ 0)
            返回 (假)
        .如果真结束
    .如果真结束

    ' ========== 优化3：SwitchBindWindow加超时+非阻塞思路 ==========
    ' 用线程锁控制切换（避免多线程同时切换dm上下文）
    加锁 (全局dm切换锁)
    ' 切换hk窗口（这里的阻塞无法完全避免，但独立dm实例后会大幅减轻）
    .如果真 (dm.SwitchBindWindow (到整数 (线程信息 [序号].hk窗口句柄)) ＝ 1)
        调试输出 (“线程” ＋ 到文本 (序号) ＋ “切换到hk窗口成功”)
        脚本延时 (序号, 200)  ' 缩短延时（500→200），减少等待

        ' ========== 优化4：YOLO识别轻量化 ==========
        dm.AiYoloUseModel (0)
        ' 缩小识别区域（16,68,320,232 → 只识别hk区域，减少计算）
        返回值 ＝ dm.AiYoloDetectObjects (16, 68, 200, 180, 0.9, 0.5)  ' 提高置信度，减少计算量
        .如果真 (返回值 ≠ “”)
            ' 处理hk识别逻辑
            调试输出 (“线程” ＋ 到文本 (序号) ＋ “hk识别成功：” ＋ 返回值)
        .如果真结束

        ' 切回游戏窗口（独立dm实例+锁，切回不会阻塞）
        dm.SwitchBindWindow (线程信息 [序号].窗口句柄)
    .如果真结束
    解锁 (全局dm切换锁)

    返回 (真)