QTP的Test参数以及顶级Action参数的使用

alanzhou

楼主厉害

高启轩阁

楼主先谢谢了！在下载看！sdlkfj2

majesty

感谢宋老师的例子，不过有点感觉比较奇怪
While Indx <= cnt
    Set pDef = pDefColl.Item(Indx)
    Indx = Indx + 1
Wend
这一段是干什么的？每次循环都把原来的值冲掉了，不晓得是做什么用的？
另外qtApp.Test下的ParameterDefinitions方法在帮助里有吗？我找不到sdlkfj8
希望宋老师指点下sdlkfj3

hollyzhao

好东西，又学习了

kankan520

谢谢

wangyong_3721

ding

Mix

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  
加黑的不了解什么意思，有人能帮我解释一下么？

yqx

宋老师的，果然强，学习。

yqx

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 对象。

yqx

原帖由 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 对象。

vickywang_no1

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

vickywang_no1

原帖由 vickywang_no1 于 2008-5-5 10:20 发表
为什么我运行VBScript脚本时，运行到 Set pDefColl = qtApp.Test.ParameterDefinitions 会报错“对象不支持此属性或方法”？

错误如图。

vickywang_no1

重新安装QTP问题解决了。

smilesun666

是什么原因？我执行时显示17行不支持属性？怎么解决的？

恐怖王子

太好啦！

kakamissyou

楼主强大！

我很随便瞄过这个贴子一眼，当时感觉没什么用，现在自动化用得多了，终于知道这能帮我们做什么了。谢谢！

TEST_HUAN

原帖由 vickywang_no1 于 2008-5-5 10:20 发表
为什么我运行VBScript脚本时，运行到 Set pDefColl = qtApp.Test.ParameterDefinitions 会报错“对象不支持此属性或方法”？

同样的错误!
怎么解决,不能重装

TEST_HUAN

为什么有的运行出错，请版主解释一下

f84248860

顺便的，把那个外部驱动QTP的vbs设到window schedule task里面去，它就是一个batch job了。

zhengyh1980

赞  1234