快捷導(dǎo)航

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

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

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

DLL命令代碼

.版本 2
.DLL命令 GetCursorPos, 邏輯型, "user32.dll", "GetCursorPos"
  .參數(shù) 光標(biāo)位置, POINT, 傳址
.DLL命令 WindowFromPoint, 整數(shù)型, "user32.dll", "WindowFromPoint"
  .參數(shù) X軸光標(biāo), 整數(shù)型
  .參數(shù) Y軸光標(biāo), 整數(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軸坐標(biāo)
  .成員 y, 整數(shù)型, , , Y軸坐標(biāo)
.數(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ù)型

窗口信息探測(cè)代碼

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

運(yùn)行結(jié)果：