星火baba

1.runaction后面能不能接变量(动态调用action，所以从数据库取数据做action名字了，但是调用总是找不到）？  A:脚本中原有RunAction "testbase[case1]", oneIteration   把引号中的内容放到Global表中的第22行，然后将代码修改为：   datatable.getsheet("Global")   datatable

作者：xuyubo时间：2012/10/30 版权所有，侵权必究。出处：http://blog.csdn.net/xuyubotest'Minimize QTP'此函数可以帮助大家在执行脚本时最小化QTP界面  'Minimize the main QTP window.' ========================================

Set obj=CreateObject("Scripting.FileSystemObject")Set oFile=obj.OpenTextFile("C:/JX/WorkSpace/test.ldif",1)msgbox oFile.ReadLineSet obj=NothingSet oFile=Nothing

第1章 前言 　　目前市场上已经有了不少自动测试工具，不过满足自己需求的测试工具却很难找到或者是难以支付其昂贵的费用，对于在Linux/Unix后台运行的软件产品，自己开发一个自动测试工具，不但可以满足软件的测试需求，还可以节省一大笔费用。　　这个自动测试系统架构的设计，是基于Linux/Unix后台运行的软件产品，架构的思想，源于主流测试工具与前辈的实践经验。 　　软件的自动测试

These are global variables;本人建议使用全局变量，局部变量维护比较繁琐；Types of Environment variables:1. Built in variables: These are system defined varialbles, we can access from all tests but these are desig

一：     'Methods of getting a Data Table value     val = DataTable.Value("ParamName",dtGlobalSheet)     val = DataTable.Value("ParameName","Global")         ' 二：1、DataTable方法GetRo

'Write Function to Count how many Browsers opend on desktop and close them allFunction Close_Browsers()        Dim oBrowser,Browsers,TotBrowsers,i        Set oBrowser = Description.Create

'create an app object only onceIf qtApp = Nothing then   Set qtApp = Nothing thenEnd if 'qtApp.Test.Settings.Run.EndIteration = 6 in your caseIf Environment("TestIteration") = qtApp.Test.S

Dim objWorkbookxl_path="../test.xls"Set gObjExcel = CreateObject("Excel.Application")gObjExcel.DispalyAlerts = 0Set objWorkbook = gObjExcel.Workbooks.Open(xl_path) 'Here the excel link is

1.在测试中我们使用QTP调试脚本的时候一般就是DEBUG或者MSGBOX察看一些信息,其实有时候也可以使用print来实现批量的察看信息但是不影响程序运行.运行脚本:复制内容到剪贴板代码:a="100"print a~~~~~~~~~~~~~~~~~~~~~~~~~2.取datatable特定行的数据可以这样使用运行脚本:复制内容到剪贴板代码:Data

请在qcsiteadmin_db数据库里，找到USERS表，找到相应的管理员用户 admin，把USER_PASSWORD列，设成NULL。执行后，重新登陆siteadmin.问题解决。 ACCESS数据库 : 修改\common files\mercury Interactive\Domsinfo\doms.mdb (pw:tdtdtd)

hi All我有一个朋友在美国开公司，做测试服务的，自动化测试特别牛，他们准备在国内开展业务，你们有需求吗绝对可以让你们测试上一个台阶，我可以远程演示给你们看David Dang - VP of Automation SolutionsDavid Dang has over fifteen years in IT, with the last twelve focused

DOM全称”Document Object Model”，字面上叫做”文档对象模型”，它是一款主要用于Web Html中的一种独立语言。Html Dom主要通过定义一套标准的对象通道接口，使得我们能够轻松访问并控制Html对象元素，它是一种用于Html和Xml文档的编程接口。DOM的表现方法是一种树状结构。有些时候QTP只对标准控件支持比较好，而对特殊的控件无法识别。DOM是一种罪底层的对象操

New Unified Functional Testing FeaturesA few days ago, right before Christmas, HP finally made UFT 11.5 available for download. Here’s a quick look at the top five features I think you’re going to

代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--><%'建立文件夹函数Function CreateFolder(strFolder)'参数为相对路径    '首选判断要建立的文件夹是否已经存在    Dim strTestFo...

由于需要抓起淘宝/天猫 搜索结果的120个宝贝的平均价格，使用qtp来实现。实战 应用 如何使用 QTP 11.5 UFT 获取淘宝商品价格与数量" title="qtp 实战 应用 如何使用 QTP 11.5 UFT 获取淘宝商品价格与数量" height="304" width="690">考虑到可以使用html dom 来获取价格和数量元素的属性值。借助firebug

方法：1. 删除C:\ProgramData隐藏目录下的SafeNet Sentinel文件夹2.运行QTP安装目录下的bin\instdemo.exe3. 重新运行QTP/UFT 12后即可恢复30天试用

职业交流，不谈政治，诽谤性话题QTP,LR,Selenium,Python网络安全；QTP企业内训，自动化框架培训

Dim objLogoutDim objUserDim objPassDim objRemember' create description objects for each item we are dealing withSet objLogout   = Description.Create()Set objUser     = Description.Create

Dim Matches,Match,reSet re=new RegExp 'creates a new regexp objects="you are 33 a ee7"re.Global = True '完全匹配re.pattern="/d+"set Matches=re.execute(s)For each Match in Matches

Variable = DataTable.AddSheet("MyShee2").AddParameter("Time","Flight")Dialog("Login").WinEdit("Agent Name:").Set "mercury"'pwd = "4be8f7806c7051a412e452d5e82f4b29cffb9ed7"'e_pwd = Crypt.Encrypt(

页面异常输入测试是系统测试的一个重要方面，但是因为比较繁杂，人工测试时往往难以完全覆盖，此时采用自动化测试，就有相当的优势了。如下图就是一个典型的信息录入页面其中就包括很多异常输入测试点：名称不能包含特殊字符，固定的电话格式，固定的手机格式，银行账号（必须全为数字），付费号码长度限制，手机号码格式、长度限制，Email格式限制等 其实异常策略是有通用性的，现总结如下：1

对于共同开发的自动化测试项目项目，实例方便的调用是很重要的。QTP采用的是vbscript脚本，所以也支持类，但是应为vbs并不支持类的继承，所以只能算作一种“拟类”。采用类对脚本进行封装，有很多好处，对于测试执行人员，可以通过项目情况对封装的类进行调用，而并不必关心类实现的细节。此处对QTP类的使用进行一些总结。'类名称Class TestCase      Pr

本文提供一种QTP运行错误的捕捉和记录方法 结合QTP本身的场景恢复机制，可以很好的解决该问题 首先在恢复场景中定义场景恢复策略  选择需要捕捉的错误种类 定义捕捉错误后的处理，此处定义一个异常处理函数  函数定义如下：  '---------------------------------------------------------

1 生产随机数列第一种方法———————————–randomize’更新反回的数据funcation rand(k,n)n=int((k-1)*rnd+1)rand=nend funcation第二种方法n=randomnumber.value(1,255)2 当运行到表中的某一行，自动导出表中的所有数据row=datatable.getcurrentro

1.首先需要了解在QTP中怎么读取Excel中的单元格的脚本如何写？  例子如下         Set xlApp= CreateObject("Excel.Application")        Set wkBook= xlApp.Workbooks.Open("C:/test.xls")        Set wkSheet= wkBook.Worksheets("Shee

一、SQL Server格式(本地无需安装SQL Server)connectionstring(连接字符串):1.本地没有创建数据源的方式DRIVER=SQL Server;SERVER=数据库IP地址;UID=用户名;PWD=密码;APP=Microsoft Office 2003;WSID=本地主机名;DATABASE=数据库名实例：DRIVER=SQL Server

一、About Understanding the Test Object Model　　关于了解测试对象模型　　QuickTest tests your dynamically changing application by learning and identifying test objects and their expected properties and va

Dim fso, d, s   drvPath="c:/"   Set fso = CreateObject("Scripting.FileSystemObject")   Set d = fso.GetDrive(fso.GetDriveName(drvPath))   s = "Drive " & UCase(drvPath) & " - "   s =

Set Excelobj=createobject("Excel.Application")excelpath="E:/testQTP"Excelobj.Workbooks.Open(excelpath)  '打开excel的文件Set newsheet=Excelobj.Sheets.Item(1) '打开excel的sheetcolcount=newsheet.Us

Function ClearFilesFolders(strPath)Set fso =CreateObject("Scripting.FileSystemObject")If fso.FolderExists(strPath)ThenSet oFolder = fso.GetFolder(strPath)For Each oFile In

本文为小孩原创，转载请注明出处：http://www.51testing.com/?117535遇到过很多测试界的朋友,做了几年手工测试现在想转过来做自动化测试,可是无从下手,比如一个登录的测试脚本，都搞得不知所措，老觉得自动化跟手工的区别很大，其实非也，什么是自动化，自动化测试只不过是使用工具或脚本代替我们对被测系统操作，然后通过工具的检查点或是通过我们自己编写的比较语句来验

1:eg:For example, this will input all the text fields within a gaven page:Dim oDescSet oDesc = Description.Create oDesc("micclass").Value = "WebEdit" Dim oChildrenDim i Set oChil

Dim obj_checkSet obj_check=Description.Createobj_Check("micclass").value = "DelphiCheckBox" Dim allcheckboxesSet allcheckboxes=DelphiWindow("NewCell_Selection_Window").ChildObj

Set fso = CreateObject("Scripting.FileSystemObject")filepath= "C:/JX/WorkSpace/ t.xls"If (fso.FileExists(filepath) )Then    msgbox filepath & "exists"Else   msgbox filepath & "doesn't exist"

'Click on the excel application message box with QTP While closing the excel applicationSet obj=CreateObject("Excel.Application")obj.Visible=Trueobj.DisplayAlerts=FalseSet oWorkbook=obj.

Local_val = DataTable("colname",dtLocalSheet)RunTime_val = DataTabel("colname",dtGlobalSheet) if(trim(Local_val)=trim(RunTime_val)) Then   ' 去掉空格    MsgBox "Validation success"Reporter.r

'Sheet1: The name or index of the sheet in the file that you want to import. Index values begin with1.'Action1: The name or index of the sheet in the Data Table that you want to replace with the

１． datatable         QTP本身程序就给我们提供了这么一个数据表，我们可以把测试数据或 测试用例 填入这个数据表中．如：设计用例　　 username　　passwd case1　　mercury mercury case2 xxxxxxx xxxxxx录制脚本For i="1" to Data