因該軟件系統無法獲取元素,獲取到的元素是最外面的大框,所以考慮進行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