Q语言我的命令库《通用找图》之后台找图函数源码

原创

鬼谷子2015 2019-10-10 22:32:25 博主文章分类：Q语言 ©著作权

文章标签 Q语言 文章分类 后端开发

©著作权归作者所有：来自51CTO博客作者鬼谷子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 */