Action2的指令碼如下：

' Input Parameters

Message = Parameter("Msg")

Msgbox Message

' Output Parameters

If NOT Message = "" Then

      Parameter("ReturnMsg") = "The Message is " & Message

Else

      Parameter("ReturnMsg") = "The Message is Empty!"

End If

' RetuenValue

ExitAction "HAHAHAHHAHA!!!!!"

'ExitAction Parameter("ReturnMsg")

3種呼叫Action的方法，Action1的指令碼如下：

' 呼叫Action2，輸入引數為 “ Hello!”，把輸出引數值寫到ReturnMessage1變數

RunAction "Action2",oneIteration,"Hello!" ,ReturnMessage1

Msgbox ReturnMessage1

' 呼叫Action2，輸入引數為 “ Hello!”，通過Parameter方法讀取輸出引數值

RunAction "Action2",oneIteration,"Hello!"

ReturnMessage2= Parameter("Action2","ReturnMsg")

Msgbox ReturnMessage2

' 如果被呼叫的Action使用了ExitAction來退出Action並返回ReturnValue，則可以使用下面的方式來獲取Return Value的值

' 注意OutPut Parameters與Return Value的區別

ReturnMessage3 = RunAction( "Action2",oneIteration ,"Hello!")

Msgbox ReturnMessage3

通過全域性資料表（Global Data Table）來共享資料

在Action1中設定引數值，Action1的指令碼如下：

' 獲取全域性資料表

Set Sheet = DataTable.GetSheet("Global")

' 查詢引數列

Set Parameter1 = Sheet.GetParameter("Column1")

Set Parameter2 = Sheet.GetParameter("Column2")

' 設定引數值

Parameter1.Value="Hello"

Parameter2.Value="World!"

' 呼叫Action2，Action2將使用前面設定的引數值

RunAction "Action2", oneIteration

在Action2中讀取引數值，Action2的指令碼如下：

' 獲取全域性資料表

Set Sheet = DataTable.GetSheet("Global")

' 讀取引數值

Set Parameter1 = Sheet.GetParameter("Column1")

Set Parameter2 = Sheet.GetParameter("Column2")

' 使用引數值

Msgbox Parameter1 &" " & Parameter2

使用環境變數（Environment Variables）來共享資料

在Action1中使用環境變數中定義的LoginUserName和LoginPassWord，Action1的指令碼如下：

' 在Action1中使用環境變數中定義的LoginUserName和LoginPassWord

UserName = Environment.Value("LoginUserName")

UserPassWord =Environment.Value("LoginPassWord")

SystemUtil.Run "C:\Program Files\MercuryInteractive\QuickTest Professional\samples\flight\app\flight4a.exe"

Dialog("Login").Activate

Dialog("Login").WinEdit("AgentName:").Set UserName

Dialog("Login").WinEdit("Password:").SetSecureUserPassWord

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

' 呼叫Action2，在Action2中也將使用到定義的環境變數

RunAction "Action2", oneIteration

在Action2中使用環境變數中定義的LoginUserName，Action2的指令碼如下：

' 在Action2中使用環境變數中定義的LoginUserName

UserName = Environment.Value("LoginUserName")

Window("Flight Reservation").Activate

Window("FlightReservation").WinObject("Date of Flight:").Click 1,6

Window("Flight Reservation").WinObject("Dateof Flight:").Type "121212"

Window("FlightReservation").WinComboBox("Fly From:").Select "Denver"

Window("FlightReservation").WinComboBox("Fly To:").Select"Frankfurt"

Window("FlightReservation").WinButton("FLIGHT").Click

Window("FlightReservation").Dialog("FlightsTable").WinList("From").Select "14243  DEN   12:57 PM   FRA   01:41 PM  SR     $110.00"

Window("FlightReservation").Dialog("FlightsTable").WinButton("OK").Click

Window("FlightReservation").WinEdit("Name:").Set UserName

通過Dictionary物件來在Action之間共享資料

（1）添加註冊表

HKEY_CURRENT_USER\Software\Mercury Interactive\QuickTestProfessional\MicTest\ReservedObjects\GlobalDictionary

ProgID = "Scripting.Dictionary"

（2）使用GlobalDictionary物件

' 使用GlobalDictionary前清空裡面的資料

If GlobalDictionary.Count > 0 Then

      GlobalDictionary.RemoveAll

End If

' 儲存一個數值

DepartDate = "2008-3-31"

GlobalDictionary.Add "DateCheck", DepartDate

' 可在當前Action使用GlobalDictionary中的資料，也可在另外一個Action中使用新增到GlobalDictionary的資料

'Dim CompareDate

'CompareDate=GlobalDictionary("DateCheck")

'Msgbox CompareDate

' 可在當前Action使用GlobalDictionary中的資料，也可在另外一個Action中使用新增到GlobalDictionary的資料

Dim CompareDate

' 讀取GlobalDictionary中的DateCheck資料

CompareDate=GlobalDictionary("DateCheck")

Msgbox CompareDate