Action參數(shù)傳遞

1、Action2的腳本如下： Input ParametersMessage = Parameter(Msg)Msgbox Message Output ParametersIf NOT Message = Then Parameter(ReturnMsg) = The Message is & MessageElse Parameter(ReturnMsg) = The Message is Empty!End If RetuenValueExitAction HAHAHAHHAHA!ExitAction Parameter(ReturnMsg)3種調(diào)用Action的方法，Action1的腳本

2、如下： 調(diào)用Action2，輸入?yún)?shù)為 “ Hello!”，把輸出參數(shù)值寫到ReturnMessage1變量RunAction Action2, oneIteration,Hello! ,ReturnMessage1Msgbox ReturnMessage1 調(diào)用Action2，輸入?yún)?shù)為 “ Hello!”，通過(guò)Parameter方法讀取輸出參數(shù)值RunAction Action2, oneIteration,Hello!ReturnMessage2=Parameter(Action2,ReturnMsg)Msgbox ReturnMessage2 如果被調(diào)用的Action使用了ExitAc

3、tion來(lái)退出Action并返回ReturnValue，則可以使用下面的方式來(lái)獲取Return Value的值 注意OutPut Parameters與Return Value的區(qū)別ReturnMessage3 = RunAction( Action2, oneIteration ,Hello!)Msgbox ReturnMessage3通過(guò)全局?jǐn)?shù)據(jù)表（Global Data Table）來(lái)共享數(shù)據(jù)在Action1中設(shè)置參數(shù)值，Action1的腳本如下： 獲取全局?jǐn)?shù)據(jù)表Set Sheet = DataTable.GetSheet(Global) 查找參數(shù)列Set Parameter1 = Sh

4、eet.GetParameter(Column1)Set Parameter2 = Sheet.GetParameter(Column2) 設(shè)置參數(shù)值Parameter1.Value=HelloParameter2.Value=World! 調(diào)用Action2，Action2將使用前面設(shè)置的參數(shù)值RunAction Action2, oneIteration在Action2中讀取參數(shù)值，Action2的腳本如下： 獲取全局?jǐn)?shù)據(jù)表Set Sheet = DataTable.GetSheet(Global) 讀取參數(shù)值Set Parameter1 = Sheet.GetParameter(Colu

5、mn1)Set Parameter2 = Sheet.GetParameter(Column2) 使用參數(shù)值Msgbox Parameter1 & & Parameter2使用環(huán)境變量（Environment Variables）來(lái)共享數(shù)據(jù)在Action1中使用環(huán)境變量中定義的LoginUserName和LoginPassWord，Action1的腳本如下： 在Action1中使用環(huán)境變量中定義的LoginUserName和LoginPassWordUserName = Environment.Value(LoginUserName)UserPassWord = Environment.Val

6、ue(LoginPassWord)SystemUtil.Run C:Program FilesMercury InteractiveQuickTest Professionalsamplesflightappflight4a.exeDialog(Login).ActivateDialog(Login).WinEdit(Agent Name:).Set UserNameDialog(Login).WinEdit(Password:).SetSecure UserPassWordDialog(Login).WinButton(OK).Click 調(diào)用Action2，在Action2中也將使用到定義

7、的環(huán)境變量RunAction Action2, oneIteration在Action2中使用環(huán)境變量中定義的LoginUserName，Action2的腳本如下： 在Action2中使用環(huán)境變量中定義的LoginUserNameUserName = Environment.Value(LoginUserName)Window(Flight Reservation).ActivateWindow(Flight Reservation).WinObject(Date of Flight:).Click 1,6Window(Flight Reservation).WinObject(Date of

8、 Flight:).Type 121212Window(Flight Reservation).WinComboBox(Fly From:).Select DenverWindow(Flight Reservation).WinComboBox(Fly To:).Select FrankfurtWindow(Flight Reservation).WinButton(FLIGHT).ClickWindow(Flight Reservation).Dialog(Flights Table).WinList(From).Select 14243 DEN 12:57 PM FRA 01:41 PM

9、SR $110.00Window(Flight Reservation).Dialog(Flights Table).WinButton(OK).ClickWindow(Flight Reservation).WinEdit(Name:).Set UserName通過(guò)Dictionary對(duì)象來(lái)在Action之間共享數(shù)據(jù)（1）添加注冊(cè)表HKEY_CURRENT_USERSoftwareMercury InteractiveQuickTest ProfessionalMicTestReservedObjectsGlobalDictionaryProgID = Scripting.Dictionar

10、y（2）使用GlobalDictionary對(duì)象 使用GlobalDictionary前清空里面的數(shù)據(jù)IfGlobalDictionary.Count 0Then GlobalDictionary.RemoveAllEnd If 存儲(chǔ)一個(gè)數(shù)值DepartDate = 2008-3-31GlobalDictionary.Add DateCheck, DepartDate 可在當(dāng)前Action使用GlobalDictionary中的數(shù)據(jù)，也可在另外一個(gè)Action中使用添加到GlobalDictionary的數(shù)據(jù)Dim CompareDateCompareDate=GlobalDictionary(DateCheck)Msgbox CompareDate 可在當(dāng)前Action使用Gl