vbscript：获取应用程序窗口文本答案

【问题标题】：vbscript : getting application window textvbscript：获取应用程序窗口文本
【发布时间】：2013-05-11 22:38:40
【问题描述】：

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

【问题讨论】：

如果你输入SendKeys "{TAB}"，它会带你到里面的文本字段吗？我曾经编写了一个键序列来进行数据库备份。该窗口的屏幕截图会很有帮助。
我们需要一种方法来知道窗口中的确切文本是什么。例如，在遍历窗口时，标题可能相似，但文本可以帮助您识别您正在寻找的窗口。谢谢
它不是一个安装程序，它是一个自动化测试，在一个非常严格和不断变化的环境中处理弹出窗口（什么都不能安装）。

标签： vbscript wmi

【解决方案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

【讨论】：