枚举窗口内的子窗口句柄、类名

最新推荐文章于 2026-04-24 02:20:05 发布

原创最新推荐文章于 2026-04-24 02:20:05 发布 · 2.8k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

源码

当前文章被收录于：

源码

7 篇文章 0 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

博客展示了一段代码，通过Private Declare声明了GetWindow和GetClassName两个API函数，利用这些函数获取窗口句柄和类名，并将信息添加到列表中。代码中还定义了常量，在Form_Load事件中实现了循环查找子窗口信息的功能。

'Code By 魑魅魍魉
'mailto:DemonStudio@hotmail.com

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2

Private Sub Form_Load()
Dim Hwd, Cla As Long
Dim Lon As String
Lon = Space(255)
Hwd = GetWindow(Me.hwnd, GW_CHILD) '取得第1个子窗口句柄
Me.Caption = Hwd
Do While Hwd <> 0 ' 如果句柄<>0循环
Cla = GetClassName(Hwd, Lon, 255) '取得这个子窗口的类名
List1.AddItem Hwd & " " & Trim$(Lon) '将句柄和类名+到LIST1
Hwd = GetWindow(Hwd, GW_HWNDNEXT) '查找下一个
Loop
End Sub