MessageBox "視窗右下角座標："
get_window_pos

//得到當前最前面的視窗控制代碼-就是把需要的視窗啟用在最前面
Hwnd = Plugin.Window.Foreground() //得到滑鼠指向的視窗控制代碼Hwnd = Plugin.Window.MousePoint() 2種都是可以獲取控制代碼的
MessageBox Hwnd







//獲取視窗位置
Function get_window_pos()
    //我是一個函式,被你呼叫了
    
    //Window外掛獲取視窗座標[code]Call RunApp("notepad.exe")
    Delay 1500
    //0表示忽略
    //下面這句是查詢視窗類名("Notepad")或者標題(0),返回找到的控制代碼Hwnd
    Dim Hwnd, str_win
    //Hwnd = Plugin.Window.Find("QQ.exe", 0)
    Hwnd = Plugin.Window.MousePoint()
    //下面這句是得到視窗控制代碼的客戶區大小
    str_win = Plugin.Window.GetClientRect(Hwnd)
    TracePrint "得到視窗控制代碼的客戶區大小為：" & str_win
    //下面這句用於分割字串,將橫座標和縱座標分成兩個字串
    Dim arr_win, win_a, win_b, win_c, win_d
    arr_win = Split(str_win, "|")
    //下面這句將字串轉換成數值
    win_a = Clng(arr_win(0)) : win_b = Clng(arr_win(1))
    win_c = Clng(arr_win(2)) : win_d = Clng(arr_win(3))
    MessageBox "視窗左上角座標：" & win_a & "," & win_b
    MessageBox "視窗右下角座標：" & win_c & "," & win_d
        
    
End Function
//定義一個函式,可以在指令碼中呼叫這個函式，支援引數和返回值