vb.Net 获取所有窗口句柄

在 VB.NET 中获取所有窗口句柄可以使用 Windows API 函数 EnumWindows 和 GetWindowText、GetClassName。

EnumWindows 函数用于枚举所有顶层窗口，示例代码如下：

Private Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As EnumWindowsCallback, ByVal lParam As IntPtr) As Boolean

Private Delegate Function EnumWindowsCallback(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean

Private Function EnumWindowsProc(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean
    ' 处理枚举到的窗口句柄
    Return True ' 返回 True 继续枚举，返回 False 停止枚举
End Function

EnumWindows(AddressOf EnumWindowsProc, IntPtr.Zero)

GetWindowText 函数用于获取窗口标题，示例代码如下：

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As IntPtr, ByVal lpString As StringBuilder, ByVal nMaxCount As Integer) As Integer

Dim title As StringBuilder = New StringBuilder(256)
GetWindowText(hWnd, title, 256)

GetClassName 函数用于获取窗口类名，示例代码如下：

Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As IntPtr, ByVal lpClassName As StringBuilder, ByVal nMaxCount As Integer) As Integer

Dim className As StringBuilder = New StringBuilder(256)
GetClassName(hWnd, className, 256)

注意：在使用 EnumWindows 函数枚举窗口时，需要在回调函数中处理枚举到的窗口句柄，可以通过 GetWindowText 和 GetClassName 函数获取窗口标题和类名。同时，需要注意窗口标题和类名可能包含中文字符，需要使用 StringBuilder 对象来存储。