アプリケーションインタフェース機能機能の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