.版本 2.DLL命令 GetCursorPos, 邏輯型, "user32.dll", "GetCursorPos"  .參數(shù) 光標位置, POINT, 傳址.DLL命令 WindowFromPoint, 整數(shù)型, "user32.dll", "WindowFromPoint"  .參數(shù) X軸光標, 整數(shù)型  .參數(shù) Y軸光標, 整數(shù)型.DLL命令 SendMessage, 整數(shù)型, , "SendMessageA"  .參數(shù) hwnd, 整數(shù)型  .參數(shù) wMsg, 整數(shù)型  .參數(shù) wParam, 整數(shù)型  .參數(shù) lParam, 文本型, 傳址, any.DLL命令 GetClassName, 整數(shù)型, "user32.dll", "GetClassNameA"  .參數(shù) 句柄, 整數(shù)型  .參數(shù) 文本, 文本型  .參數(shù) 文本長度, 整數(shù)型.DLL命令 GetClassLong, 整數(shù)型, , "GetClassLongA"  .參數(shù) 句柄, 整數(shù)型  .參數(shù) 信息, 整數(shù)型.DLL命令 GetWindowLong, 整數(shù)型, "user32.dll", "GetWindowLongA"  .參數(shù) 句柄, 整數(shù)型  .參數(shù) 信息, 整數(shù)型.DLL命令 GetWindowRect, 整數(shù)型, "user32.dll", "GetWindowRect"  .參數(shù) 句柄, 整數(shù)型  .參數(shù) 大小, RECT, 傳址

.版本 2.常量 WM_GETTEXT, "13"

.版本 2.數(shù)據(jù)類型 POINT  .成員 x, 整數(shù)型, , , X軸坐標  .成員 y, 整數(shù)型, , , Y軸坐標.數(shù)據(jù)類型 RECT  .成員 Left, 整數(shù)型  .成員 Top, 整數(shù)型  .成員 Right, 整數(shù)型  .成員 Bottom, 整數(shù)型.數(shù)據(jù)類型 MSG  .成員 hwnd, 整數(shù)型  .成員 message, 整數(shù)型  .成員 wParam, 整數(shù)型  .成員 lParam, 整數(shù)型  .成員 time, 整數(shù)型  .成員 ptx, 整數(shù)型  .成員 pty, 整數(shù)型

.版本 2.程序集 窗口程序集1.程序集變量 句柄, 整數(shù)型.程序集變量 獲取值, 整數(shù)型.程序集變量 獲取文本, 文本型.子程序 _時鐘1_周期事件.局部變量 光標位置, POINT, 靜態(tài).局部變量 窗口大小, RECT, 靜態(tài)GetCursorPos (光標位置)獲取值 ＝ WindowFromPoint (光標位置.x, 光標位置.y).如果真 (獲取值 ≠ 句柄)  句柄 ＝ 獲取值  窗口句柄.內(nèi)容 ＝ “（&H” ＋ 取十六進制文本 (獲取值) ＋ “）” ＋ 到文本 (獲取值)  獲取文本 ＝ 取空白文本 (255)  SendMessage (句柄, #WM_GETTEXT, 256, 獲取文本)  窗口標題.內(nèi)容 ＝ 獲取文本  獲取文本 ＝ 取空白文本 (255)  GetClassName (句柄, 獲取文本, 255)  窗口類名.內(nèi)容 ＝ 獲取文本  獲取值 ＝ GetClassLong (句柄, -32)  窗口類值.內(nèi)容 ＝ “（&H” ＋ 取十六進制文本 (獲取值) ＋ “）” ＋ 到文本 (獲取值)  獲取值 ＝ GetWindowLong (句柄, -16)  窗口風(fēng)格.內(nèi)容 ＝ “（&H” ＋ 取十六進制文本 (獲取值) ＋ “）” ＋ 到文本 (獲取值)  獲取值 ＝ GetWindowLong (句柄, -6)  窗口擴展風(fēng)格.內(nèi)容 ＝ “（&H” ＋ 取十六進制文本 (獲取值) ＋ “）” ＋ 到文本 (獲取值)  獲取值 ＝ GetWindowLong (句柄, -12)  窗口ID.內(nèi)容 ＝ “（&H” ＋ 取十六進制文本 (獲取值) ＋ “）” ＋ 到文本 (獲取值)  GetWindowRect (句柄, 窗口大小)  窗口范圍.內(nèi)容 ＝ 到文本 (窗口大小.Left) ＋ “ ” ＋ 到文本 (窗口大小.Top) ＋ “ ” ＋ 到文本 (窗口大小.Right) ＋ “ ” ＋ 到文本 (窗口大小.Bottom).如果真結(jié)束