vbs获取窗口句柄

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

Set objShell = CreateObject("Shell.Application")
Set objWindows = objShell.Windows
For Each objWindow in objWindows
    If InStr(1, objWindow.FullName, "notepad.exe", vbTextCompare) > 0 Then
        MsgBox objWindow.hwnd
    End If
Next

以上代码会查找所有打开的窗口，如果窗口的进程是 notepad.exe，则会弹出该窗口的句柄。你可以将 notepad.exe 替换成其他进程的名称来查找不同的窗口。

相关问题

VBS 获取当前目录

要获取当前目录的路径，您可以使用以下VBS脚本：

Set objFSO = CreateObject("Scripting.FileSystemObject")
currentDirectory = objFSO.GetAbsolutePathName(".")

WScript.Echo "当前目录: " & currentDirectory

上述代码使用 `FileSystemObject` 对象的 `GetAbsolutePathName` 方法来获取当前目录的绝对路径，并将其存储在 `currentDirectory` 变量中。然后，使用 `WScript.Echo` 语句将当前目录路径输出到命令行窗口。

您可以将以上代码保存为一个后缀名为.vbs的文件，并在所需目录下运行该脚本，即可获取当前目录的路径信息。

vbs 获取当前时间 csdn

VBScript 获取当前时间的方法可以使用 Now 函数。Now 函数会返回当前系统时间和日期。通过将 Now 函数的返回值赋给一个变量，就可以获取当前时间。下面是一个示例：

Dim currentTime
currentTime = Now

WScript.Echo "当前时间是：" & currentTime

上述代码中，我们首先声明了一个变量 `currentTime`，然后将 Now 函数的返回值赋给这个变量。最后，使用 `WScript.Echo` 输出当前时间。

另外，如果需要以特定格式显示时间，可以使用 FormatDateTime 函数对返回的时间进行格式化。例如，将时间格式化为 "yyyy-mm-dd HH:mm:ss" 格式，可以使用以下代码：

Dim currentTime, formattedTime
currentTime = Now

formattedTime = FormatDateTime(currentTime, vbLongDate)

WScript.Echo "当前时间是：" & formattedTime

通过 `FormatDateTime(currentTime, vbLongDate)` 将 `currentTime` 格式化为长日期格式，然后将其赋给变量 `formattedTime`。再次使用 `WScript.Echo` 输出格式化后的时间。

希望能够帮助到你！