使用 VBScript 读取消息框的文本并存储在变量中

【问题标题】：Read the text of a message box and store in variable using VBScript使用 VBScript 读取消息框的文本并存储在变量中
【发布时间】：2015-05-10 07:53:23
【问题描述】：

在我的一个 QTP 过程中，我需要阅读消息中的文本并决定是按确定还是取消。请帮助我实现同样的目标。

我使用了如下的 vbscript (oShell.Appactivate)

Dim ClosingValue
WScript.Sleep 2000 

Set oShell = WScript.CreateObject("WScript.Shell") 
If oShell.AppActivate("Warning Message")=True Then
    While Not oShell.AppActivate ("Warning Message"):Wend
    oShell.SendKeys "{ENTER}" 
    ClosingValue = "Warning Message"
ElseIf oShell.AppActivate ("Error Message")=True Then
    While Not oShell.AppActivate ("Error Message"):Wend
    oShell.SendKeys "{ENTER}" 
    ClosingValue = "Error Message"
End If

提前致谢普拉桑特

【问题讨论】：

标签： windows vbscript error-handling scripting

【解决方案1】：

我认为不可能这样当您执行 AppActivate 时，您的 VB 脚本会停止，直到其他应用程序终止。另外，我不知道任何方法来阅读消息的内容（但这可能只是因为我什么都不知道:)）

也许您可以在这里描述您需要完成的工作。我会尝试以另一种方式传递一些值，并且有很多。打开此消息框的应用程序是什么？

另外，我认为不需要While Not oShell.AppActivate ("Error Message"):Wend，因为上一行已经激活了窗口，如果有任何窗口以这种方式命名

【讨论】：

非常感谢您的回复。我在一个基于 Windows 的应用程序上运行一个自动化脚本，它会抛出一个模式弹出窗口，我需要读取消息框并将其存储在一个变量中，然后存储到一个 excel 电子表格中。
我猜你不能让这个应用程序在任何地方存储值？如果您运行自动化脚本，您不能从弹出窗口之外的其他地方获取此值吗？