溫馨提示×

溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務(wù)條款》

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

發(fā)布時間：2020-10-20 20:20:12 來源：腳本之家 閱讀：329 作者：易語言源碼教程 欄目：編程語言

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ù)型

窗口信息探測代碼

.版本 2
.程序集 窗口程序集1
.程序集變量 句柄, 整數(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é)果：

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

總結(jié)

以上就是這篇文章的全部內(nèi)容了，希望本文的內(nèi)容對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值，謝謝大家對億速云的支持。如果你想了解更多相關(guān)內(nèi)容請查看下面相關(guān)鏈接

向AI問一下細(xì)節(jié)

免責(zé)聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點不代表本網(wǎng)站立場，如果涉及侵權(quán)請聯(lián)系站長郵箱：is@yisu.com進(jìn)行舉報，并提供相關(guān)證據(jù)，一經(jīng)查實，將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI
助
手