【自动化测试QTP】检查点

'++++++++脚本说明++++++++
'脚本名称：Flight_book
'脚本说明：
'	使用参数化，实现使用不同的代理名登录
'	使用参数化，实现选择不同的出发地
'	使用参数化，实现选择不同的目的地地
'	使用参数化，实现选择不同的订票信息
'	使用参数化，实现使用不同的订票人
'	使用检查点。。。。
'	使用输出值。。。。
'脚本作者：
'脚本日期：
'脚本版本：
'程序 版本：
'+++++++++++++++++++++++++

''检查方法之五：检查方法之五：使用Reporter的ReportEvent方法
'Dim a
'a = inputbox("Please Enter:")
'If a = 0  Then
'	Reporter.ReportEvent 0, "success step", "The user-defined step successed." 
'else
'	Reporter.ReportEvent 1, "fail ftep", "The user-defined step failed." 
'End If


''''使用SystemUtil对象的Run方法打开程序
SystemUtil.Run "C:\Program Files (x86)\HP\QuickTest Professional\samples\flight\app\flight4a.exe"

'''''登录流程
Dialog("Login").WinEdit("Agent Name:").Set "863soft000"

''输出值之三：：使用GetROProperty
a = Dialog("Login").WinEdit("Agent Name:").GetROProperty("text")
msgbox a

''输出值之二：输出用户名到Environment
'Dialog("Login").WinEdit("Agent Name:").Output CheckPoint("outAgentNameE")
'msgbox Environment("outAgentNameE")


''输出值之一：输出用户名到DataTable
'Dialog("Login").WinEdit("Agent Name:").Output CheckPoint("outAgentName")
'msgbox DataTable("outAgentName",dtLocalSheet)

''检查方法之四：使用CheckProperty
'Dialog("Login").WinEdit("Agent Name:").CheckProperty"text","863soft"

''检查点之三：位图检查点，CheckProperty
'Dialog("Login").Static("Static").Check CheckPoint("checkFlightPhoto")
'
''检查点之二：文本检查点，检查用户名是否输入成功
'Dialog("Login").WinEdit("Agent Name:").Check CheckPoint("checkAgentNameT")
'
''检查点之一：标准检查点，检查用户名是否输入成功
'Dialog("Login").WinEdit("Agent Name:").Check CheckPoint("checkAgentNameS")

Dialog("Login").WinEdit("Password:").SetSecure "5dbce2745c01bfb677f9c13dbf4490a1e3677cf3"
Dialog("Login").WinButton("OK").Click

''检查方法之五：使用Reporter的ReportEvent方法检查登录是否成功
If  Window("Flight Reservation").Exist Then
	Reporter.ReportEvent 0, "success login", "The user-defined step successed." 
else
	Reporter.ReportEvent 1, "fail login", "The user-defined step failed." 
End If

Window("Flight Reservation").Close

'''''订票流程
'Window("Flight Reservation").WinObject("Date of Flight:").Type "010120"
'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 "11468   LON   02:39 PM   PAR   04:19 PM   SR     $142.20"
'Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
'Window("Flight Reservation").WinEdit("Name:").Set "ammy"
'Window("Flight Reservation").WinButton("Insert Order").Click
'Window("Flight Reservation").Close