Могу ли я приостановить выполнение приложения, которое было запущено 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:\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