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

来源：互联网发布：宁波软件培训编辑：程序博客网时间：2024/06/05 00:26

<span style="font-size:14px;">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, FullFileNameIf Dialog("text:=登录").Dialog("text:=航班预订").Exist(3) ThenErrorMessage = Dialog("text:=登录").Dialog("text:=航班预订").Static("window id:=65535").GetROProperty("text")DataTable("Result",dtGlobalSheet) = ErrorMessageFullFileName = "D:\QTP\FrameWork\testpic\Login_Error"& timer & ".bmp"Dialog("text:=登录").Dialog("text:=航班预订").CaptureBitmap FullFileName,TrueWait 1Dialog("text:=登录").Dialog("text:=航班预订").WinButton("text:=确定").ClickDialog("text:=登录").WinButton("text:=取消").ClickEnd IfIf Window("text:=航班预订").Exist(3) ThenDataTable("Result",dtGlobalSheet) = "测试通过"Window("text:=航班预订").CloseEnd IfDataTable.Import "D:\QTP\FrameWork\testcase\Login.xls"DataTable.Export "D:\QTP\FrameWork\testresult\Result.xls"</span>

0 0