51Testing软件测试论坛

标题: 求解：使用vb启动uft脚本，uft启动成功后又自动退出了。 [打印本页]

作者: lt_123 时间: 2016-8-28 15:20
标题: 求解：使用vb启动uft脚本，uft启动成功后又自动退出了。
使用vb启动uft脚本，uft启动成功后又自动退出了。直接运行uft则正常。各位有没有遇到这种情况，代码如下：

Dim qtApp
Dim qtTest
Dim qtResultsOpt
Dim projectPath
projectPath = "F:\GUITest8"
Set qtApp = CreateObject("QuickTest.Application")
qtApp.Launch
qtApp.Visible = True
qtApp.Options.Run.ImageCaptureForTestResults = "OnError"
qtApp.Options.Run.RunMode = "Fast"
qtApp.Open projectPath, True
Set qtTest = qtApp.Test
qtTest.Run
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
qtResultsOpt.ResultsLocation = projectPath & "\QTPReport"
qtTest.Run qtResultsOpt,True
qtTest.Close
qtApp.quit
Set qtResultsOpt = Nothing
Set qtTest = Nothing
Set qtApp = Nothing

作者: seagull1985 时间: 2016-8-29 10:43
qtTest.Run
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
qtResultsOpt.ResultsLocation = projectPath & "\QTPReport"
qtTest.Run qtResultsOpt,True

为什么要qtTest.Run 2次？不太懂楼主的用意

作者: lt_123 时间: 2016-8-30 10:36
抱歉，qtTest.Run这个是我多写了。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)