版主songfun的一段代码

TEST_HUAN

版主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

找遍帮助，也找不到ParameterDefinitions 这些方法的介绍

lantianwei

你的QTP是何版本的阿？

TEST_HUAN

qtp 9.0

没有蛀牙

ParameterDefinitions是Test对象的一个属性
在 Quick Test Advanced References里可以找到
代码没有问题的，我执行过
你可以到Help里找个原版，看看问题出在哪里

TEST_HUAN

在帮助里怎么找不到Quick Test Advanced References
你什么版本？

没有蛀牙

9.2

namelcx

编辑之

TEST_HUAN

难道9.0不支持？

TEST_HUAN

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

么意思？

namelcx

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

么意思？

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

hsjzfling

帮助中全都有的，songfun老大这段代码也是从帮助中copy的。

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

TEST_HUAN

楼上的，search了，没有啊