因该软件系统无法获取元素,获取到的元素是最外面的大框,所以考虑进行ocr识别文本点击。
1.因ocr识别出来的是字符串,所以你要找的行号需要转成字符串
2.ocr识别错误后会退出流程,但是我的这个系统可能的行号在下一页,所以必须完成该流程,else中其实应该是点击下一页的按钮。这里用输出代替。
dim bRet = ""
For i=2 To 6
// 因ocr识别出来的是字符串,所以这里转成字符串
dim j = CStr(i)
#icon("@res:ng2ea5gc-mhoi-16uv-rit6-5ng5iq5ffv7j.png")
// 如果识别错误需要继续执行----可选-->错误继续执行-->是
if OCR.HoverEx({"wnd":[{"cls":"QWidget","title":"QQ截图20200410152607.png - WPS图片","app":"photolaunch"}]},{"x":559,"y":540,"width":62,"height":149},false,j,"instr",1,10000,{"bContinueOnError":true,"iDelayAfter":300,"iDelayBefore":200,"bSetForeground":true,"sCursorPosition":"Center","iCursorOffsetX":0,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate"})
// 如果识别错误需要继续执行----可选-->错误继续执行-->是
OCR.HoverEx({"wnd":[{"cls":"QWidget","title":"QQ截图20200410152607.png - WPS图片","app":"photolaunch"}]},{"x":568,"y":549,"width":51,"height":142},false,j,"instr",1,10000,{"bContinueOnError":true,"iDelayAfter":300,"iDelayBefore":200,"bSetForeground":true,"sCursorPosition":"Center","iCursorOffsetX":0,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate"})
TracePrint(i & "行号存在")
Else
TracePrint("不存在行号" & i)
End If
Next