vb.net 获取窗口句柄

你可以使用以下代码获取窗口句柄：

' 在 Form_Load 事件中调用
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 获取窗口句柄
    Dim hwnd As IntPtr = FindWindow(Nothing, "窗口标题")

    ' 如果找到了窗口则显示句柄
    If hwnd <> IntPtr.Zero Then
        MessageBox.Show(hwnd.ToString())
    End If
End Sub

' 导入 Windows API 函数
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr

其中，lpClassName 参数为窗口类名，可以传入 Nothing 表示忽略该参数；lpWindowName 参数为窗口标题。如果找到了窗口，则返回该窗口的句柄（IntPtr 类型）。如果没找到窗口，则返回 IntPtr.Zero。

相关问题

vb.Net 获取窗口句柄

在 VB.NET 中获取窗口句柄可以使用 Windows API 函数 FindWindow 或 FindWindowEx。

FindWindow 函数用于在当前进程中查找具有指定类名和窗口名的顶层窗口。示例代码如下：

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr

Dim hWnd As IntPtr = FindWindow("窗口类名", "窗口标题")

FindWindowEx 函数用于在当前进程中查找具有指定类名和窗口名的子窗口。示例代码如下：

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As IntPtr, ByVal hWndChildAfter As IntPtr, ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr

Dim hWnd As IntPtr = FindWindowEx(parentHwnd, IntPtr.Zero, "子窗口类名", "子窗口标题")

其中，parentHwnd 是父窗口的句柄，可以通过 FindWindow 函数获取。如果要在所有进程中查找窗口句柄，可以使用 EnumWindows 函数枚举所有顶层窗口，然后使用 GetClassName 和 GetWindowText 函数判断窗口是否符合要求。

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 对象来存储。