Vbscript 如何等待窗口关闭，然后在QTP中执行任何操作？

我想在窗口关闭后执行一个操作，即假设弹出一个窗口或任何对话框，现在我想让我的代码等待，直到这个特定的对话框关闭，然后我想继续编写代码

意味着我要等待窗口打开，而不使用硬编码的“wait（）”函数

---

VBScript或QTP中是否有任何方法可以满足我的需要

您可以在窗口上尝试“WaitProperty”方法，以确定visible属性何时变为false，但一旦窗口不再可用，可能会引发错误。否则，您可以一直循环，直到它不再存在

While Window("My Window").Exist(0)
    Wait 0, 500 ' Pause briefly before looking again
Wend

---

状态

属性。提供有关使用

Exec（）

方法运行的脚本的状态信息。

Status

属性从枚举类型返回一个值：

WshRunning

（=0）作业仍在运行

WshFinished

（=1）作业已完成。您能否举例说明？我的意思是，假设在java窗口上打开一个对话框，我想等待对话框关闭。我如何在该对话框的层次结构上的QTP中执行它？例如：对话框（“xy”）添加到QTP的或中。现在我想等到这个对话框存在。那我怎么做呢？在纯vbscript中：`Dim WshShell:Set WshShell=CreateObject（“WScript.Shell”）：Dim oExec:Set oExec=WshShell.Exec（“calc”）：do While oExec.Status=0:WScript.Sleep 100:Loop:WScript.Echo oExec.Status`