|
给点真正的描述性代码给大家参考
et qtApp = CreateObject("QuickTest.Application")
Set TDConn =qtApp.TDConnection
If QCUtil.IsConnected then
TDconn.disconnect
End If
TDConn.connect "http://10.7.20.200/qcbin/","aaa","aaa","admin","",False
Set tdc =qcutil.QCConnection
Set TSetFact = tdc.TestSetFactory
Set tsTreeMgr = tdc.TestSetTreeManager
nPath = "Root\aaa\bbb\"
Set tsFolder = tsTreeMgr.NodeByPath(nPath)
Set tsList = tsFolder.FindTestSets("TCname")
Set theTestSet = tsList.Item(1)
Set Scheduler = theTestSet.StartExecution("")
Scheduler.TdHostName = "192.168.0.1"
Scheduler.run
Set execStatus = Scheduler.ExecutionStatus
RunFinished = execStatus.Finished
while (Runfinished=False)
execStatus.RefreshExecStatusInfo "all", True
RunFinished = execStatus.Finished
wend |
|