溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
'---------------------后臺找圖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
/
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
