|
- Dim qtApp
- Dim qtUpdateRunOptions
- Dim qtRunResultsOptions
- Dim blsSupportsVerCtrl
- Set qtApp = CreateObject("QuickTest.Application")
- qtApp.Launch
- qtApp.Visible = True
- qtApp.TDConnection.Connect "http://192.168.1.39/tdbin", _
- "DEFAULT", "B2B平台", "test", "11123", False '
- If qtApp.TDConnection.IsConnected Then
- blsSupportsVerCtrl = qtApp.TDConnection.SupportVersionControl
- [color=Red] qtApp.Open "[QualityCenter] Subject\十月版本\B2BV1.6.9.1\Operate Excel", False [/color]'
- If blsSupportsVerCtrl Then
- qtApp.Test.CheckOut
- End If
- Set qtUpdateRunOptions = CreateObject("QuickTest.UpdateRunOptions")
-
- qtUpdateRunOptions.UpdateActiveScreen = True
- qtUpdateRunOptions.UpdateCheckpoints = False
- qtUpdateRunOptions.UpdateTestObjectDescriptions = True
- Set qtRunResultsOptions = CreateObject("QuickTest.RunResultsOptions")
- qtRunResultsOptions.ResultsLocation = "F:\Results"
- qtApp.Test.UpdateRun qtUpdateRunOptions, qtRunResultsOptions
- qtApp.Test.Description = qtApp.Test.Description & vbNewLine & _
- "Updated: " & Now '
- qtApp.Test.Save
- If blsSupportsVerCtrl And qtApp.Test.VerCtrlStatus = "CheckedOut" Then
- qtApp.Test.CheckIn '
- End If
- qtApp.TDConnection.Disconnect
- Else
- MsgBox "Cannot connect to Quality Center"
- End If
- qtApp.Quit
- Set qtUpdateRunOptions = Nothing
- Set qtRunResultsOptions = Nothing
- Set qtApp = Nothing
复制代码 qtApp.Open "[QualityCenter] Subject\十月版本\B2BV1.6.9.1\Operate Excel", False '
我想问一下为什么脚本一执行到这就暂停了呢,而且QTP直接无响应,是不是因为中文的原因?
我是连接的TestDirector |
|