51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

楼主: songfun
打印 上一主题 下一主题

[原创] QTP的Test参数以及顶级Action参数的使用

[复制链接]
  • TA的每日心情
    开心
    2016-8-9 16:02
  • 签到天数: 2 天

    连续签到: 1 天

    [LV.1]测试小兵

    21#
    发表于 2007-9-13 16:34:13 | 只看该作者
    楼主厉害
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    22#
    发表于 2007-9-17 16:34:29 | 只看该作者
    楼主先谢谢了!在下载看!sdlkfj2
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    2015-7-10 11:30
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    23#
    发表于 2007-9-18 13:01:23 | 只看该作者
    感谢宋老师的例子,不过有点感觉比较奇怪
    While Indx <= cnt
        Set pDef = pDefColl.Item(Indx)
        Indx = Indx + 1
    Wend
    这一段是干什么的?每次循环都把原来的值冲掉了,不晓得是做什么用的?
    另外qtApp.Test下的ParameterDefinitions方法在帮助里有吗?我找不到sdlkfj8
    希望宋老师指点下sdlkfj3
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    24#
    发表于 2007-9-20 12:43:44 | 只看该作者
    好东西,又学习了
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    25#
    发表于 2007-9-25 15:41:51 | 只看该作者
    谢谢
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    26#
    发表于 2007-10-7 12:33:06 | 只看该作者
    ding
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    27#
    发表于 2008-4-1 17:51:43 | 只看该作者
    Dim qtApp ,pDefColl,pDef ,rtParams,rtParam
    Set qtApp = CreateObject("QuickTest.Application")
    qtApp.Launch
    qtApp.Visible = True
    qtApp.Open "C:\Test1"
    Set pDefColl = qtApp.Test.ParameterDefinitions
    cnt = pDefColl.Count
    Indx = 1
    While Indx <= cnt
        Set pDef = pDefColl.Item(Indx)
        Indx = Indx + 1
    Wend
    Set rtParams = pDefColl.GetParameters()
    Set rtParam = rtParams.Item("InParam1")
    rtParam.Value = "songfun"
    qtApp.Test.Run , True, rtParams
    MsgBox rtParams.Item("OutParam1").Value  
    加黑的不了解什么意思,有人能帮我解释一下么?
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    28#
    发表于 2008-4-15 16:29:52 | 只看该作者
    宋老师的,果然强,学习。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    29#
    发表于 2008-4-15 17:38:41 | 只看该作者
    Dim qtApp ,pDefColl,pDef ,rtParams,rtParam
    Set qtApp = CreateObject("QuickTest.Application")
    qtApp.Launch
    qtApp.Visible = True
    qtApp.Open "C:\Test1"
    Set pDefColl = qtApp.Test.ParameterDefinitions
    cnt = pDefColl.Count
    Indx = 1
    While Indx <= cnt
        Set pDef = pDefColl.Item(Indx)
        Indx = Indx + 1
    Wend
    Set rtParams = pDefColl.GetParameters()
    Set rtParam = rtParams.Item("InParam1")
    rtParam.Value = "songfun"
    qtApp.Test.Run , True, rtParams
    MsgBox rtParams.Item("OutParam1").Value  
    加黑的不了解什么意思,有人能帮我解释一下么?

    参考下面的:
    ParameterDefinitions :ParameterDefinition 对象的集合
    方法:
    GetParameters: 检索包含当前测试或组件运行的输入和输出参数的 Parameters 集合
    Count  :集合中的 ParameterDefinition 对象的数量。  
    Item  :返回指定的 ParameterDefinition 对象。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    30#
    发表于 2008-4-15 17:39:48 | 只看该作者
    原帖由 Mix 于 2008-4-1 17:51 发表
    Dim qtApp ,pDefColl,pDef ,rtParams,rtParam
    Set qtApp = CreateObject("QuickTest.Application")
    qtApp.Launch
    qtApp.Visible = True
    qtApp.Open "C:\Test1"
    Set pDefColl = qtApp.Test.ParameterDefini ...


    参考下面的:
    ParameterDefinitions :ParameterDefinition 对象的集合
    方法:
    GetParameters: 检索包含当前测试或组件运行的输入和输出参数的 Parameters 集合
    Count  :集合中的 ParameterDefinition 对象的数量。  
    Item  :返回指定的 ParameterDefinition 对象。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    31#
    发表于 2008-5-5 10:20:34 | 只看该作者
    为什么我运行VBScript脚本时,运行到 Set pDefColl = qtApp.Test.ParameterDefinitions 会报错“对象不支持此属性或方法”?
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    32#
    发表于 2008-5-6 08:49:35 | 只看该作者
    原帖由 vickywang_no1 于 2008-5-5 10:20 发表
    为什么我运行VBScript脚本时,运行到 Set pDefColl = qtApp.Test.ParameterDefinitions 会报错“对象不支持此属性或方法”?


    错误如图。

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

    x
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    33#
    发表于 2008-5-6 17:54:29 | 只看该作者
    重新安装QTP问题解决了。
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    2015-8-4 09:44
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    34#
    发表于 2008-10-9 12:37:54 | 只看该作者
    是什么原因?我执行时显示17行不支持属性?怎么解决的?
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    35#
    发表于 2008-10-15 07:39:21 | 只看该作者
    太好啦!
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    36#
    发表于 2008-10-16 15:39:19 | 只看该作者

    回复 20# 的帖子

    楼主强大!

    我很随便瞄过这个贴子一眼,当时感觉没什么用,现在自动化用得多了,终于知道这能帮我们做什么了。谢谢!
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    37#
    发表于 2008-10-31 17:28:52 | 只看该作者
    原帖由 vickywang_no1 于 2008-5-5 10:20 发表
    为什么我运行VBScript脚本时,运行到 Set pDefColl = qtApp.Test.ParameterDefinitions 会报错“对象不支持此属性或方法”?

    同样的错误!
    怎么解决,不能重装
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    38#
    发表于 2008-11-3 11:20:48 | 只看该作者
    为什么有的运行出错,请版主解释一下
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    39#
    发表于 2008-11-4 15:51:54 | 只看该作者
    顺便的,把那个外部驱动QTP的vbs设到window schedule task里面去,它就是一个batch job了。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    40#
    发表于 2008-12-25 10:09:20 | 只看该作者
    赞  1234
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-6-5 12:01 , Processed in 0.077318 second(s), 22 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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