版本
Windows 10 专业版
版本号
22H2
安装日期
2025/7/5
OS 内部版本
19045.6332
按键精灵为9.6版,2014版
2个版本均无法后台后台找色
无论是微信小程序(做这个按键就是为了微信小程序使用的),还是其他如:浏览器,TXT空白文本,word空白文本,全屏白图的图片,均后台无法识别
- Rem 获取句柄
- ' 第一步:弹出提示框
- Dialog.MsgBox "脚本即将开始,3秒后将自动获取鼠标指向窗口句柄", 0
- ' 第二步:等待3秒
- Delay 3000
- ' 第三步:获取鼠标指向的窗口句柄并保存为AAA
- AAA = Plugin.Window.MousePoint()
- ' 第四步:判断是否成功获取句柄
- If AAA = 0 Then
- MsgBox "未能获取到窗口句柄,请确保鼠标指向一个有效的窗口。"
- Else
- MsgBox "成功获取窗口句柄:" & AAA
- End If
- ' 定义查找区域和参数
- Dim x1, y1, x2, y2, color, sim, findType
- x1 = 100
- y1 = 100
- x2 = 110
- y2 = 110
- color = "FFFFFF" ' 目标颜色(白色)
- findType = 0 ' 查找类型:0表示标准查找
- sim = 0.9 ' 颜色相似度:0.9表示90%相似度
- ' 定义返回坐标变量
- Dim resultX, resultY
- resultX = -1
- resultY = -1
- ' 调试信息输出
- MsgBox "开始后台找色调试..." & vbCrLf & _
- "窗口句柄: " & AAA & vbCrLf & _
- "查找区域: (" & x1 & "," & y1 & ")到(" & x2 & "," & y2 & ")" & vbCrLf & _
- "目标颜色: " & color & vbCrLf & _
- "相似度: " & sim
- ' 首先检查窗口句柄是否有效
- If AAA = 0 Then
- MsgBox "错误:窗口句柄无效,请检查窗口是否正确激活"
- End If
- ' 尝试使用Plugin.Bkgnd.FindColorEx函数
- Call Plugin.Bkgnd.FindColorEx(AAA, x1, y1, x2, y2, color, findType, sim, resultX, resultY)
- ' 判断找色结果
- If resultX >= 0 And resultY >= 0 Then
- MsgBox "后台模糊找色成功!" & vbCrLf & _
- "找到颜色坐标(" & resultX & "," & resultY & ")" & vbCrLf & _
- "相似度:" & sim
- Else
- MsgBox "后台模糊找色失败!" & vbCrLf & _
- "未在指定区域找到目标颜色" & vbCrLf & _
- "相似度要求:" & sim & vbCrLf & _
- "可能原因:" & vbCrLf & _
- "1. 窗口句柄无效" & vbCrLf & _
- "2. 坐标超出窗口范围" & vbCrLf & _
- "3. 窗口类型不支持后台找色" & vbCrLf & _
- "4. 目标颜色在该区域不存在" & vbCrLf & _
- "5. 系统权限或兼容性问题"
- End If
复制代码