51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1609|回复: 2
打印 上一主题 下一主题

[求助] 谁能帮我看一下到底问题在哪?

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2013-9-26 21:16:05 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 mmysloves 于 2013-9-26 21:28 编辑

'启动QTP程序

Dim Qtp
Dim arrTestAddins
Dim blnNcAddins
Set Qtp =  createobject("QuickTest.Application") '创建一个QTP应用程序实例对象
arrTestAddins = Qtp.GetAssociatedAddinsForTest("D:\mercury")
                blnNcAddins =  false
For each testAddins in arrTestAddins
        '如果插件未加载,则加载修改插件的关联设置
        If Qtp.Addins(TestAddins).Status <> "Active" Then
                blnNcAddins = true
                Exit for
                End If
        Next

        ' 如果需要修改插件设置,则退出QTP
        If Qtp.Launched and blnNcAddins  Then
                Qtp.Quit
        End If

        '重新加载插件
        If blnNcAddins Then
                Dim blnActivateOK
                '加载相关插件并且检查是否加载成功
                 blnActivateOK = Qtp.SetActiveAddins(arrTestAddins,errorDescription)
                 If Not         blnActivateOK  Then
                         msgbox         errorDescription
                         WScript.Quit
                 End If
        End If
        If Not Qtp.Launched Then
        Qtp.Launch
        End If
Qtp.Visible = true
Qtp.Open "D:\mercury",False
Dim QtOptions
Set QtOptions = createobject("QuickTest.RunResultsOptions")                '设置运行结果存储到相对的目录上
QtOptions.ResultsLocation = "C:\"
Qtp.Test.Run  QtOptions,True          报错是报这句,改来改去不知道错在哪。
Qtp.Test.Save                  '保存测试脚本
Qtp.Quit                        't退出QTP   
Set QtOptions = Nothing                 '释放QtOptions对象
Set Qtp = Nothing                 '释放应用程序对象

求救大神。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2013-9-27 09:12:20 | 只看该作者
错了的是上面一句,改成具体路径就OK了如:C:\folderName
回复 支持 反对

使用道具 举报

  • TA的每日心情
    无聊
    2018-9-27 10:05
  • 签到天数: 36 天

    连续签到: 1 天

    [LV.5]测试团长

    3#
    发表于 2013-9-27 11:30:40 | 只看该作者
    回复 1# mmysloves


        路径写错了吧
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-10 07:00 , Processed in 0.074673 second(s), 28 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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