在VB中，可以使用FindWindow函數來獲取窗口句柄。FindWindow函數需要傳入窗口的類名和窗口標題作為參數，它會返回找到的窗口的句柄。
以下是一個示例代碼：
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Sub GetWindowHandle()
Dim hwnd As Integer
hwnd = FindWindow(vbNullString, "窗口標題") ' 將"窗口標題"替換為要查找的窗口的標題
If hwnd <> 0 Then
MsgBox "找到窗口，句柄為：" & hwnd
Else
MsgBox "未找到窗口"
End If
End Sub
要獲取窗口句柄，請將"窗口標題"替換為要查找的窗口的標題。如果找到了窗口，FindWindow函數將返回該窗口的句柄；如果沒有找到窗口，它將返回0。在上面的示例中，使用MsgBox函數顯示了找到窗口的句柄或未找到窗口的消息框。
