Visual Basic 借助API找窗口和子窗口

最新推荐文章于 2023-04-12 11:38:10 发布

Dark-Source

最新推荐文章于 2023-04-12 11:38:10 发布

阅读量1.2k

点赞数

分类专栏： Visual Basic 文章标签： visual basic api windows

Visual Basic 专栏收录该内容

18 篇文章 0 订阅

订阅专栏

FindWindow(
  lpClassName,        {窗口的类名}
  lpWindowName: PChar {窗口的标题}
): HWND;              {返回窗口的句柄; 失败返回 0}

//FindWindowEx 比 FindWindow 多出两个句柄参数:
FindWindowEx(
  Parent: HWND;     {要查找子窗口的父窗口句柄}
  Child: HWND;      {子窗口句柄}
  ClassName: PChar; {}
  WindowName: PChar {}
): HWND;
{
如果 Parent 是 0, 则函数以桌面窗口为父窗口, 查找桌面窗口的所有子窗口;
如果  是 HWND_MESSAGE, 函数仅查找所有消息窗口;
子窗口必须是 Parent 窗口的直接子窗口;
如果 Child 是 0, 查找从 Parent 的第一个子窗口开始;
如果 Parent 和 Child 同时是 0, 则函数查找所有的顶层窗口及消息窗口.
}

下面代码查找到画图(windows自带画图工具)的句柄后查找它的画纸的句柄(类名为Afx:1000000:8的子窗口)。

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Sub Command1_Click()
    Dim huatu, huazi
    Dim i As Integer
    huatu = FindWindowEx(0, 0, vbNullString, "未命名 - 画图")
    Do Until huatu = 0
        huazi = FindWindowEx(huatu, 0, "AfxFrameOrView42u", vbNullString)
        huazi = FindWindowEx(huazi, 0, "Afx:1000000:8", vbNullString)
        i = i + 1
        Print "找到第" & i & "个画纸，它的句柄是：" & huazi
        huatu = FindWindowEx(0, huatu, vbNullString, "未命名 - 画图")
    Loop
End Sub