易語言制作窗口信息探測工具的代碼

更新時間：2018年11月21日 10:06:00 作者：易語言源碼教程

今天小編就為大家分享一篇關于易語言制作窗口信息探測工具的代碼，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧

DLL命令代碼

.版本 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"

自定義數(shù)據(jù)類型

.版本 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)
  窗口風格.內(nèi)容 ＝ “（&H” ＋ 取十六進制文本 (獲取值) ＋ “）” ＋ 到文本 (獲取值)
  獲取值 ＝ GetWindowLong (句柄, -6)
  窗口擴展風格.內(nèi)容 ＝ “（&H” ＋ 取十六進制文本 (獲取值) ＋ “）” ＋ 到文本 (獲取值)
  獲取值 ＝ GetWindowLong (句柄, -12)
  窗口ID.內(nèi)容 ＝ “（&H” ＋ 取十六進制文本 (獲取值) ＋ “）” ＋ 到文本 (獲取值)
  GetWindowRect (句柄, 窗口大小)
  窗口范圍.內(nèi)容 ＝ 到文本 (窗口大小.Left) ＋ “ ” ＋ 到文本 (窗口大小.Top) ＋ “ ” ＋ 到文本 (窗口大小.Right) ＋ “ ” ＋ 到文本 (窗口大小.Bottom)
.如果真結束

運行結果：