Question

我启动Unified Functional Testing应用程序并告诉它运行脚本：

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文件根本不会运行 - 我无法暂停执行。

我做错了吗？

Answer 1

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

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

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

1 个答案: