本帖最後由 兄弟工程師05 於 2013-3-22 09:01 編輯

Window外掛獲取視窗座標[code]Call RunApp("notepad.exe")
Delay 1500
//0表示忽略
//下面這句是查詢視窗類名("Notepad")或者標題(0),返回找到的控制代碼Hwnd
Dim Hwnd, str_win
Hwnd = Plugin.Window.Find("Notepad", 0)
//下面這句是得到視窗控制代碼的客戶區大小
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[/code]