最近软件自动化测试，正在学习QTP，即 IBM公司的 QuickTest Professional.这篇文章专门作为收集一些常用的代码段使用。
一、Action间参数传递
1.调用Action本身的参数Parameter(“faxnum”)
2.获取Action的输出参数
RecordNo = Parameter(“OpenOrder_Action”,”RecordNo”)
‘获取OpenOrder_Action的输出参数RecordNo
3. 将参数和DataTable传入要调用的Action中
RunAction “FaxOrder_Action”, oneIteration, DataTable(“faxnum”, dtGlobalSheet),RecordNo
二、打开文件的常用方法
在QTP中，常需要利用QTP的代码来打开某些程序或文件，下面提供三种常用的方法:
1、SystemUtil.Run ‘ SystemUtil对象的Run方法
SystemUtil.Run “D:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe”
2、InvokeApplication ‘ 调用程序函数
InvokeApplication “D:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe”
3、WSH ‘ 通过wsh对象的Run（bat）或者exec（exe）方法
Dim oWSH
Set oWSH = CreateObject(“WScript.shell”)
oWSH.exec “D:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe”
Set oWSH = nothing
Dim oWSH
Set oWSH = CreateObject(“WScript.shell”)
oWSH.run “ E:\WORK\Projects\3.bat”
Set oWSH = nothing
结合ERR对象和on err resume next语句所做的例子：
On Error Resume Next
Dim bFlag
bFlag = CBool(bFlag)
bFlag =systemutil.Run (“C:\WINDOWS\system32\calc.exe”)
MsgBox bFlag
If Err.Number<>0 Then
MsgBox Err.Description
Err.Clear
End If