Q語言　我的命令庫《通用》窗口操作之綁定應用界面功能函數

－－－－－－－－－綁定窗口函數－－－－－－－－－－－－－－－－

－－輸出值 Hwnd ,Hwnd_0
/綁定思路，取應用窗口界面中比較有特征的部們截圖，pictname.bmp、
/以前臺找圖的方式點擊，這樣會激活成當前窗口，然后取當前活動窗口句柄，以此達到取hwnd數的目錄，
/利用上節的函數，取出該窗口的相關數據
/因此此方法綁定窗口，前提是要先打開應用，并要求屏幕上能觀察到特征圖標，以利于點擊激活窗口為當前窗口
/*,點擊的偏移量（偏移X, 偏移Y） 可以自行調試設定

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