Wie kann ich den Code des in QC gespeicherten Testfalls lesen?

Question

Ich möchte den Code lesen, der innerhalb des Testfalls geschrieben ist, der in QTP gemacht wird und der in QC gehalten wird. Also meine Anforderung ist:

1. Connect QC.
2. Erreichen Sie den jeweiligen Testfall, indem Sie seinen Pfad in QC angeben.
3. Versuchen Sie, den in Testfall geschriebenen Code zu lesen, während wir eine einfache Textdatei mit Dateisystemobjekt in ähnlicher Weise lesen.

Ich weiß, wie Code in Testfall zu lesen, siehe unten Code

filename = "C:\YourUFTTest\Action1\script.mts" 

Set fso = CreateObject("Scripting.FileSystemObject") 
Set f = fso.OpenTextFile(filename) 

Do Until f.AtEndOfStream 
    MsgBox f.ReadLine 
Loop 

f.Close 

Aber die Forderung, jetzt ist das anders.

Ich muss den Code des Testfalls lesen, der in QC gehalten wird.

Answer 1

Hoffnung unten Code wird Ihnen helfen.

Set qtApp = CreateObject("QuickTest.Application") 
qtApp.TDConnection.Connect "http://xyz/qcbin/", "domain", "project", "used", "Password", False 

If qtApp.TDConnection.IsConnected then 
    msgbox "connected" 
    qtApp.Open "[QualityCenter] Subject\..\..\Testname",True 
    qtApp.Test.SaveAs "C:\path\Test1" 
Else  
    msgbox "not connected" 
End if 
Set qtApp = Nothing 

Nachdem das Skript herunterzuladen, lesen Sie das Skriptobjekt mit FSO wie oben

geschrieben