Window插件获取窗口坐标

本帖最后由 兄弟工程师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]