51Testing软件测试论坛

标题: 为什么执行到这里QTP就会无响应，只能重新打开 [打印本页]
作者: edisonlzk    时间: 2010-11-23 18:01
标题: 为什么执行到这里QTP就会无响应，只能重新打开
  1. Dim qtApp
  2. Dim qtUpdateRunOptions
  3. Dim qtRunResultsOptions
  4. Dim blsSupportsVerCtrl
  5. Set qtApp = CreateObject("QuickTest.Application")
  6. qtApp.Launch
  7. qtApp.Visible = True

  9. qtApp.TDConnection.Connect "http://192.168.1.39/tdbin", _
  10.               "DEFAULT", "B2B平台", "test", "11123", False '
  11. If qtApp.TDConnection.IsConnected Then
  12.     blsSupportsVerCtrl = qtApp.TDConnection.SupportVersionControl
  13.    [color=Red] qtApp.Open "[QualityCenter] Subject\十月版本\B2BV1.6.9.1\Operate Excel", False [/color]'
  14.     If blsSupportsVerCtrl Then
  15.         qtApp.Test.CheckOut
  16.     End If

  18.     Set qtUpdateRunOptions = CreateObject("QuickTest.UpdateRunOptions")
  19.        
  20.     qtUpdateRunOptions.UpdateActiveScreen = True
  21.     qtUpdateRunOptions.UpdateCheckpoints = False
  22.     qtUpdateRunOptions.UpdateTestObjectDescriptions = True
  23.     Set qtRunResultsOptions = CreateObject("QuickTest.RunResultsOptions")
  24.         qtRunResultsOptions.ResultsLocation = "F:\Results"
  25.     qtApp.Test.UpdateRun qtUpdateRunOptions, qtRunResultsOptions
  26.     qtApp.Test.Description = qtApp.Test.Description & vbNewLine & _
  27.                               "Updated: " & Now '
  28.     qtApp.Test.Save
  29.     If blsSupportsVerCtrl And qtApp.Test.VerCtrlStatus = "CheckedOut" Then
  30.         qtApp.Test.CheckIn '
  31.     End If
  32.     qtApp.TDConnection.Disconnect
  33. Else
  34.     MsgBox "Cannot connect to Quality Center"
  35. End If

  37. qtApp.Quit
  38. Set qtUpdateRunOptions = Nothing
  39. Set qtRunResultsOptions = Nothing
  40. Set qtApp = Nothing
复制代码
qtApp.Open "[QualityCenter] Subject\十月版本\B2BV1.6.9.1\Operate Excel", False '
我想问一下为什么脚本一执行到这就暂停了呢，而且QTP直接无响应，是不是因为中文的原因?
我是连接的TestDirector
作者: TIB    时间: 2010-11-25 16:07
调试一下这句：
If qtApp.TDConnection.IsConnected Then
作者: edisonlzk    时间: 2010-11-26 10:11
回2楼
这个语句是通过的，不然的话就会走ELSE那个分支啦。。
所以问题不在这
作者: TIB    时间: 2010-11-28 13:01
路径不对吧
作者: lyscser    时间: 2010-11-28 13:22
1、如果你是在QTP里面执行的代码，那肯定不行，因为QTP本身在执行，不可能再打开脚本
2、如果只是vbs单独执行，那么路径里面要去掉[QualityCenter]，这东西只是标示一个路径模式，QC或者本地，都已经连入QC，这个就不作为路径的一部分了。
作者: edisonlzk    时间: 2010-11-29 14:55
回复 5# lyscser


喔。应该就是你说的这样了。
我是在QTP里面执行的这段代码，估计问题就在这了吧



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2