Kann ich die Ausführung einer Anwendung anhalten, die von einem VBscript gestartet wurde?

Question

Ich starte den Unified Functional Testing Anwendung und melden Sie es ein Skript auszuführen:

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 

Das UFT startet und beginnt MyUFTScript zu laufen. Da dieses Skript sehr lang sein kann und Stunden dauern kann, möchte ich in der Lage sein, die Ausführung anzuhalten. Ich habe noch eine kleine VBScript-Datei geschrieben, die wie folgt aussieht:

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

ich dann eine Verknüpfung zu dieser vbs-Datei erstellen und eine Verknüpfung Schlüssel geben „cntl + alt + p“. Wenn ich UFT selbst lache, funktioniert mein Pausenskript perfekt, aber wenn die oberste VBS-Datei zum Starten und Ausführen von UFT verwendet wird, wird meine pause.vbs-Datei überhaupt nicht ausgeführt - ich kann die Ausführung nicht pausieren.

Mache ich etwas falsch?

Answer 1

Verwenden Sie GetObject anstelle von CreateObject. Dies sollte für Sie arbeiten.

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