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"
QTP自动化框架练习一(flight4a)
最新推荐文章于 2022-04-13 19:03:50 发布