Q語言 我的命令庫《通用找圖》之后臺找字函數源碼

'=====================找字命令===============================

Function 找字B(字符串,字號,點X1, 點Y1, 點X2, 點Y2)
    //    后臺找圖
    Dim iZB, Xy
    XY = Plugin.Bkgnd.FindWordShape(Hwnd,clng(點X1), clng(點Y1), clng(點X2), clng(點Y2), 字符串, "", Cint(字號), 0,0.9)
    iZB = InStr(XY, "|")
    找字_intx=CLng(Left(XY, iZB - 1))
    找字_inty=CLng(Right(XY, Len(XY) - iZB)) 
    If 找字_intx >= 0 and 找字_inty >= 0 Then 
        日志運行內容 = V_當前程序 & "B-------------->找到文字:" & 字符串&"("&找字_intx&","&找字_inty&")"
        Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
        找字B=1
    Else 
        日志運行內容 = V_當前程序 & "B未找到文字:" & 字符串
        Call Lib.通用.輸出日志(日志運行內容) : TracePrint 日志運行內容
        找字B=0          
    End If
End Function

Function 找字點擊B(字符串, 字號, 點X1, 點Y1, 點X2, 點Y2)
    Dim 返回值
    找字點擊B=0
    返回值= 找字B(字符串,字號,點X1, 點Y1, 點X2, 點Y2)
    If 返回值 > 0 Then 
        Call Plugin.Bkgnd.MoveTo(Hwnd, 找字_intx + 5, 找字_inty +5)
        Delay 50
        Call Plugin.Bkgnd.LeftClick(Hwnd, 找字_intx+5, 找字_inty+5)
        //        Delay 50
        日志運行內容 = V_當前程序 & "B---------->點擊文字:" & 字符串
        Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容          
        找字點擊B = 1
    End If
End Function

Function 找多字B(字符串集,字號,點X1, 點Y1, 點X2, 點Y2)
    Dim I,返回值,字符串
    找多字B = 0
    找多字_intX = -1
    找多字_intY = -1
    字符串 = split(字符串集, "|")
    For i = 0 To ubound(字符串)
        返回值=找字B (字符串(i),字號,點X1, 點Y1, 點X2, 點Y2)
        If 返回值 > 0 Then 
            日志運行內容 =  V_當前程序&"找到:第" & cstr(i + 1) & "個字符:" & 字符串(i)
            Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
            找多字_intX = 找字_intX
            找多字_intY = 找字_intY                
            找多字B=i+1
            Exit For
        End If
    Next
End Function

'----------------------以下為帶句柄的后臺找字-----------------------

Function 找字BC(句柄,字符串,字號,點X1, 點Y1, 點X2, 點Y2)
    //    后臺找圖
    Dim iZB, Xy
    XY = Plugin.Bkgnd.FindWordShape(句柄,clng(點X1), clng(點Y1), clng(點X2), clng(點Y2), 字符串, "", Cint(字號), 0,0.9)
    iZB = InStr(XY, "|")
    找字_intx=CLng(Left(XY, iZB - 1))
    找字_inty=CLng(Right(XY, Len(XY) - iZB)) 
    If 找字_intx >= 0 and 找字_inty >=0 Then 
        日志運行內容 = V_當前程序 & "C-------------->找到文字:" & 字符串&"("&找字_intx&","&找字_inty&")"
        Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
        找字BC=1
    Else 
        日志運行內容 = V_當前程序 & "B未找到文字:" & 字符串
        Call Lib.通用.輸出日志(日志運行內容) : TracePrint 日志運行內容
        找字BC=0          
    End If
End Function

Function 找字點擊BC(句柄,字符串,字號,點X1, 點Y1, 點X2, 點Y2)
    Dim 返回值
    找字點擊BC=0
    返回值= 找字C(句柄,字符串,字號,點X1, 點Y1, 點X2, 點Y2)
    If 返回值 > 0 Then 
        Call Plugin.Bkgnd.MoveTo(Hwnd, 找字_intx + 5, 找字_inty +5)
        Delay 50
        Call Plugin.Bkgnd.LeftClick(Hwnd, 找字_intx+5, 找字_inty+5)
        //        Delay 50
        日志運行內容 = V_當前程序 & "C---------->點擊文字:" & 字符串
        Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容          
        找字點擊BC = 1
    End If
End Function

Function 找多字BC(句柄,字符串集,字號,點X1, 點Y1, 點X2, 點Y2)
    Dim I,返回值,字符串
    找多字BC = 0
    找多字_intX = -1
    找多字_intY = -1
    字符串 = split(字符串集, "|")
    For i = 0 To ubound(字符串)
        返回值=找字BC(句柄,字符串(i),字號,點X1, 點Y1, 點X2, 點Y2)
        If 返回值 > 0 Then 
            日志運行內容 =  V_當前程序&"找到:第" & cstr(i + 1) & "個字符:" & 字符串(i)
            Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
            找多字_intX = 找字_intX
            找多字_intY = 找字_intY                
            找多字BC=i+1
            Exit For
        End If
    Next
End Function

'---------------------------------------------