我可以暂停执行由VBscript启动的应用程序吗

Question

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

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:UserssmithjohnDesktopUFT RepositoryProject 1MyUFTScript", 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文件根本不会运行——我无法暂停执行。

我做错什么了吗？

Answer 1

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

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