QTP多个Action之间传递参数的方法详解

脚本的朋友们都会碰到多个Action之间传递参数的问题，想当年我也是研究了好久才成功的，网上虽然有很多文章都在讲这个问题，但是大多都是雷同的抄来抄去不能解决实际问题，也有可能是我太笨了吧。下面我们来详细讲一下QTP多个Action之间传递参数的方法。

一、假设Action1调用Action2并且Action1传递参数给Action2

1、Action1的代码及设置

'定义两个变量
Dim strMessA:strMessA = "我是"
Dim strMessB:strMessB = "一个传递的参数"

'调用Action2，并传参
RunAction "Action2", oneIteration, strMessA, strMessB

在资源管理中的Action1上点右键-操作属性-参数选项卡，设置输出参数。

QTP多个Action之间传递参数的方法详解

QTP多个Action之间传递参数的方法详解

2、Action2中的代码及设置

Dim strMessA:strMessA = ""
Dim strMessB:strMessB = ""
Dim strMess:strMess = ""

'接参
strMessA = parameter("strMessA")
strMessB = parameter("strMessB")

strMess = strMessA&strMessB

msgbox(strMess)

同样设置参数选项卡，这里设置的是 输入参数。

QTP多个Action之间传递参数的方法

3、运行Action1的结果：

QTP多个Action之间传递参数的方法详解

参数传递成功。strMessA和strMessB是两个传递的变量，在Action1里设置输出参数，在Action2里设置输入参数，并且在Action2里用strMessA = parameter("strMessA")中的parameter方法接参数。

二、假设Action1调用Action2并且Action2传递参数给Action1，也就是说Action1接收Action2返回的参数

1、Action1的代码及设置

'定义三个变量
Dim strMessA:strMessA = "我是"
Dim strMessB:strMessB = "一个传递的参数"
Dim strMessC:strMessC = ""

strMessC = parameter("strMessC")

'调用Action2，并传参
RunAction "Action2", oneIteration, strMessA, strMessB, strMessC

msgbox(strMessC)

QTP多个Action之间传递参数的方法详解

返回的strMessC变成了Action1的输入参数。

2、Action2的代码及设置

Dim strMessA:strMessA = ""
Dim strMessB:strMessB = ""
Dim strMessC:strMessC = "我是一个返回的参数"
Dim strMess:strMess = ""

'接参
strMessA = parameter("strMessA")
strMessB = parameter("strMessB")

'给主调用Action1返回参数
parameter("strMessC") = strMessC

strMess = strMessA&strMessB

msgbox(strMess)

QTP多个Action之间传递参数的方法详解

3、运行Action1的结果

QTP多个Action之间传递参数的方法详解

成功返回了strMessC的变量。

注意：

1、RunAction "Action2", oneIteration, strMessA, strMessB, strMessC，RunAction是调用并运行另外一个Action的意思，strMessA和B是输出的参数，strMessC是返回的参数，都写在一起，返回的参数放在最后，这个过程貌似比较奇怪，呵呵。oneIteration是运行一次的意思。如下图：

QTP调用并运行另一个Action

2、这里演示的两个Action是在同一个Test里面，不同Test里的Action也可以按如上方法调用，是一样的，被调用的Action需要设置为“可重用操作”。
---------------------