是否可以暂停由VBscript启动的应用程序的执行？

我启动统一功能测试应用程序并告诉它运行脚本：

Dim uftApp
Dim WshShell

Set uftApp = CreateObject("QuickTest.Application")

If NOT uftApp.Launched Then
    uftApp.Launch
End if

uftApp.Visible = True
uftApp.WindowState = "Minimized"

uftApp.Open "C:\Users\smithjohn\Desktop\UFT Repository\Project 1\MyUFTScript", False
uftApp.Test.Environment.Value("ForTeam") = "TEAM A"

uftApp.Test.Run

uftApp.Test.Close

uftApp.Quit

Set uftApp = Nothing

这将启动UFT并开始运行MyUFTScript。由于这个脚本可能相当长，需要几个小时才能运行，我希望能够暂停执行。我编写了另一个小vbscript文件，如下所示：

Dim qtApp
Set qtApp = CreateObject("QuickTest.Application")
qtApp.Test.Pause
Set qtApp = Nothing

然后我创建一个vbs文件的快捷方式，并给它一个快捷键“cntl+alt+p”。当我自己启动UFT时，我的暂停脚本工作得很好，但是当使用最上面的vbs文件启动并运行UFT时，我的pause.vbs文件根本不会运行-我无法暂停执行

---

我做错什么了吗

使用GetObject而不是CreateObject。这应该对你有用

Dim qtApp
Set qtApp = GetObject("","QuickTest.Application")
qtApp.Test.Pause
Set qtApp = Nothing