自动化测试工具QTP培训.ppt

* * * * * * * * * * * * * * * * * * * * * * * * Copyright 2006 * 系统参数-录制模式设置 录制模式设定 方法:toolsweb event recording configuration 这里有三个录制级别可以设置分别为最低,中等,高级 Copyright 2006 * 系统参数-捕捉级别设置 对于Action screen捕捉不精确的问题,可以通过QTP Action screen的设置来解决,方法: 1.点击tools—options Copyright 2006 * Action复用 将复用部分(如:登陆,退出)录制成为单独的Action并且单独保存下来 对这两个Action作设置 方法: 关键字视图中,选中所要设置的Action,右键-操作属性 选中“可重复操作”复选框 调用Action 在QTP主页面选择 insert call to existing Action Copyright 2006 * 对象库和对象属性 对象库 导出对象库信息*.tsr文件 添加对象到库 对象更新 对象高亮显示 对象属性识别 对象管理器 对象库导入导出*.xml 关联库 对象库与操作关联 注：操作方法见具体演示 Copyright 2006 * Datatable 应用 动态添加表格与数据 格式： DataTable.AddSheet(SheetName) 例如： Variable=DataTable.AddSheet (MySheet).AddParameter(Time, 8:00) 数据导出 格式： DataTable.Export(FileName) 例如： DataTable.Export (C:\flights.xls) 从本地excel文件中导入数据到数据表 格式： DataTable.ImportSheet(FileName, SheetSource, SheetDest)例如： DataTable.AddSheet(用户登陆信息) DataTable.ImportSheet E:\beacard.xls,1,用户登陆信息 指定sheet页数据导出到文件 DataTable.ExportSheet(FileName, DTSheet) Copyright 2006 * Datatable 应用（续） 获取当前行数 row=DataTable.GetCurrentRow msgbox row 获取总行数 rowcount= DataTable.GetSheet(用户登陆信息).GetRowCount msgbox rowcount 获取当前行数据 For i=1 to rowcount DataTable.SetCurrentRow (i) FormulaVal=DataTable.RawValue (用户名, 用户登陆信息) msgbox FormulaVal DataTable.SetNextRow Next Copyright 2006 * 文件读操作 Const ForReading=1,ForWriting=2,ForAppending=8 Dim i,fin, MyStr ,Myinfo Dim fso, f,s Set fso=CreateObject(Scripting.FileSystemObject) 获取 当前文件字节数 Set f=fso.GetFile(e:\kahao.txt) s = UCase(f.Name) uses f.size bytes. s=f.size 读当前文件的所有信息 set f=fso.OpenTextFile(e:\kahao.txt, ForReading) fin=f.readAll msgbox fin 读第一组数据 set f=fso.OpenTextFile(e:\kahao.txt, ForReading) i=MId(fin, 1,19) msgbox i 截取数据 MyStr = MId(fin, 20,s) msgbox MyStr 重新写截取数据到文件 set f=fso.OpenTextFile(e:\kahao.txt, ForWriting) f.WriteBlankLines (0) f.WriteLine MyStr 本地文件读、写 Copyright 2006 * 获取界面值并写入文件 变量定义 Dim p,fso,f Const ForWrit