alanzhou 发表于 2007-9-13 16:34:13

楼主厉害

高启轩阁 发表于 2007-9-17 16:34:29

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

majesty 发表于 2007-9-18 13:01:23

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

hollyzhao 发表于 2007-9-20 12:43:44

好东西，又学习了

kankan520 发表于 2007-9-25 15:41:51

谢谢

wangyong_3721 发表于 2007-10-7 12:33:06

ding

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

yqx 发表于 2008-4-15 16:29:52

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

yqx 发表于 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 对象。

yqx 发表于 2008-4-15 17:39:48

原帖由 Mix 于 2008-4-1 17:51 发表 http://bbs.51testing.com/images/common/back.gif
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 发表于 2008-5-5 10:20:34

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

vickywang_no1 发表于 2008-5-6 08:49:35

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

错误如图。

vickywang_no1 发表于 2008-5-6 17:54:29

重新安装QTP问题解决了。

smilesun666 发表于 2008-10-9 12:37:54

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

恐怖王子 发表于 2008-10-15 07:39:21

太好啦！:victory:

kakamissyou 发表于 2008-10-16 15:39:19

回复 20# 的帖子

楼主强大！

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

TEST_HUAN 发表于 2008-10-31 17:28:52

原帖由 vickywang_no1 于 2008-5-5 10:20 发表 http://bbs.51testing.com/images/common/back.gif
为什么我运行VBScript脚本时，运行到 Set pDefColl = qtApp.Test.ParameterDefinitions 会报错“对象不支持此属性或方法”？
同样的错误!
怎么解决,不能重装

TEST_HUAN 发表于 2008-11-3 11:20:48

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

f84248860 发表于 2008-11-4 15:51:54

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

zhengyh1980 发表于 2008-12-25 10:09:20

赞1234
页: 1 [2] 3
查看完整版本: QTP的Test参数以及顶级Action参数的使用