如何查看vbs窗口打开多长时间？

' 创建一个文件用于记录打开时间
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("open_time.txt", True)
objFile.Close

' 记录打开时间
Set objShell = CreateObject("WScript.Shell")
startTime = Now
objShell.Run "notepad.exe" ' 这里可以替换为其他需要打开的程序或脚本
WScript.Sleep 1000 ' 等待1秒，确保窗口已经打开
objShell.AppActivate "notepad" ' 激活窗口
endTime = Now

' 计算打开时长
duration = DateDiff("s", startTime, endTime)

' 显示打开时长
MsgBox "窗口打开时长：" & duration & "秒"

' 将打开时长记录到文件中
Set objFile = objFSO.OpenTextFile("open_time.txt", 8)
objFile.WriteLine "窗口打开时长：" & duration & "秒"
objFile.Close