已经用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("

1.QTP启动应用程序的几种方法 1)用SystemUtil.Run 1 SystemUtil.Run "C:\Program Files (x86)\HP\QuickTest Professional\samples\flight\app\flight3a.exe" 2)用InvokeApplication 1 InvokeApplication "C:\Program Files (x86)\HP\QuickTest Professional\samples\flight

加载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

这些是4年前在HP用QTP做自动化测试时候总结的一些,现在贴出来,说不准以后会不会用到 当初花了2天时间写的一个自动生成的Excel Report Public Function Report (status, objtype, text) Dim TestName Reporter.Filter = rtEnableAll Reporter.ReportEvent status, objtype, text Reporter.Filter = rfDisableAll Call WExcel(

以下代码是在QC里运行QTP来执行脚本过程,当执行过程中发现用例失败后就会自动截图,然后把用例返回到最初始的状态,模拟了场景恢复的机制 Class QCImageErrorCapture Dim qtpApp Sub Class_Initialize() Set qtpApp = CreateObject("QuickTest.Application") If qtpApp.CurrentDocumentType = "Test" Then qtpApp.Test.

QTP自学攻略 自学总是很痛苦的,看大量的书籍,可是学到的东西却不是那么实用,下面整理了一些在QTP中经常需要的函数,以及方法很实用!  QTP常用函数  1, 获取对话框相应的文字: GetVisible Text  2, 查找相应的字符串: instr (1,查找目标字符串,所查找的字符串)  3, 随机数的获取: Randomnumber.Value() 或cstr(int(Rnd*10)+1)  4, 等待函数: Wait(秒数)  5, 获取数组下标: UBound (数组名)  6,

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

utility对象(1)这个例子是:Extendtest使用Extend对象加载DLL,我们可以使用它来丰富windows api函数,能够编写更为强大和灵活的测试代码 实例代码: '声明FindWindow方法,调用user32.dll中的FindWindowA函数Extern.Declare.micHwnd,"FindWindow","user32.dll","FindWindowA",micString,micString '声明SetWi

1.计算器的例子(手动添加,将结果写到日志文件中) SystemUtil.Run "C:\WINDOWS\system32\calc.exe","","C:\WINDOWS\system32","open" Window("计算器").WinButton("1").Click Window("计算器").WinButton("+").Click W

返回值:数字 示例: 以下示例使用 GetRowCount 方法查找 MySheet 运行时数据表中最长的列中的总行数,并将其写入报告. rowcount = DataTable.GetSheet("MySheet").GetRowCount Reporter.ReportEvent 2, "数据工作表中有 " &rowcount, "行. 2.得到datatable运行时的动态列数:GetParameterCount 语法:DTSheet.Get

前言 测试报告是测试阶段的最后产出,也是最重要的产出,自动化测试报告也是如此.前期所做的工作,添加对象.编写脚本等都是为了可以生成一份正确.严谨的测试报告.我作为一款功能全面的自动化测试工具,毫无疑问,提供了强大的测试报告定制功能,让我们从对象库编程中的脚本说起吧,脚本代码如下. With Browser("web对象演示") With .Page("web对象演示") .WebEdit("用户名").Set "test" .

QTP实践总结 查询数据库修改freq 1.Testcasetable创建查询select * from testcasetable order by fseq desc 2.设计表-选项-修改自动递增数值 新建Action 需要修改Script.mts(D:\NewSoftShop\NewSoftShop\Action0)文件,把文件中新增的Action注释,重打开脚本 一.获取某个表格中指定位置的字符并累加输出: (1).对象转换: tobj(i).object.children(0).in

以前一直觉得自己没有写代码的资质,太急于求成,以为一天就能写好几个功能,几千行代码,于是就没耐心了,没心情学下去了....但是最近发现其实写代码是一个漫长的过程,都是在修修改改中成长起来的.于是今天试着慢慢用QTP测下参数限制,虽然代码量不多,其实也算不上编程,O(∩_∩)O哈哈~但也是个慢慢积累的过程. 转载要说明来自  博客园--邦邦酱好 哦~ 首先,我有一段登陆系统的测试模块,可以把它设为可重用的,并且参数化必要的信息,比如登陆用户名密码等等,这些就不细说了.可以参见<QTP自动化测试实践

1QTP基本功能的使用 QTP的基本功能包括两大部分:一部分是提供给初级用户使用的关键字视图:另一部分是提供给熟悉VBScript脚本编写的自动化测试工程师使用的专家视图.但是,并没有严格的区分,在实际的自动化测试项目中完全可以两者结合着使用. 1.1 QTP自动化测试的基本过程 使用QTP进行自动化测试的基本过程与使用其他自动化测试工具进行自动化功能测试的过程基本是一致的,一般包括以下5个步骤: (1)录制测试脚本.利用QTP先进的对象识别.鼠标和键盘监控机制来录制测试脚本,测试人员只需要模拟

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("

********************************************************************************************** 用vbs调qtp '编写自动执行指定的QTP脚本的VBS:'利用QTP本身的Quicktest.Application 对象Dim qtAppSet qtApp = CreateObject ("Quicktest.Application")qtApp.LaunchqtApp.Visible = T