QTP关键技术（四） - Test和Top-Level Action间参数传递

最新推荐文章于 2020-10-29 11:55:04 发布

转载最新推荐文章于 2020-10-29 11:55:04 发布 · 1.6k 阅读

·

0

·

标签

#action #parameters #dialog #login #properties

自动化测试专栏收录该内容

21 篇文章

订阅专栏

本文介绍了一个关于QTP（QuickTest Professional）的测试参数和顶级Action参数使用的具体例子。通过设置Action参数和Test参数，并利用VBS脚本来驱动QTP进行自动化测试，展示了如何在QTP中实现参数化测试。

摘自：51Testing，作者songfun，http://bbs.51testing.com/viewthread.php?tid=76226

以下讲述一个关于QTP的Test参数和Top-Level Action参数的使用例子,

有些人不知道这个参数做什么用的，尤其是Test的output不知道怎么取。

其实它是外部对象传给它的（这个外部对象可以是Quality Center，也可以是vbs这样的驱动程序）。

以下给大家讲解一个关于QuickTest的Flight的例子。

首先，在QTP里录制一段脚本，代码如下：

SystemUtil.CloseProcessByName " Flight4a.exe "

SystemUtil.Run Environment.Value( " ProductDir " ) & "/ samples/flightapp/flight4a.exe "

Dialog( " Login " ).WinEdit( " Agent Name: " ).Set Parameter( " InAction1 " )

Dialog( " Login " ).WinEdit( " Password: " ).SetSecure " 46f1f4259cf01348f5a4c630bcee96084f3d1619 "

Dialog( " Login " ).WinButton( " OK " ).Click

Window( " Flight Reservation " ).Close

Parameter( " OutAction1 " ) = true

此文为Hollyzhao于2007年09月在 http://blog.csdn.net/softesting 发布，夜深了，有点累~

然后在QTP中进行参数设置，

1)设置Action的参数

鼠标选中Keyword View中的Action1，

点右键---Action Property，

在Parameters的Tab标签下，分别加入：

输入参数 InAction1 ，类型String；

输出参数 OutAction1，类型 Boolean。此文为Hollyzhao于2007年09月在 http://blog.csdn.net/softesting 发布，夜深了，有点累~

2)设置Test的参数

在QTP的菜单File--->>Settings的Parameters的Tab标签下，分别加入：

输入参数 InTest1 ，类型String；

输出参数 OutTest1，类型 Boolean。

3)将Test和Action间参数进行关联传递

鼠标还是选中Keyword View中的Action1，点右键，

这次点“Action Call Properties”，

在Parameter Values里进行参数化传递设置，

把InTest1的值传递给InAction1，

把OutAction1的值传递给OutTest1。

以上设置完毕后，点“保存”，保存到C:/下，存为Test1好了。此文为Hollyzhao于2007年09月在 http://blog.csdn.net/softesting 发布，夜深了，有点累~

最后，在你的硬盘上新建一个vbs文件，文件内容如下：

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

做完这步之后，保存这个vbs文件，双击执行这个vbs文件，你会发现它自动启动了QTP，而且进行了自动测试，最后还取到了运行成功与否的布尔值。

这就是关于Test、Top-Level Action参数使用的例子，它的参数的整个传递过程是：

外部vbs文件传参数给QuickTest的Test的输入参数InTest1，然后InTest1传参数到InAction1去驱动了Action1的测试，

然后通过这个Action1得出了OutAction1的值，然后通过OutAction1传给OutTest1，最后再传回到vbs文件中。

示例用MsgBox来打出重新传回到vbs文件中的字符串。

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。