QTP自动化框架练习一（flight4a）

SystemUtil.CloseProcessByName "Excel.exe"
Executefile "D:\QTP\FrameWork\testfunction\Login.txt"
DataTable.Import "D:\QTP\FrameWork\testcase\Login.xls"
Agentname = DataTable("Agentname",dtGlobalSheet)
PassWord = DataTable("Password",dtGlobalSheet)
Call Login(Agentname,Password)

Dim ErrorMessage, FullFileName
If Dialog("text:=登录").Dialog("text:=航班预订").Exist(3) Then
	ErrorMessage = Dialog("text:=登录").Dialog("text:=航班预订").Static("window id:=65535").GetROProperty("text")
	DataTable("Result",dtGlobalSheet) = ErrorMessage
	FullFileName = "D:\QTP\FrameWork\testpic\Login_Error"& timer & ".bmp"
	Dialog("text:=登录").Dialog("text:=航班预订").CaptureBitmap FullFileName,True
	Wait 1
	Dialog("text:=登录").Dialog("text:=航班预订").WinButton("text:=确定").Click
	Dialog("text:=登录").WinButton("text:=取消").Click
End If

If Window("text:=航班预订").Exist(3) Then
	DataTable("Result",dtGlobalSheet) = "测试通过"
	Window("text:=航班预订").Close
End If

DataTable.Import "D:\QTP\FrameWork\testcase\Login.xls"
DataTable.Export "D:\QTP\FrameWork\testresult\Result.xls"