vbs如何获取顶层窗口句柄？

Answer 1

在VBScript中，要获取顶层窗口句柄可以使用"GetForegroundWindow"函数和"FindWindow"函数。以下是获取顶层窗口句柄的示例代码：
Set objShell = CreateObject("WScript.Shell")
'获取顶层窗口句柄
hwnd = objShell.AppActivate("窗口标题")
If hwnd = 0 Then
hwnd = FindWindow(vbNullString, "窗口标题")
End If
'使用顶层窗口句柄来执行其他操作
If hwnd <> 0 Then
'...
End If
其中，"AppActivate"函数可以根据窗口标题激活窗口并获取窗口句柄，如果该函数未能成功获取窗口句柄，则可以使用"FindWindow"函数来查找窗口标题对应的窗口句柄。然后，您可以使用获取到的窗口句柄来执行其他操作。

Answer 2

在 VBScript 中，你可以使用 WScript.Shell 对象和 AppActivate 方法来获取顶层窗口的句柄。
以下是获取顶层窗口句柄的 VBScript 代码示例：
Set WshShell = WScript.CreateObject("WScript.Shell")
' 激活指定窗口
WshShell.AppActivate "窗口标题"
' 获取顶层窗口句柄
hwnd = WshShell.AppActivate()
' 输出顶层窗口句柄
WScript.Echo "顶层窗口句柄：" & hwnd
在上面的代码中，我们首先创建了一个 WScript.Shell 对象，并使用 AppActivate 方法激活了指定窗口。然后，我们调用 AppActivate 方法，不传递任何参数，以获取顶层窗口的句柄。最后，我们使用 WScript.Echo 方法输出了获取到的句柄。
需要注意的是，使用 AppActivate 方法获取窗口句柄需要确保窗口已经处于活动状态，否则可能会导致获取到错误的句柄。此外，AppActivate 方法只能获取到顶层窗口的句柄，如果需要获取其他窗口的句柄，需要使用其他方法。

Answer 3

在VBS中获取顶层窗口句柄，可以使用Windows API函数 GetForegroundWindow。
以下是一个示例VBS代码，获取当前顶层窗口的句柄：
Option Explicit
Declare Function GetForegroundWindow Lib "user32" () As Long
Dim hWnd As Long
hWnd = GetForegroundWindow()
MsgBox "当前顶层窗口句柄为：" & hWnd
其中，'GetForegroundWindow()' 函数可以获取当前活动窗口（即顶层窗口）的句柄，返回值类型为 'Long'。