QTP脚本如何封装和调用？
把QTP脚本封装起来，使其看起来一目了然!
简单介绍一下方法：
'启动飞机订票系统
Sub flight()
SystemUtil。Run "D:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a。 exe","","D:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\","open"
End Sub
'登录
Sub login()
Dialog("Login")。...全部
把QTP脚本封装起来，使其看起来一目了然!
简单介绍一下方法：
'启动飞机订票系统
Sub flight()
SystemUtil。Run "D:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a。
exe","","D:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\","open"
End Sub
'登录
Sub login()
Dialog("Login")。
WinEdit("Agent Name:")。Set "cff100"
Dialog("Login")。WinEdit("Password:")。SetSecure "48dda077c740a7e3a91bdb8caff1f6fae5f02d1b"
Dialog("Login")。
WinButton("OK")。Click
End Sub
'插入订单
Function insertorder()
Window("Flight Reservation")。ActiveX("MaskEdBox")。
Type "111111"
Window("Flight Reservation")。WinComboBox("Fly From:")。Select "London"
Window("Flight Reservation")。
WinComboBox("Fly To:")。Select "Paris"
Window("Flight Reservation")。WinButton("FLIGHT")。Click
Window("Flight Reservation")。
Dialog("Flights Table")。WinList("From")。Select "12538 LON 10:24 AM PAR 12:24 PM AF $162。40" 可以以数值代替如2
Window("Flight Reservation")。
Dialog("Flights Table")。WinButton("OK")。Click
Window("Flight Reservation")。WinEdit("Name:")。Set "cff100"
Window("Flight Reservation")。
WinRadioButton("Business")。Set
Window("Flight Reservation")。WinButton("Insert Order")。Click
Window("Flight Reservation")。
ActiveX("Threed Panel Control")。WaitProperty "text", Insert Done。。。, 10000
End Function
'退出
Sub logout()
Window("Flight Reservation")。
Close
End Sub
其实就是把脚本按操作分段。然后以过程(SUB。。。。。END SUB)或函数(FUNCTION 。。。。END FUNCTION)进行封装。
这样的脚本看上去一目了然，易理解也易于管理。
QTP函数过程的调用
以上面的QTP录制脚本的封装中的脚本为例：
Call 过程名/函数名
直接调用过程名/函数名
也以飞机订票系统为例。调用上面封装的过程/函数：
flight/call flight
login/call login
insertorder/Call insertorder
logout/Call logout
1。
调用SUB/FUNCTION方法是一样的……除了CALL调用如果有参数则需要使用括号将参数变量括起来。
2。 SUB与FUNCTION的区别：SUB过程是没有返回值的。但是FUNCTION是可以有返回值的。
收起
