已经用UFT11.5完成了几个大流程的录制和脚本调测. 现整理下这段过程中脚本中应该记住的点(QTP是VB脚本): 1. 循环和条件部分_reporter结果展示 For i = 1 To brow Step 1 cell_value=btable.GetCellData(i,4) If trim(cell_value)=ordernum Then orderstatus=btable.GetCellData(i,1) If trim(orderstatus)="存盘"
Dim username,password Dim casecount,i Dim currentid DataTable.ImportSheet ,"Action1" casecount=datatable.Getsheet("Action1").GetRowCount To casecount username=DataTable("username","Action1") password=DataTable("
1.ToString() : Returns a string that represents the current test object. Example The following example uses the ToString method to generate a report detailing the dimensions of a MainFrame test object. Sub ReportRectangle(obj) x = obj.GetTOProperty("
加载Web插件先启动QTP,再启动浏览器,否则Web元素识别不了最新版本QTP11支持的浏览器:IE:6.7.8Firefox:3.0.x.3.5.QTP支持直接访问DOM(Document Object Model),可以通过DOM来访问HTML标签.例如:On Error Resume Next Set Doc = Browser("Google").Page("Google").Object ' 循环获取Page中的所有对象For Each Element
创建自动化测试是为了实现无人值守下运行,但也给开发人员带来一些问题.假如你离开办公室前启动测试,想要让它通宵运行.然而,由于不可预见的错误,您的测试会在某一点停止,中断了测试结果.因此QTP中引入场景恢复方案.测试运行错误"列表或菜单中找不到选项",可参考以下场景恢复方案. 本文讨论了当"列表或菜单中找不到选项"时如何创建场景恢复方案. 此例中,我们会定义一个函数来处理错误.场景恢复函数的默认语法如下: Function fnRecovery(Object, Met
以下代码是在QC里运行QTP来执行脚本过程,当执行过程中发现用例失败后就会自动截图,然后把用例返回到最初始的状态,模拟了场景恢复的机制 Class QCImageErrorCapture Dim qtpApp Sub Class_Initialize() Set qtpApp = CreateObject("QuickTest.Application") If qtpApp.CurrentDocumentType = "Test" Then qtpApp.Test.
1 Datatable参数化 Global表的数据可以被所有的action访问,Action的数据只能被对应的Action访问 本地表循环的次数设置:Action Call Properties Global表循环的次数设置:File -> Test Settings -> Run 注: ① Global全局变量循环一次,本地Action表全部运行一次 ② 删除表的内容:Edit -> Delete ③ 修改列名:鼠标右击对应的列 Example4:Flight
1 程序自带验证点 自带验证点:图形界面insert -> checkpoint Standard Checkpoint 标准验证:用于检查测试对象的属性 Text Checkpoint 文本验证:用于检查文本字符串是否在应用程序中的适当位置出现 Text Area Checkpoint文本区域验证:用于检查文本字符串是否按既定的标准出现在应用程序的预定区域 Bitmap Checkpoint 位图验证:用于检查被测试应用程序的某个区域当成位图来检查 Database Checkpoint
前言 测试报告是测试阶段的最后产出,也是最重要的产出,自动化测试报告也是如此.前期所做的工作,添加对象.编写脚本等都是为了可以生成一份正确.严谨的测试报告.我作为一款功能全面的自动化测试工具,毫无疑问,提供了强大的测试报告定制功能,让我们从对象库编程中的脚本说起吧,脚本代码如下. With Browser("web对象演示") With .Page("web对象演示") .WebEdit("用户名").Set "test" .
1.Object Spy的Tips Hold the CTRL key to change the window focus or perform other mouse operations 2.QTP为什么无法单步调试? 安装Microsoft Script Debuger即可 3.QTP如何访问Oracle数据库? Dim rs,sq,pkeyset conn=createobject("adodb.connection")set rs=createobject("