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

'---------------------前臺找圖F-------------------------------------

Function 找圖F(pictname)  //前臺找圖
    FindPic 0,0,Plugin.Sys.GetScRX - 1,Plugin.Sys.GetScRY - 1, pic_path&pictname,0.9,找圖_intX,找圖_intY
    If 找圖_intx >= 0 and 找圖_inty >= 0 Then 
        日志運行內容 = V_當前程序 & "F---------->找到pict:" & pictname
        Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
        找圖F=1
    Else 
        日志運行內容 = V_當前程序 & "F未找到pict:" & pictname
        Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
        找圖F=0
    End If
End Function

Function 找圖點擊F(pictname,偏移X,偏移Y)  //前臺找到圖后點擊
    找圖點擊F=0
    FindPic 0,0,Plugin.Sys.GetScRX - 1,Plugin.Sys.GetScRY - 1, pic_path&pictname,0.9,找圖_intX,找圖_intY
    If 找圖_intX >= 0 Then 
        LockMouse
        SaveMousePos
        MoveTo 找圖_intX + cint(偏移X), 找圖_intY + cint(偏移Y)
        delay 50    
        LeftClick 1
        RestoreMousePos 
        UnlockMouse 
        日志運行內容 =  V_當前程序&"F---------->點擊pict:"&pictname    
        Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
        找圖點擊F=1
    End If
End Function

Function 找多圖F(pictname)
    Dim I,返回值,pict
    找多圖F=0
    pict = split(pictname, "|")
    For i = 0 To ubound(pict)
        FindPic 0,0,Plugin.Sys.GetScRX - 1,Plugin.Sys.GetScRY - 1, pic_path&pict(i),0.9,找多圖_intX,找多圖_intY
        If 找多圖_intx >= 0 Then 
            日志運行內容 =  "找到:第" & cstr(i + 1) & "張pict:" & pict(i)
            Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
            找多圖F=i+1
            Exit For
        End If
        日志運行內容 =  "未找到第" & cstr(i + 1) & "張pict:"
        Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
    Next
End Function

Function 等圖F(pictname)
    日志運行內容 =  "F正在等待pict....:" & pictname
    Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
    等圖 = 0
    等圖_intX = -1
    等圖_intY = -1    
    For 10000
        返回值 = 找圖F(pictname)
        If 返回值 > 0 Then 
            日志運行內容 =  V_當前程序&"B----------->等到pict:" & pictname
            Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
            等圖_intX = 找圖_intX
            等圖_intY = 找圖_intY            
            等圖F=1
            Exit For
        End If
        Delay 500           
    Next
End Function

Function 等圖點擊F(pictname,偏移X,偏移Y)
    日志運行內容 =  "正在等待點擊pict....:" & pictname
    Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
    等圖點擊=0
    For 100000
        FindPic 0,0,Plugin.Sys.GetScRX - 1,Plugin.Sys.GetScRY - 1,pic_path&pictname,0.9,等圖_intX,等圖_intY
        If 等圖_intX >= 0 Then 
            LockMouse
            SaveMousePos
            MoveTo 等圖_intX + cint(偏移X), 等圖_intY + cint(偏移Y)
            Delay 50
            LeftClick 1
            RestoreMousePos 
            UnlockMouse 
            日志運行內容 =  V_當前程序&"F------------->點擊pict:" & pictname 
            Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
            Delay 50
            等圖點擊=1
            Exit For
        End If
        Delay 500   
    Next
End Function

Function 等多圖F(pictname)
    Dim 返回值
    等多圖F=0
    等多圖_intX = -1
    等多圖_intY = -1
    For 10000
        返回值=找多圖F(pictname)
        If 返回值 > 0 Then 
            等多圖F = 返回值
            等多圖_intX = 找多圖_intX
            等多圖_intY = 找多圖_intY
            日志運行內容 =  "等到多pict:" & 返回值 
            Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
            Exit For
        End If
        日志運行內容 =  "遍歷一次，未等到所有pict"
        Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
        Delay 500  
    Next
End Function

//注：Lib.通用.輸出日志(日志運行內容) 此函數在 命令庫 《通用》中 以下同
/*

Sub 輸出日志(日志內容)
    If V_輸出運行日志 = 1 Then 
        Call Plugin.File.WriteFileEx(V_sPath & "腳本日志.txt", Now()& "： "&日志內容)//這邊有加上執行該命令相應的系統時間
    End If
End Sub

*/