51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1916|回复: 3
打印 上一主题 下一主题

[原创] 场景恢复问题

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2012-6-28 17:22:25 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Dim qtApp
Dim qtTestRecovery
Set qtApp = CreateObject("QuickTest.Application")
qtApp.Launch
qtApp.Visible = True
......
Set qtTestRecovery = qtApp.Test.Settings.Recovery
qtTestRecovery.Add "c:/aaa/",Left(f1.Name,Len(f1.Name)-4)
......

这段代码,往场景恢复里加qrs文件,如果一个qrs文件里包含多个场景恢复,执行时会报错,只含一个就正常。有没有高手知道?谢谢!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2012-6-29 10:37:04 | 只看该作者
顶一下
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2012-7-11 10:43:21 | 只看该作者
这问题估计是没解了,请哪位大神向HP反映一下
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2012-7-12 16:18:02 | 只看该作者
Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
Dim qtTestRecovery 'As QuickTest.Recovery ' Declare a Recovery object variable
Dim intIndex ' Declare an index variable

' Open QuickTest and prepare objects variables
Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.Launch ' Start QuickTest
qtApp.New ' Open a new test
qtApp.Visible = True ' Make the QuickTest application visible
Set qtTestRecovery = qtApp.Test.Settings.Recovery ' Return the Recovery object for the current test

If qtTestRecovery.Count > 0 Then ' If there are any default scenarios specified for the test
    qtTestRecovery.RemoveAll ' Remove them
End If

' Add recovery scenarios
qtTestRecovery.Add "C:\Recovery.qrs", "ErrMessage", 1 ' Add the "ErrMessage" scenario as the first scenario
qtTestRecovery.Add "C:\Recovery.qrs", "AppCrash", 2 ' Add the "AppCrash" scenario as the second scenario
qtTestRecovery.Add "C:\Recovery.qrs", "ObjDisabled", 3 ' Add the "ObjDisabled" scenario as the third scenario

' Enable all scenarios
For intIndex = 1 To qtTestRecovery.Count ' Iterate the scenarios
    qtTestRecovery.Item(intIndex).Enabled = True ' Enable each Recovery Scenario (Note: the 'Item' property is default and can be omitted)
Next

' Enable the recovery mechanism (with default, on errors, setting)
qtTestRecovery.Enabled = True

'Ensure that the recovery mechanism is set to be activated only after errors
qtTestRecovery.SetActivationMode "OnError"
'OnError is the default, the other option is "OnEveryStep".

Set qtApp = Nothing ' Release the Application object
Set qtTestRecovery = Nothing ' Release the Recovery object
'帮助文档里面add的用法
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-23 10:20 , Processed in 0.066013 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表