VB脚本: getting application window text

Question

我正在使用 vbs 自动安装应用程序。我有一个代码可以启动安装 exe 文件并进一步发送击键。但现在我需要获取安装程序窗口的文本。我可以获取安装程序窗口的标题(使用 objShell.AppActivate )，但没有找到获取该窗口文本的方法。有没有办法在vbs中捕获这个？

Answer 1

另一种方法是枚举进程命令行而不是窗口:

Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process")

For Each objProcess in colProcesses
  If InStr(objProcess.CommandLine,"notepad")>0 Then
    WshShell.AppActivate objProcess.ProcessId  
 End If
Next