[已回复] 点击K3系统一些区域没反应 [复制链接]

我用按键精灵脚本操作K3系统，如附件截图，在点击步骤2345的时候没反应。脚本也提示找到元素了和坐标了。我用坐标定位和图片定位都能找到按钮，但是按键精灵模拟点击之后K3 没反应。点击最左边的步骤1按钮是可以的，以及点击主控台上面的目录也是可以的。这是咋回事啊？

模拟点击步骤2的脚本如下：

' ============================ 全局设置 ============================
' 设置图片搜索区域 (全屏或指定区域)
Dim searchX1 : searchX1 = 0 ' 搜索区域左上角X坐标
Dim searchY1 : searchY1 = 0 ' 搜索区域左上角Y坐标
Dim searchX2 : searchX2 = 1920 ' 搜索区域右下角X坐标 (根据屏幕分辨率调整)
Dim searchY2 : searchY2 = 1080 ' 搜索区域右下角Y坐标 (根据屏幕分辨率调整)

' 设置图片相似度阈值
Dim similarityThreshold : similarityThreshold = 0.8 ' 相似度阈值，范围0-1，越高要求越严格

' 设置等待时间
Dim searchTimeout : searchTimeout = 10000 ' 查找图片的超时时间(毫秒)
Dim delayAfterClick : delayAfterClick = 2000 ' 点击后的等待时间(毫秒)

' 图片文件路径
Dim outsourcedProcButtonImage : outsourcedProcButtonImage = "委外加工按钮.bmp" ' 委外加工按钮的图片

' ============================ 主程序 ============================
Call Main()

Sub Main()
Dim result
result = FindAndClickButton(outsourcedProcButtonImage, searchX1, searchY1, searchX2, searchY2)

If result Then
MsgBox "成功找到并点击了委外加工按钮！"
Else
MsgBox "未能找到委外加工按钮，请检查图片是否正确或调整相似度阈值。"
End If
End Sub

' ============================ 功能函数 ============================
Function FindAndClickButton(imagePath, x1, y1, x2, y2)
Dim startTime, currentTime
Dim intX, intY ' 找到的图片坐标

' 记录开始时间
startTime = Timer() * 1000

' 循环查找图片，直到找到或超时
Do
' 使用FindPic查找图片
FindPic x1, y1, x2, y2, imagePath, similarityThreshold, intX, intY

' 如果找到了图片
If intX > -1 Then
' 移动鼠标到图片位置
TracePrint "找到委外加工按钮，坐标：" & intX & ", " & intY
MoveTo intX, intY
Delay 500 ' 移动后稍微延迟

' 点击图片位置
LeftClick 1
TracePrint "已点击委外加工按钮"

' 等待指定时间
Delay delayAfterClick

FindAndClickButton = True
Exit Function
End If

' 检查是否超时
currentTime = Timer() * 1000
If (currentTime - startTime) > searchTimeout Then
TracePrint "查找超时，未找到委外加工按钮"
FindAndClickButton = False
Exit Function
End If

' 短暂延迟后继续查找
Delay 500
Loop
End Function

' ============================ 辅助函数 ============================
' 创建图片文件不存在时的提示
Sub CheckImageFiles()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

If Not fso.FileExists(outsourcedProcButtonImage) Then
MsgBox "错误：委外加工按钮图片文件不存在！" & vbCrLf & _
"请先使用截图工具截取委外加工按钮的图片，" & vbCrLf & _
"并保存为 '" & outsourcedProcButtonImage & "' 文件。", 16, "文件不存在"
End If
End Sub

' 在执行主程序前检查图片文件
CheckImageFiles()