本例使用簡單的兩個測試指令碼說明引數的傳遞以及Action的呼叫,該例含2個Action, Action2呼叫Action1，在呼叫過程中傳遞引數給Action1做處理，同時獲得相應的返回值.

注意Action1是否使用ExitAction方法的區別.

Action1的指令碼：

Option Explicit

'新增兩個引數：Input引數：inputPara, OutputPara引數:retOutputPara

Dim inputPara
inputPara = Parameter("strInputPara")

Msgbox inputPara

If Not inputPara = "" Then
 Parameter("retOutputPara") = "The output parameter is  " & inputPara
Else
 Parameter("retOutputPara") = "The message is empty!"
End If

'使用ExitAction退出當前Action

ExitAction "Exit the action"

Action2的指令碼:

Option Explicit

Dim returnMsg, returnMsg1, returnMsg2

'第一種呼叫Action1的方法，同時msgbox出Output引數值.輸入的引數為："Hello!".

RunAction "Action1", oneIteration, "Hello!", returnMsg
Msgbox "returnMsg is: "  & returnMsg

'第二種呼叫Action1的方法,同時利用QTP的Parameter物件獲取呼叫Action1後的Output值.

RunAction "Action1", oneIteration, "Hello!"
returnMsg1 = Parameter("Action1", "retMessage")
Msgbox "returnMsg1 is: " & returnMsg1

'第三種呼叫Action1的方法,請注意此時返回的值.

returnMsg2 = RunAction("Action1", oneIteration, "Hello!")
Msgbox "returnMsg2 is : " & returnMsg2

'注：使用第三種方法呼叫Action1的返回值為Action1中使用ExitAction時的引數值："Exit the action"

有興趣的朋友,可以使用該指令碼到QTP的實際環境中測試一下.