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

發布時間：2020-07-28 19:26:38 來源：網絡閱讀：325 作者：鬼谷子2015 欄目：開發技術

'---------------------后臺找圖B-------------------------------------

Function 找圖B(pictname)
    //    后臺找圖
    Dim icoord, Xy
    iCoord = Plugin.Bkgnd.FindPic(Hwnd, 0, 0,Lib.通用.getwindow_X(Hwnd) - 1,Lib.通用.getwindow_Y(Hwnd) - 1, bmp_path & pictname, 0, 0.6)
    XY = Split(iCoord,"|")   
    找圖_intx= XY(0)   
    找圖_inty= XY(1)       
    If 找圖_intx >= 0 and 找圖_inty >= 0 Then 
        日志運行內容 = V_當前程序 & "B-------------->找到pict:" & pictname&"("&找圖_intx&","&找圖_inty&")"
        Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
        找圖B=1
    Else 
        日志運行內容 = V_當前程序 & "B未找到pict:" & pictname
        Call Lib.通用.輸出日志(日志運行內容) : TracePrint 日志運行內容
        找圖B=0          
    End If
End Function

Function 找圖點擊B(pictname, 偏移X, 偏移Y)
    Dim 返回值
    找圖點擊B=0
    返回值= 找圖B(pictname)
    If 返回值 > 0 Then 
        Call Plugin.Bkgnd.MoveTo(Hwnd, 找圖_intX + cint(偏移X), 找圖_intY + cint(偏移Y))
        Delay 50
        Call Plugin.Bkgnd.LeftClick(Hwnd, 找圖_intX+cint(偏移X), 找圖_intY+cint(偏移Y))
        日志運行內容 = V_當前程序 & "B---------->點擊pict:" & pictname
        Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容          
        找圖點擊B = 1
    End If
End Function

Function 找多圖B(pictname)
    Dim I,返回值,pict
    找多圖B = 0
    找多圖_intX = -1
    找多圖_intY = -1
    pict = split(pictname, "|")
    For i = 0 To ubound(pict)
        返回值=找圖B (pict(i))
        If 返回值 > 0 Then 
            日志運行內容 =  V_當前程序&"找到:第" & cstr(i + 1) & "張pict:" & pict(i)
            Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
            找多圖_intX = 找圖_intX
            找多圖_intY = 找圖_intY                
            找多圖B=i+1
            Exit For
        End If
    Next
End Function

Function 找多圖點擊B(pictname, 偏移X, 偏移Y)
    Dim 返回值
    找多圖點擊B=0
    返回值= 找多圖B(pictname)
    If 返回值 > 0 Then 
        Call Plugin.Bkgnd.MoveTo(Hwnd, 找多圖_intX + cint(偏移X), 找多圖_intY + cint(偏移Y))
        Delay 50
        Call Plugin.Bkgnd.LeftClick(Hwnd, 找多圖_intX+cint(偏移X), 找多圖_intY+cint(偏移Y))
        日志運行內容 =  V_當前程序&"A------------->點擊pict:"&pictname    
        Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
        找多圖點擊B = 返回值
    End If
End Function

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

Function 等圖點擊B(pictname, 偏移X, 偏移Y)
    Dim 返回值
    日志運行內容 =  V_當前程序&"正在等待點擊pict....:" & pictname
    Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
    等圖點擊B = 0
    等圖_intX = -1
    等圖_intY = -1          
    For 10000
        返回值 = 找圖B(pictname)
        If 返回值 > 0 Then 
            等圖_intX = 找圖_intX 
            等圖_intY = 找圖_intY       
            Call Plugin.Bkgnd.MoveTo(Hwnd, 等圖_intX + cint(偏移X), 等圖_intY + cint(偏移Y))
            Delay 50
            Call Plugin.Bkgnd.LeftClick(Hwnd, 等圖_intX+cint(偏移X), 等圖_intY+cint(偏移Y))
            日志運行內容 =  V_當前程序&"B-------------->點擊pict:" & pictname
            Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
            等圖點擊B=1
            Exit For
        End If
        Delay 500            
    Next
End Function

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

'---------------------后臺找圖BC---帶句柄-------------------------

Function 找圖BC(句柄,pictname,基準起點X,基準起點Y,基準終點X,基準終點Y)
    //    后臺找圖，自帶句柄
    Dim icoord, Xy
    //    TracePrint bmp_path
    iCoord = Plugin.Bkgnd.FindPic(句柄,基準起點X,基準起點Y,基準終點X,基準終點Y, bmp_path & pictname, 0, 0.6)
    XY = Split(iCoord,"|")   
    找圖_intx= XY(0)   
    找圖_inty= XY(1)       
    If 找圖_intx >= 0 and 找圖_inty >= 0 Then 
        日志運行內容 = V_當前程序 & "C-------------->找到pict:" & pictname&"("&找圖_intx&","&找圖_inty&")"
        Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
        找圖BC=1
    Else 
        日志運行內容 = V_當前程序 & "C未找到pict:" & pictname
        Call Lib.通用.輸出日志(日志運行內容) : TracePrint 日志運行內容
        找圖BC=0          
    End If
End Function

Function 找圖點擊BC(句柄,pictname,基準起點X,基準起點Y,基準終點X,基準終點Y, 偏移X, 偏移Y)
    Dim 返回值
    找圖點擊BC=0
    返回值= 找圖BC(句柄,pictname,基準起點X,基準起點Y,基準終點X,基準終點Y)
    If 返回值 > 0 Then 
        Call Plugin.Bkgnd.MoveTo(句柄, 找圖_intX + cint(偏移X), 找圖_intY + cint(偏移Y))
        Delay 50
        Call Plugin.Bkgnd.LeftClick(句柄, 找圖_intX+cint(偏移X), 找圖_intY+cint(偏移Y))
        日志運行內容 = V_當前程序 & "C---------->點擊pict:" & pictname
        Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容          
        找圖點擊BC = 1
    End If
End Function

Function 找多圖BC(句柄,pictname,基準起點X,基準起點Y,基準終點X,基準終點Y)
    Dim I,返回值,pict
    找多圖BC = 0
    找多圖_intX = -1
    找多圖_intY = -1
    pict = split(pictname, "|")
    For i = 0 To ubound(pict)
        返回值=找圖BC(句柄,pict(i),基準起點X,基準起點Y,基準終點X,基準終點Y)
        If 返回值 > 0 Then 
            日志運行內容 =  V_當前程序&"C找到:第" & cstr(i + 1) & "張pict:" & pict(i)
            Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
            找多圖_intX = 找圖_intX
            找多圖_intY = 找圖_intY                
            找多圖BC=i+1
            Exit For
        End If
    Next
End Function

Function 找多圖點擊BC(句柄,pictname,基準起點X,基準起點Y,基準終點X,基準終點Y, 偏移X, 偏移Y)
    Dim 返回值
    找多圖點擊BC=0
    返回值= 找多圖BC(句柄,pictname,基準起點X,基準起點Y,基準終點X,基準終點Y)
    If 返回值 > 0 Then 
        //                  Call Lib.窗口.彈出對話框(偏移X&"......", 1, "", 0)
        Call Plugin.Bkgnd.MoveTo(句柄, 找多圖_intX + cint(偏移X), 找多圖_intY + cint(偏移Y))
        Delay 50
        Call Plugin.Bkgnd.LeftClick(句柄, 找多圖_intX + cint(偏移X), 找多圖_intY + cint(偏移Y))
        日志運行內容 =  V_當前程序&"A------------->點擊pict:"&pictname    
        Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
        找多圖點擊BC = 返回值
    End If
End Function

Function 等圖BC(句柄,pictname,基準起點X,基準起點Y,基準終點X,基準終點Y)
    Dim 返回值    
    日志運行內容 =  V_當前程序&"C正在等待pict....:" & pictname
    Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
    等圖BC=0
    等圖_intX = -1
    等圖_intY = -1
    For 10000
        返回值 = 找圖BC(句柄,pictname,基準起點X,基準起點Y,基準終點X,基準終點Y)
        If 返回值 > 0 Then 
            日志運行內容 =  V_當前程序&"C------------->等到pict:" & pictname
            Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
            等圖_intX = 找圖_intX
            等圖_intY = 找圖_intY            
            等圖BC=1
            Exit For
        End If
        Delay 500          
    Next
End Function

Function 等多圖BC(句柄,pictname,基準起點X,基準起點Y,基準終點X,基準終點Y)
    Dim 返回值
    等多圖BC=0
    等多圖_intX = -1
    等多圖_intY = -1
    For 10000
        返回值=找多圖BC(句柄,pictname,基準起點X,基準起點Y,基準終點X,基準終點Y)
        If 返回值 > 0 Then 
            等多圖BC = 返回值
            等多圖_intX = 找多圖_intX
            等多圖_intY = 找多圖_intY
            Exit For
        End If
        日志運行內容 =  V_當前程序&"遍歷一次，未等到所有pict"
        Call Lib.通用.輸出日志(日志運行內容):TracePrint 日志運行內容
        Delay 500   
    Next
End Function

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

//以下為全局變量：
/
Hwnd:句柄
bmp_path:圖文件目錄
找圖_intx
找圖_inty
等圖_intX
等圖_intY
找多圖_intX
找多圖_intY
等多圖_intX
等多圖_intY
/

向AI問一下細節

中文字幕av专区_日韩电影在线播放_精品国产精品久久一区免费式_av在线免费观看网站

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

猜你喜歡

中文字幕av专区_日韩电影在线播放_精品国产精品久久一区免费式_av在线免费观看网站

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

猜你喜歡

最新資訊

相關推薦

相關標簽

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