使用环境变量（Environment Variables）来共享数据
 
 
在Action1中使用环境变量中定义的LoginUserName和LoginPassWord，Action1的脚本如下：
' 在Action1中使用环境变量中定义的LoginUserName和LoginPassWord
UserName = Environment.Value("LoginUserName")
UserPassWord = Environment.Value("LoginPassWord")
 
SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set UserName
Dialog("Login").WinEdit("Password:").SetSecure UserPassWord
Dialog("Login").WinButton("OK").Click
 
' 调用Action2，在Action2中也将使用到定义的环境变量
RunAction "Action2", oneIteration
 
在Action2中使用环境变量中定义的LoginUserName，Action2的脚本如下：
' 在Action2中使用环境变量中定义的LoginUserName
UserName = Environment.Value("LoginUserName")
 
Window("Flight Reservation").Activate
Window("Flight Reservation").WinObject("Date of Flight:").Click 1,6
Window("Flight Reservation").WinObject("Date of Flight:").Type "121212"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Denver"
Window("Flight Reservation").WinComboBox("Fly To:").Select "Frankfurt"
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select "14243   DEN   12:57 PM   FRA   01:41 PM   SR     $110.00"
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set UserName
 
 
        通过Dictionary对象来在Action之间共享数据
（1）添加注册表
HKEY_CURRENT_USER\Software\Mercury Interactive\QuickTest Professional\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

更多相关的软件测试文章：QTP的Test参数以及顶级Action参数的使用、LoadRunner函数中文翻译系列之一--Action