51Testing软件测试论坛

标题: 版主songfun的一段代码 [打印本页]

作者: TEST_HUAN 时间: 2008-11-3 17:44
标题: 版主songfun的一段代码
版主songfun的一段代码，如下：

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

为什么我运行VBScript脚本时，运行到 Set pDefColl = qtApp.Test.ParameterDefinitions 会报错“对象不支持此属性或方法”？
什么原因啊？

作者: TEST_HUAN 时间: 2008-11-3 17:59
找遍帮助，也找不到ParameterDefinitions 这些方法的介绍

作者: lantianwei 时间: 2008-11-3 18:41
你的QTP是何版本的阿？

作者: TEST_HUAN 时间: 2008-11-4 09:25
qtp 9.0

作者: 没有蛀牙 时间: 2008-11-4 17:18
ParameterDefinitions是Test对象的一个属性
在 Quick Test Advanced References里可以找到
代码没有问题的，我执行过
你可以到Help里找个原版，看看问题出在哪里

作者: TEST_HUAN 时间: 2008-11-5 09:18
在帮助里怎么找不到Quick Test Advanced References
你什么版本？

作者: 没有蛀牙 时间: 2008-11-5 11:06
9.2

作者: namelcx 时间: 2008-11-5 11:30
编辑之

作者: TEST_HUAN 时间: 2008-11-5 12:11
难道9.0不支持？

作者: TEST_HUAN 时间: 2008-11-5 12:11

原帖由 namelcx 于 2008-11-5 11:30 发表
编辑之

么意思？

作者: namelcx 时间: 2008-11-20 14:16

原帖由 TEST_HUAN 于 2008-11-5 12:11 发表

么意思？

我也想问 Quick Test Advanced References，发现有人已经问过了

作者: hsjzfling 时间: 2008-11-20 14:37
帮助中全都有的，songfun老大这段代码也是从帮助中copy的。

只需要在帮助中search(注意是search标签)中输入ParameterDefinitions 就能找到相关信息了。。。

作者: TEST_HUAN 时间: 2008-11-25 12:55
楼上的，search了，没有啊

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