很多初入行的朋友使用测试工具进行功能测试的时候,总是会遇到QTP和WinRunner的选择问题,为什么同样一家公司会出两个功能类似的工具哪? 下面是一篇关于这两个工具的对比介绍,其实从我自己的经验来看,WinRunner虽然推出较早,但是因为一些功能的缺陷,导致后期很难推广,而Quick Test Professinal(QTP)虽然没有师兄WinRunner出道早,然后内功深厚,所以很受欢迎,而且Mercury公司以后的主要发展策略是QTP,虽然文章中说并没有计划Phase out WR,但是已经不再出新版本了. 针对这两个工具的3年左右的使用经验,我的感受是WR比QTP的逊色的地方主要是几点:

1. WR的对象管理不如QTP那么有效

2. WR的语言主要是基于类C的TSL,是Mercury发明的语言,明显不如基于VBscrīpt的QTP强

3. WR的稳定性不行,而且无意人为的干扰可能导致回放的失败

4. WR对Java的支持也不如QTP那么强

QTP，全称为Quick Test Professional，它与WinRunner同为MI公司开发的功能强大的功能测试工具。从时间上来看，WinRunner在1995年便已经推出，远早于QTP，而QTP直到2002年才正式推出。从MI公司提供的一些官方资料来看，虽然他们宣称暂时不准备淘汰WinRunner，但他们的宣传资料上又明确表示，QTP已经具备了WinRunner中几乎所有的特性，同时具备了一些独有的特性，并且总体来说，使用更简单、更易扩展和维护，推荐新用户使用QTP，并建议已使用WinRunner的老客户逐渐实现转换。由此看来，MI公司实际上已经有使用QTP逐步取代WinRunner的计划。更重要的是，QTP对J2EE，.NET架构的应用程序支持得比WinRunner要好（从我实际的试用过程中，也感到确实是如此），因此我认为，从我们公司的实际情况出发，针对产品综合部今后将逐步开展自动化测试的计划，QTP应该是一个比较好的选择。
不论是WinnRunner还是QTP，它们都是功能十分强大的测试工具，加上目前国内关于测试工具的培训和文档资料，实在是少之又少，因此要完全了解和掌握它们，绝不是一朝一夕的事情。在这里我只能就目前对它们的理解程度粗略地介绍一下二者的两点主要不同之处。
1、使用的脚本语言不同。WinRunner使用的是TSL语言，这是MI公司独有的语言，有特殊性，因此在学习上会有一定难度，不过好在它与C 语言比较类似，如果测试人员有一定的C语言编程基础，会相对容易一些。而QTP使用的则是微软的VBscrīpt语言，比较通用，而且也相对简单易学。从语言上的比较上来看，我个人觉得在编程能力上，WinRunner更胜一筹，因为它拥有相当丰富的C语言函数库，而相对而言，QTP则更大众化，它面向的是没有太多技术背景和编程经验的测试人员。
2、QTP8.0具有的一大特性：关键字驱动测试（keyword-driven testing）。它的具体操作方法我将有另外的文档详细说明，这里只是简单介绍一下。通过“关键字驱动测试”，测试人员不需要“录制”测试脚本，而可以改成“设计”测试脚本。即：先将应用程序的GUI对象添加到QTP的对象仓库（Object Repository）中，然后针对每一个需要操作到的对象设计每个测试步骤。我个人感觉，这的确是一个很酷的特性，它使我们可以不必实际去操作应用程序，就可以编写出测试脚本，这样做既节省了时间，而且还有一个更大的好处就是可以在应用程序还没有设计完成，或者由于出错无法正常执行的时候仍然可以编写我们的测试脚本。应用程序只需要有使用界面（UI），而不必实际运行，测试人员就可以开始建立测试脚本，为我们实施自动化测试赢得更充足的时间。而在 WinRunner中，虽然也可以采用先学习对象，然后编写代码的方式来完成测试脚本，但这样做要求测试人员对TSL语言比较熟悉才做得到，远不如QTP 来得简单。在实际的操作中我还发现，有些时候采用录制的方法无法捕获对应用程序的操作，此时改用关键字驱动测试却可以收到不错的效果。
3、相对WinRunner，QTP还具有很多优点，例如“数据表整合”，“Active Screen”，“point and click”，更容易参数化等等，但对于这几点我还没有深入的做过比较，如果今后我对此有了更多的体会和了解，我将再作整理。

    先说wait函数,当脚本走到wait函数时,就开始执行这个函数.如:wait(10),就等待10秒种后再继续执行下面的语句.wait函数的这个等待的时间,那相对来说是比较固定的.如上例子,一定要等待完10秒后再执行.所以写脚本的时候要自己估算一下时间.不然可能造成时间的浪费,或者等待时间的不足.
V
aE&{K$? hxd w8Q146439
H ~ \'j-Xz146439那同步点呢.等待时间就比较灵活了,它的等待时间是不固定的.设置同步点后,当脚本执行到这句话后,脚本就开始执行等待.脚本会在规定时间内不断的去检查,所同步的对象有没有出现,一但出现,脚本就继续往下执行.不需要等完所有规定时间.如果在规定的时间内,所要同步对象还没有出现,那就提示超时的错误信息.51Testing软件测试网7v4mA }
d|7QC[;e:G
例如:
`ld PZ d a146439Window("Flight Reservation").ActiveX("Threed Panel Control").WaitProperty "text", "Insert Done...", 10000
cNb1\Q*D4A146439当脚本执行到这句话时,就开始执行同步等待时间.这里设置超时时间为10000.在这个时间内,脚本会不断去查看该对象的text属性的属性值Insert Done...,有没有出现.一但同步到这个属性值,就开始执行下面的脚本了.而不需要再继续等待,直到1000秒结束为止.那这样的话,这个等待时间不用自己去控制,设置好后由程序自己去判断,就比较灵活,也不会出现浪费时间的情况.能提高脚本的执行

     相信大家在QTP中肯定都看到过这些方法,GetROProperty、GetTOProperty、SetTOProperty .

GetROProperty:可以取到运行时对象属性的值.

GetTOProperty:可以取到测试对象属性的值.

SetTOProperty:可以修改测试对象的属性值

    那这里的运行时对象和测试对象又是什么呢?他们之间又存在着什么样的关系呢?

测试对象(TO):是QTP在脚本中创建的用于描述应用程序实际对象的对象.QTP存储这些信息用来在运行时识别和检查对象.简单的说,我们就可以把对象库中所保存的对象就看做为测试对象.

运行时对象(RO):是应用程序中的实际对象,对象的方法将在运行时被执行.

两者之间的关系:测试对象是为了识别运行时对象而存在的.在《QTP的录制回放过程》中，我也阐述了QTP的整个工作原理。所以这里我也就简单的再提一下。QTP在录制的时候会把所操作的对象的一组属性及属性值，保存到对象库中，就是所谓的测试对象。在回放的时候，QTP 就会根据对象库里的该对象的属性及属性值去匹配实际在应用程序中的运行时对象。一但完全匹配正确就执行相应的操作。否则就会报“找不到该对象”的错。

1：QuickTest 不支持用于模拟或低级录制的虚拟对象
2：录制和运行测试或组件时，网页或应用程序窗口的大小和位置必须和定义虚拟对象时的大小和位置相同。
3：仅当录制和运行测试或组件时，才能使用虚拟对象。您不能在虚拟对象上插入任何类型的检查点，也不能使用“对象探测器”来查看其属性
4：虚拟对象管理器中显示的虚拟对象集合存储在您的计算机中，而不是随包含虚拟对象步骤的测试或组件存储。这意味着如果您在测试或组件步骤中使用虚拟对象，则仅当在包含正确的虚拟对象定义的计算机中运行时，该对象在运行会话过程中才能被识别。要将您的虚拟对象集合定义复制到另一个计算机，请将您的 <QTP安装文件夹>\dat\VoTemplate 文件夹的内容（或该文件夹中的单个 .vot 集合文件）复制到目标计算机上的相同文件夹中。
5:您只能为可以在其上单击或双击并录制 Click 或 DblClick 步骤的对象定义虚拟对象。否则，将忽略虚拟对象。例如，如果您在 WinList 对象上定义一个虚拟对象，录制 Select 操作，则虚拟对象被忽略。
6:不要使您的应用程序或网页中的虚拟对象相互重叠。如果虚拟对象与另一个虚拟对象重叠， QuickTest 可能无法正确地在虚拟对象上录制或运行测试或组件。
7:在“标识对象使用”框中，选择您希望 QuickTest 标识和映射虚拟对象的方式。
7.1 如果您想要 QuickTest 标识所有出现的虚拟对象，请选择“仅父类”。QuickTest 仅通过其直接父类标识虚拟对象，而不考虑整个父层次。 例如，如果虚拟对象是使用 Browser("A").Page("B").Image("C") 定义的，则即使层次更改为 Browser("X").Page("Y").Image("C")， QuickTest 仍将识别该虚拟对象。
7.2 如果想要 QuickTest 仅标识一次出现的虚拟对象，请选择“整个父层次”。QuickTest 将仅标识具有准确的父层次的虚拟对象。 例如，如果虚拟对象是使用 Browser("A").Page("B").Image("C") 定义的，则如果层次更改为Browser("X").Page("B").Image("C")， QuickTest 将无法识别该虚拟对象。

例:51Testing软件测试网1GI.v3KH$nGF6?(yftn
Browser("软件测试专业网站:51Testing软件测试网").Page("百度——全球最大中文搜索引擎").WebEdit("wd").Set "111"
]t/C:QXn5RK#cONs/i146439Browser("软件测试专业网站:51Testing软件测试网").Page("百度——全球最大中文搜索引擎").WebButton("百度搜索").Click
}RQ\7i3o146439Browser("软件测试专业网站:51Testing软件测试网").Page("百度搜索_111").Link("菜111 的QQ家园").Click

    在这个例子中,我们的目的是把这个link对象给参数化掉.这里直接把对象名参数化掉,肯定是不行的.因为我们知道QTP识别对象依靠是这个对象在对象库中的属性和属性值.而如果我们这里参数化成一个新的对象名,那么这个对象名是不存在于对象库中的,那么势必会造成在回放过程中不通过,报对象库中没有这个对象的错误.所以我第一个想到的是先让这个link对象脱离对象库,让它不用通过对象库就能识别这个link对象,那么接下来只要直接换成变量就成功了.相信大家都看到过帮助里对描述性编程的说明,通过把脚本改写成描述性编程的形式,可以让QTP在执行脚本时不要再去依赖对象库.直接把一些付有特征的属性和属性值放到脚本中,就能执行相应的操作.所以我们可以先把上面脚本改写成:

Browser("软件测试专业网站:51Testing软件测试网").Page("百度——全球最大中文搜索引擎").WebEdit("wd").Set "111"51Testing软件测试网;[)S3BLV7F
Browser("软件测试专业网站:51Testing软件测试网").Page("百度——全球最大中文搜索引擎").WebButton("百度搜索").Click51Testing软件测试网/x$l4?f&f9iz xe v
Browser("软件测试专业网站:51Testing软件测试网").Page("百度搜索_111").Link("text:=菜111 的QQ家园").Click

    这样表示后,再把这个对象在对象库中的记录给删掉.重新运行脚本后,脚本依旧能正确执行.那么接下来的操作就方便了,直接把相应的固值换成一个变量即可.我们来这么操作:

Dim i51Testing软件测试网o.eY6B
ZR,Mr\
i="菜111 的QQ家园"51Testing软件测试网wCWbuj
Browser("软件测试专业网站:51Testing软件测试网").Page("百度——全球最大中文搜索引擎").WebEdit("wd").Set "111"51Testing软件测试网
V%A'F c-_.~ E5}2f
Browser("软件测试专业网站:51Testing软件测试网").Page("百度——全球最大中文搜索引擎").WebButton("百度搜索").Click
G_4MA!s/\146439Browser("软件测试专业网站:51Testing软件测试网").Page("百度搜索_111").Link("text:="&i).Click

    到这里整个操作过程就完成了.其实这只是一个方法,相信大家肯定还有其他方法,希望大家能留言说说自己的看法.当然如果这个对象的对象名有一定规律的话,我们还可以考虑运用正则表达式的方法,也可以达到预期的效果.

1.GetCellData函数 

  作用:获取单元格的值

  例:  rowCount = Browser("xxx ").Page("xxx ").Frame("xxx").WebTable("xxx").RowCount
For counter = 1 To rowCount
  text = Browser("xxx").Page("xxx").Frame("xxx").WebTable("xxx").GetCellData(counter,1)
  If (text = "xxx") Then
    counter = counter - 1
    selectNO = "#" & counter
    Browser("xxx").Page("xxx").Frame("xxx").WebRadioGroup("xxx").Select selectNO
    Exit For
  End If
Next

2.把值插入datatable里

  例:   datatable.setcurrentrow(i)
        datatable.value("name","Global")="name"
        datatable.value("passwd","Global")="passwd"

3.用代码来启动浏览器

  Browser1 = "IE"
  StartURL = "www.51testing.com"
  IF Browser1 = "IE" THEN
     set IE = CreateObject("InternetExplorer.Application")
     IE.Visible = true
     IE.Navigate StartURL
  END IF
 

4.ExecuteFile函数

  作用:ExecuteFile 可以直接执行vbs文件，而不需要将其导入resource中 
       ExecuteFile FileName 
  说明:where FileName is the absolute or relative path of your VBscrīpt file.

  例:ExecuteFile("F:\test.vbs")

5.Strcomp函数 

  作用:比较文本

  例:dim strtext1,strtext2,str ,str1,comp1
     strtext1 = "xxx"
     strtext2 = "xxx"
     str = VbWindow("xxx").VbWindow("xxx").VbLabe1("xxx").GetTOProperty("text")
     str1= VbWindow("xxx").VbWindow("xxx").VbLabel("xxx").GetTOProperty("text")
     comp1=strcomp(strtext1,str,0)
     If  comp=0 Then
          msgbox “这两个串相等”
     else
       msgbox str
     End If 

6.CaptureBitmap 

  作用:捕获屏幕

7. GetROProperty

  作用:取对象属性值

  例:VbWindow("xxx").VbWindow("xxx").VbWindow("xxx").ActiveX("xxx").GetROProperty("TextMatrix(1,0)")　

8.ExitAction - 退出当前操作，无论其循环属性如何。
  ExitActionIteration - 退出操作的当前循环。
  ExitRun - 退出测试，无论其循环属性如何。
  ExitGlobalIteration - 退出当前全局循环。

9.如何使用Excel对象处理数据？
  Dim xl
  打开excel文件
  Function OpenExcelFile(strFilePath)
  Set xl = CreateObject("Excel.Application")
  xl.Workbooks.Open strFilePath
  End Function
  获得指定单元格数据
  Function GetCellData(strSheet,rwIndex,colIndex)
  GetCellData = xl.WorkSheets(strSheet).Cells(rwIndex,colIndex)
  End Function
  填充单元格数据
  Function PutCellData(strSheet,rwIndex,colIndex,varData)
  xl.WorkSheets(strSheet).Cells(rwIndex,colIndex) = varData
  End Function
  保存并推出
  Function SaveAndQuit()
  xl.Activeworkbook.save
  xl.Quit
  Set xl = nothing
  End Function

10.连接sql数据库

  例:Dim res,cmd,sql
     Set Res=createobject("adodb.recordset")
     Set Cmd=createobject("adodb.command")
     Cmd.activeconnection="Provider=SQLOLEDB.1;Password=111111;Persist Security Info=True;User ID=sa;Initial Catalog=xhq;Data Source=192.168.191.142"　　＇这句话是连接数据库的数据源，要做修改
    Cmd.CommandType = 1
    sql="selec t * from 表 where name=username"
    Cmd.CommandText = sql
    Set res = Cmd.Execute()
    Set res = nothing
    Set cmd.ActiveConnection = nothing
    Set Cmd= nothing