您好,登錄后才能下訂單哦!
---------綁定窗口函數(shù)----------------
--輸出值 Hwnd ,Hwnd_0
/綁定思路,取應用窗口界面中比較有特征的部們截圖,pictname.bmp、
/以前臺找圖的方式點擊,這樣會激活成當前窗口,然后取當前活動窗口句柄,以此達到取hwnd數(shù)的目錄,
/利用上節(jié)的函數(shù),取出該窗口的相關(guān)數(shù)據(jù)
/因此此方法綁定窗口,前提是要先打開應用,并要求屏幕上能觀察到特征圖標,以利于點擊激活窗口為當前窗口
/*,點擊的偏移量(偏移X, 偏移Y) 可以自行調(diào)試設定
Function window_band(pictname, 偏移X, 偏移Y)
If Hwnd = "" Then
Dim sRect,sRect0,intX,intY,n
window_band = 0
窗口綁定_intX = 0
窗口綁定_intY = 0
n = 0
For 100
Delay 2000
Rem sig_A
FindPic 0, 0, Plugin.Sys.GetScRX - 1, Plugin.Sys.GetScRY - 1, pic_path & pictname, 0.8, 窗口綁定_intX, 窗口綁定_intY
If 窗口綁定_intX > 0 and 窗口綁定_intY>0 Then
LockMouse
SaveMousePos
MoveTo 窗口綁定_intX + cint(偏移X), 窗口綁定_intY + cint(偏移Y)
Delay 50
leftClick 3
RestoreMousePos
UnlockMouse
Hwnd = Plugin.Window.GetKeyFocusWnd()
Hwnd_0 = Plugin.Window.Foreground()
If hwnd = hwnd_0 Then
Goto sig_A
End If
sRect = Plugin.Window.GetClientRect(Hwnd)
sRect0=split(sRect,"|")
If Clng(sRect0(1)) >= 0 and Hwnd <> "" Then
call window_size(Hwnd,Hwnd_0)
window_band = 1
Exit For
End If
End If
Next
If window_band = 1 Then
Call Lib.窗口.彈出對話框("綁定成功!開始運行!", 3, "", 0)
Delay 1000
End If
Else
call window_size(Hwnd,Hwnd_0)
window_band = 1
End If
End Function
免責聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進行舉報,并提供相關(guān)證據(jù),一經(jīng)查實,將立刻刪除涉嫌侵權(quán)內(nèi)容。