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

http://bbs.51testing.com/thread-76226-1-2.html 看了宋老师这个帖子后，写在vbs中的脚本蛮多之前没用过，看的比较吃力，正如宋老师说，目前很少有公司自动化做的非常好。下面是查看帮助后理解所得，可结合宋老师的帖子看。

Qb'[E mX1Z0DimqtApp' As QuickTest.Application ' 声明 Application 对象变量
LA0F1v/\bK0DimpDefColl'As QuickTest.ParameterDefinitions ' 声明 Parameter Definitions 集合51Testing软件测试网^7{8kP*WR PQ
DimpDef' As QuickTest.ParameterDefinition ' 声明 ParameterDefinition 对象
(Jh5RTR0DimrtParams'As QuickTest.Parameters ' 声明 Parameters 集合
8NI!Hl"H8l.yP[/r0DimrtParam' As QuickTest.Parameter ' 声明 Parameter 对象51Testing软件测试网R EB/yv%eiT0ye)~)|
'Dim cnt, Indx As Integer51Testing软件测试网&P0](_7p)s5f;U
L@*R

v!r%{P)xa
xp1]j0SetqtApp = CreateObject("QuickTest.Application")' 创建 Application 对象51Testing软件测试网+Ih#A$yf"X2P
qtApp.Launch' 启动 QuickTest51Testing软件测试网$A1F,rJpeDEi
qtApp.Visible =True' 使 QuickTest 应用程序可见
a}2jR/A mX~051Testing软件测试网}} @5?6K`%ct
qtApp.Open"D:\Tests\MyTest"51Testing软件测试网c"m;^1^zsV5J

:x\W
T(B |'p0' 检索为测试定义的参数集合。
a[Q1AW S0SetpDefColl = qtApp.Test.ParameterDefinitions51Testing软件测试网k j*\DK7xE-t2By
51Testing软件测试网+k9V`:dtS$B
cnt = pDefColl.Count51Testing软件测试网+d%xiF9n\:L0H
Indx = 151Testing软件测试网u+hYfW:q\m
51Testing软件测试网:PoS tN d~)R)b
' 显示集合中每个参数的名称和值，类型，描述等。
\ c q7Mqy7BLk0WhileIndx <= cnt51Testing软件测试网+_@"xb"}fN
    SetpDef = pDefColl.Item(Indx)
a-KY(@1j7`\]D0    MsgBox"Param name: "& pDef.Name &"; Type: "& pDef.Type&"; InOut: "& pDef.InOut &"; Descrīption: "_
CWqn`7J'm2X.alI0        & pDef.Descrīption &"Default value: "& pDef.DefaultValue

_5yEzQ8xbN0    Indx = Indx + 1
6I0g!Oa~v0Wend51Testing软件测试网y a%s5}:D
51Testing软件测试网R1Z0poCNh
SetrtParams = pDefColl.GetParameters()' 检索为测试定义的参数集合。
"A#UX G8gJ/u051Testing软件测试网_.X
x$v9KH
SetrtParam = rtParams.Item("InParam1")' 检索特定的参数。51Testing软件测试网z5Clvo4iw$s
N
rtParam.Value ="Hello"' 更改参数的值。51Testing软件测试网v,{[+T+pyo$X2X
51Testing软件测试网8nt\)k5T+}s3K"p0f
I
qtApp.Test.Run ,True, rtParams' 运行已更改参数的测试。
c4H%mtN*r2t3o051Testing软件测试网X!q'F4T+gt+e
MsgBox rtParams.Item("OutParam1").Value' 测试运行后，显示输出参数的值。