这两周我开始学习QTP测试我们的web服务了;大体的软件使用操作流程是懂了，但具体实施起来特别是代码的组织及函数应用还有一些困难，因为自己只会vb没学习vbscrīpt，所以想和大家交流一下代码等一些基础知识；呵呵,一起学习,加强记忆与应用
1 生产随机数列
第一种方法
randomize'更新反回的数据
funcation rand(k)
n=int((k-1)*rnd+1)
rand=n
end funcation

第二种方法
n=randomnumber.value(1,255)

2  当运行到表中的某一行，自动导出表中的所有数据
row=datatable.getcurrentrow
if row="5" then
  datatable.export("d:\data.xml")
end if

3
webedit("txtpass").setsecure"sdsdf...."
如果参数化密码，可以直接在数据表中写入未加密的密码，它会自动识别，即不用把setsecure改为set

4　如果弹出对话框就获取上面提示信息并与表中的信息对比，不统一证明弹出的提示出错,主要用来验证
if browser("web_name").dialog("dialog_name").exist(1) then'如果不出现=false
     error_message=browser("web_name").dialog("diaglog_name").static("用户密码错误!".getRoproperty("text")
　　　if error_message<>(datatable.value("error_info"))then
         msgbox(error_message)
      end if
     browser("web_name").dialog("diaglog_name").close
  end if
这里我总结了两点技巧：
　　一是：对于dialog中，虽然提示信息对象名称是"用户密码错误"，但如果信息对象名称是“该用户不存在”，不用更改会自动识别，我想主要是录制第一遍时，“用户密码错误”只是让运行时能找到这个控制，而不管它是什么内容，因为在对象仓库中，text不是决定该对象的属性
    二是：如果对于提示信息比较长的，可以用mid(error_message,n,m)取一部份特征提示信息进行验证，这样我想可以节省处理时间，又可以避免长度以及空格等字符的处理

5  datatable.value("num")只在global形式下的一种省略形式；完整形式是:
datatable.value("num",dtlocalsheet)

-----向某一列的单元格赋值:
datatable.value("column_name",dtlocalsheet)="nanjing"

-----取得某一行具体值：
datatable.setcurrentrow(n)
msgbox(datatable.getsheet("global").getparameter("column_name").Rawvalue)
或者kk=datatable.Rawvalue("column_name","action1")

----在run-time时，动态添加表格与数据
kk=datatable.addsheet("sheet_name").addparameter("column_name","value").name;

7   wintreeview一些操作
选择一个条目:wintreeview.select(item)'根是0
根的名称：wintreeview.getitem(0)

8   数据库检查点模块:
sub database_check
set con=createobject("adodb.connection")
con.open "Descrīption=IBM_ODBC;DRIVER=SQL Server;SERVER=IBM;UID=sa;"&_
                 "PWD=123456;APP=Quick Test Pro;WSID=IBM;DATABASE=IBM_table"
'access方式:con.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\test.mdb"
'Orocle方式:con.open "DRIVER={Oracle in OraHome92};SERVER=CESHI;UID=CND_TEST;PWD=CND;DBQ=CESHI;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O;"
set record=createobject("adodb.recordset")
sql="select*from ibm_one_table"
record.open sql,con
DO
if(record("ibm_table_column")="kai")then'//查找表格中有多少kai
num=num+1;
end if
record.movenext
loop until record.eof=true
record.close
set record=nothing
con.close
set con=nothing
end sub

9   换行符
    vbcr----chr(13)回车符// vblf----chr(10)换行符
    vbcrlf----chr(13)+chr(10)结合//type(chr(13)就相当于按了一上键盘上的enter

10  Run from step有两种方式：
在Keyword View模式会从本步骤运行到所有action结束
在expert view模式仅会将本action运行结束

11  由于对象属性原因，无法识别对象
-----对于对象属性是变化的，可以参数化/或者用正则表达式
-----报匹配多个对象错误，可以spy查看对象，添加一个该对象另一个唯一标识属性
-----有时可以删除对象的变化的属性来解决识别问题
------对于多个完全相同的对象，可以采用添加index,location,createtime等特殊属性来识别
　　(index:按照程序源码，绘制对象的先后标识对象，所以与其它相同对象是相互依赖，当其它对象发生
　　变化后，原先的所有对象index属性要发生变化，开始是0；如index:=0;
        location：根据对象的位置进行确定，从上到下，从左到右;
　　CreateTime：按照对象被浏览器打开的先后标识对象)
------另外换一种思维方式，采取等效的方法；比如用键盘代替鼠标或用操作系统本身特性去解决问题

12  对系统文件的操作
-------从系统的文件中获取信息及删除文件
  get_file_infor("c:\she.mpg")
   function get_file_infor(url)
    dim fso,f
    set fso=createobject("scrīpting.filesystemobject")
    set f=fso.getfile(url)
    f.name:f.size:f.type:f.datacreated'///获取文件信息
    fso.deletefile(url)'/////删除文件
   end function
--------获取文件夹里所有文件信息
get_folder_infor("c:\kai")
function get_folder_infor(folder)
dim fso,f,f1,n
set fso=createobject("scrīpting,filesystemobject")
set f=fso.getfolder(folder)
set fc=f.files
for each f1 in fc
select case f1.name
case"kai.mpg","she.mpg","dd.mp3"'//检查文件夹里是否含有这些文件
end select
next
end function

13   等待某个对象出现方法
y=......waitproperty("visible",true,10000)

14   防程序中断方法
On error resume next
On error goto handle

15  数组的应用:
name=array(1,2,"aa","bb")
name(2)="aa"
16  正则表达式应用模板
进行日期YYYY-MM-DD的格式检查　:
Function RegExpTest(patrn, strng)
  Dim regEx, Match, Matches      ' Create variable.
  Set regEx = New RegExp         ' Create a regular expression.
  regEx.Pattern = patrn         ' Set pattern.
  regEx.IgnoreCase = True         ' Set case insensitivity.
  regEx.Global = True         ' Set global applicability.
  Set Matches = regEx.Execute(strng)   ' Execute search.
  For Each Match in Matches      ' Iterate Matches collection.
    RetStr = RetStr & "Match found at position "
    RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
    RetStr = RetStr & Match.Value & "'." & vbCRLF
  Next
  RegExpTest = RetStr
End Function
date_pattern="^((((19|20)(([02468][048])|([13579][26]))-02-29))|((20[0-9][0-9])|(19[0-9][0-9]))-((((0[1-9])|(1[0-2]))-((0[1-9])|(1\d)|(2[0-8])))|((((0[13578])|(1[02]))-31)|(((01,3-9])|(1[0-2]))-(29|30)))))$"
result_message=RegExpTest(date_pattern, inputbox("请你输入要检查的时间："))'用其它正则表达式更改此处
Select case result_message
Case ""
         msgbox("你输入的日期格式与标准不匹配")
case else  MsgBox(result_message)
end select

17   返回一个字符串在另一字符串中的位置
instr(string1,string2)

18   有时回放出现找不到对象时，可能不是由于你的代码问题，而是由于你的操作系统等设置问题；
举例说明1：
比如：你录制一个选择磁盘中的文件动作
会录制为：
.winlistview("  ").drap 46,99
.winlistview("  ").draponitem "she.mp3"
下次录制的时候，如果你的系统文件改为不显示扩展名，下次执行的时候，QTP就找不到she.mp3，只能找到she;
举例说明2：
有时由于不同操作系统以及不同的ie，导致有些窗口不能识别，比如在2000下弹出的网页对话框的标题是：
“web对话框",而在2003上是”网页对话框"

19  "is+*"类型function
isarray'是否是数组
isconnected'判断QTP是否连接到TD
isdate'是否是合法的日期类型
isempty'判断是否初始化
isNull'判断是否为空值
isNumeric'判断是否是数字型
isobject'判断是否一个功能对象
isready'判断设备是否准备就绪
isRootFolder'是否是根目录

20 Action之间的参数传递
例如:在Action1中，有如下代码:
out_str="This is out_string"
RunAction "Action2",oneIteration,out_str
在Acton2中，在其step->Action Properties中的，input参数栏，加入out_str后,
msgbox(parameter("out_str"))，就能正确显示参数了　

21 Wscrīpt.Shell的一些应用
set WshShell =CreateObject("Wscrīpt.Shell")
WshShell.SendKeys "{ENTER}"　　　　　'模拟键盘进行操作
WshShell.AppActivate "Calculator"             '启动应用程序

22 获取对象属性名称用法:
GetRoProperty----从应用程序界面上获取对象属性（即，是脚本运行时，获取的对象动态属性值）
           例如：获取对象库中index属性值，似乎只能用GetToProperty,因为应用程序界面上对象没有该属性，只是QTP为识别该对象创立的描述属性；
GetToproperty----从对象库中描述对象的属性，静态值
GetToProperties----获取用于标识对象的属性集；对于这个集合，有count等属性方法

23 FireEvent的使用-
可以对一个对象进行更复杂的操作
如:FireEvent("onfocus")   '使一个控件获取焦点
     FireEvent("ondblclick")  '实现双击/也可以在事件设定中针对该对象事件响应　　

24 模板的应用
-----新建一个文本，输入一些新建Action时常包含的信息，然后保存为ActionTemplate.MST文件,
　并复制到QTP/dat目录下；这样每次新建action都会包含固定的信息了;
例如:
'-------------------脚本说明---------------
'产品版本:      __Build(  )
'测试员:
'编写日期:
'测试功能:
'脚本类型:
'被测试对象初始状态:
'进展程度:
'基本思路:
'主要功能函数:
'历史修改:
'没解决的问题:
'--------------------脚本内容-------------

25 在对象库中，两个对象有时不能通过更改属性或命名来达到两个对象完全一致的替换；
在web-mod项目中，我在对象库里添加了一个自动含有index标识属性的对象，然后每次通过SetToproperty来改变
index值，对对象进行数据驱动，使其操作另一个对象，但脚本始终操作原先index属性值的对象;后来，把该对象
删除掉，重新添加一个不自动含有index标识属性的该类对象，然后，手工添加，index标识属性，后来脚本能正常 工作了，可见两次的对象属性完全一致，但形成方式不一样，导致的结果往往也不一样;

26 childobject的应用
childobject可以返回界面上满足条件的对象集合，而且与对象库里是否有这些对象无关，这就可以简化对象库；
返回的对象集合的count方法可以返回对象个数，这就可以通过下标对单个对象进行操作；在出现index标识对象时
可以进行运用
如:Set m_WinCheck=Descrīption.Create()
      m_WinCheck("nativeclass").Value="Button"
      set All_WinCheck=Window("").Dialog("").Childobject(m_WinCheck)
      n=All_WinCheck.Count()
     for i=0 to n-1
      All_WinCheck(i).Set "ON"
     next
再加三个

27 Create Log File:

Dim LOGFile, fso, MyFile

LOGFile="C:\Log.txt"
Set fso = CreateObject("scrīpting.FileSystemObject")
    If fso.FileExists(LOGFile) = False Then
           Set MyFile = fso.CreateTextFile(LOGFile, True)
           MyFile.Close
    end if
Set MyFile = fso.OpenTextFile(LOGFile, 8, True)
MyFile.WriteLine("")
MyFile.WriteLine(" " & Cstr(Now) & " ---------------------------------------------------------")
MyFile.WriteLine("LOG Information!")
MyFile.Close
28 数据输入输出方法
数据输入输出的方法：
1  ExecuteFile"e:\kk.vbs"
2  Environment.LoadFromFile("e:\k.xml")
3  Datatable.ImportSheet/Import
4  GetData from DataBase
5  Datatable autofill
6  Action input/output
7  Use GetxxProperty to get data from Object
8  Use Some Function to Product data

    本例还是以QTP安装后自带的Flight Reservation为例来录制脚本.首先我们把登录程序系统,然后新建定单,再打开定单,最后关闭系统.分别录制成5个action,设置一个主的action为main来分别先后调用login(登录),new order(新建定单),open order(打开定单),logout(退出).

注明:设置拆分action，选择菜单功能split Action ．选择independent of each other为并列的两个action．选择Nested为主次的两个action.

全部录制完所有action后，在main action中代码如下：

RunAction "login", oneIteration
RunAction "new order", oneIteration
RunAction "open order", oneIteration
RunAction "logout", oneIteration

其中RunAction是一个调用action的函数，后面跟action名和要传递的参数．

说明：

RunAction ActionName, [Iteration , Parameters]

在这里我再引入action之间参数传递．在login action中选择菜单选项，在action properties中设置两input参数分别先后为username 和　passwd.

这样我们就通过RunAction "login", oneIteration,"mercury","mercury"　　把这两个变量分别传给username 和passwd.这边的变量先后关系分别依次对应了action properties里input参数的先后关系．

这样我们就可以在login action中调用这两个变量了．

Dialog("Login").WinEdit("Agent Name:").Set Parameter("username")
Dialog("Login").WinEdit("Password:").Set Parameter("passwd")
Dialog("Login").WinButton("OK").Click

下面再来实现从一个action中传出一个变量给另一个action.

那么我们在new order　中选择菜单选项，在action properties中设置一个output参数为orderno

Window("Flight Reservation").WinEdit("Order No:").Output CheckPoint("Order No:")

通过上面这句话把生成的定单号的值存放到这个ouput参数中

RunAction "new order", oneIteration,order
RunAction "open order", oneIteration,order

再靠main　action中这个order变量来传递，这个变量正好对应着new order里的output参数．从new order中传出来，再把这个变量传给open order．当然在open order中还要同样设置input参数．和这个order变量对应起来．

这样就可以在open order中使用这个变量了．

Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set Parameter("orderno")

当然其实两个action之间传递参数还可以更简单点．比如一个脚本中　datatable和环境变量都是全局的，在一个脚本中的任何action都能使用．所以可以借用这两个来传递．

通过这个例子最主要讲的是两点，拆分action和action之间的参数传递

1.      运行错误：不能识别对象（Cannot identify object）

出现了这个错误时，就表示当前被测程序的窗口中没有符合条件的对象。

出现这种错误，可能的原因有以下两种：

l         对象此时在程序中没有显示或不存在。

l         在程序中存在该对象，但是它的描述在后来发生了改变，导致与对象仓库中存储的信息不匹配，从而QTP无法识别对象。

如果你正遇到“Cannot identify object”的问题，解决方法见1.1。

 

1.1 如何去识别对象描述（Idenfirying Test Object Descrīption Problems）

如果你能在被测程序中看到对象，但仍出现了“Cannot Identify Object”错误信息，这就表示仓库中对象的描述与程序中对象的描述一定存在着差异。

解决对象描述问题的第一步是找到差异，最简单的方法是将仓库中对象的属性值与程序中对象的属性值进行比较。（仓库中对象的属性值可在Object Repository窗口中查看，程序中对象的属性值可用Object Spy功能查看。）

比较仓库中对象的属性值与程序中对象的属性值的操作见1.3。

在完成比较后，是否发现存在差异？

如果是，请参考1.4；

如果否，请参考1.5。

 

1.2 处理对象丢失问题（Solving Missing Object Problems）

在运行脚本时，QTP偿试进行某种操作，而该操作的对象在程序中却没有出现，出现这种情况的原因有以下几种：

l         对象不再存在。对象已经被从程序中删除。

解决方法：见1.2.1。

l         对象还没有装载。

解决方法：见1.2.2。

l         当前的程序页面（或窗口）不正确，不是对象所在的页面（或窗口）。

解决方法：见1.2.3。

l         前一个步骤没有正确执行。

解决方法：见1.2.3。

1.2.1 解决对象不再存在的问题

如果对象已经不再在被测程序中存在，则应在脚本中修改或删除相关步骤。

1.2.2 解决对象装载超时的问题

如果对象丢失的原因是因为没有足够的时间装载，偿试以下解决方案：

a.对于Web对象，增加Browser Navigation Timeout（File>Setting>Web页签）时间。

b.在包括该对象的步骤前使用Wait语句，让QTP在执行该步骤之前等待一段时间。

1.2.3 检查前面步骤的执行情况

如果是因为打开了错误的页面（或窗口）导致对象丢失问题，或因为前一步骤执行措误导致对象丢失问题，则请按以下方法检查原因：

a. 如果怀疑在完成脚本后，被测程序又发生了改变，则检查对象的继承关系以及对象描述。参考1.1。

b. 如果怀疑脚本错误，则检查脚本的每一个步骤。你可能是遗失了某个步骤，也可能是使用了不正确的方法或参数。

 

1.3 测试对象的属性值与Run-time对象的属性值的比较（Comparing Test Object and Run-Time Object Property Values）

根据以下的步骤比较测试对象与Run-time对象的属性值：

1)  进入Obecjt Repository窗口（Resources>Object Repository），选择对象。

2)  用笔记下对象的class以及它的各个属性及属性值。

3)  打开被测程序，并打开包含被测对象的页面或窗口。

4)  在QTP中选择菜单Tools>Object Spy或点击Object Spy按钮，打开Object Spy对话框。

5)  选择“Test Object Properties”选项。

6)  点击右上角的按钮（带有手图标的），这时QTP窗口以及Object Spy对话框都被最小化。

7)  在程序页面（或窗口）中点击目标对象，恢复Object Spy对话框，并在对话框中显示对象及其父对象（以树的形式显示），并在Properties页签中显示当前对象的属性及属性值。

8)  这时Object Spy对话框的Properties页签中显示Run-time对象的所有属性，在此查看对象的class，以及它的属性及属性值，并将它与第2步中记下的内容进行比较。

 

1.4 解决对象描述存在的问题（Solving Object Descrīption Problems）

如果发现仓库中对象的属性值与程序中对象的属性值存在不同，你应该判断这个不同是个别对象的问题，还是其它同类对象也存在相同的问题。

是所有（或多个）同类对象都存在问题吗？

如果是，则参考1.6

如果否，则参考1.7

 

1.5 关于父对象描述的识别问题（Identifying Parent Object Descrīption Problems）

对象的识别还与它所继承的父对象有关。

如果你能在被测程序中看到对象，而且程序中对象的属性值与仓库中对象的属性值也是一致的，但仍然遭遇到了“Cannot identify object”错误，则这个错误可能与它的父对象有关（如仓库中父对象的属性值与程序中父对象的属性值不一致），也可能是仓库中的对象与程序中对象的继承关系不相同导致的。

要判断是继承关系中的哪个父对象出现了问题，请偿试下面的方法之一：

l         重新录制对象，比较新旧对象的父对象。

欲了解如何完成比较，参考1.8。

l         对继承关系中的每个父对象，分别插入一个Exist语句，并运行该部分脚本。

欲了解如果创建Exist语句，参考1.9。

注：你也可以使用Object Repository窗口中的Highlight in Application功能，在被测程序中定位对象。

一旦找到了存在问题的父对象，接下来偿试以下方法：

l         修复存在问题的父对象的描述。方法见1.4。

l         在专家视图的模式下，查找所有继承存在问题的实例并进行修正。

举例：1.8.1。

 

1.6 解决某类对象的识别问题（Soving Object Identification Problems for a Test Object Class）

如果你发现某类对象的对象描述对于被测程序来说都不是很合理，或你预期到对象描述中的某属性值是经常变化的，你可以在Object Identification对话框中改变该类的识别属性的设置，或定义该类的Smart Identification设置并启用Smart Identification机制，这样QTP就可以唯一识别对象了。

 

1.7  解决单个对象的描述问题（Solving Individual Test Object Descrīption Problems）

选择下列方法之一来解决对象的描述问题：

l         如果被测程序中对象描述发生了改变，并且你也清楚改变的内容，并且该改变是永久性或长期性的，你可以直接手工修改仓库中对象描述中的相关属性值。

l         如果被测程序中的对象的属性值依赖于前面的步骤或其它对象，则将该属性值参数化，这样就可以使用其它步骤的输出值为属性值。

l         如果属性值的组成部分中，部分是固定的，部分是动态改变的，则可以将属性值设计为正则表达式。

l         如果属性值是遵循某种规则变化的，或者是不可预期的，则从对象描述中移除该属性，并向对象描述中添加一个或多个属性以便于QTP进行对象识别。

l         If you can only access the information on the property values during the run session, you can create and use functions that use programmatic descrīptions to identify the object using property values retrieved earlier in the run session.

l         如果在录制过程中对象是唯一的，但现在程序中出现了两个或多个描述相同的对象，但是它们在页面（或窗口）中的位置不相同，则应在Object Properties或Object Repository窗口中，向对象描述中添加一个ordinal identifier（index或location）。

 

1.8 重新录制对象，以判断父对象描述是否存在问题（Re-recording an Object to Identify Parent Object Descrīption Problems）

根据下面的指引，来判断父对象的问题。

通过重新录制对象，来判断它的父对象是否存在问题：

1) 打开浏览器或程序，来到包含被测对象的页面或窗口。

2) 在关键字视图模式，选择最后一个组件（component），或在专家视图模式，将光标放在最后一个脚本步骤的下面。

3) 点击Record按钮，或选择Automation>Record。

4) 点击（或操作）页面或窗口中的目标对象。

5) 点击Stop按钮，或选择Automation>Stop，完成步骤添加。

6) 右击新添加的步骤，并选择Object Properties右键菜单。

7) 在Object Properties对话框中，点击Repository，打开Object Repository窗口，并选中了新对象。注意记下该对象的继承关系。

8) 在Object Repository窗口中找到旧的对象（即存在问题的对象），将它的继承关系与新对象的继承关系进行比较。

通过比较，可以检查到新旧对象是父对象的描述存在不同，还是它们的继承关系根本就不同。

a. 如果是父对象的描述问题，则修改父对象的描述。参见1.4.

b. 如果是对象的继承关系不正确（即具有不同的父对象）引起的问题，则在脚本中找到所有使用该继承关系的实例，将它们替换为正确的继承关系。

举例：参见1.8.1。

 

1.8.1 举例

假设有一个带有Frame的网站，你录制了一个操作针对Image对象“Poster”的操作步骤。在Object Repository窗口，你可以Image对象的继承关系如下所示：

MyCompany（Browser）

    MyCompany（Page）

        Main(Frame)

             Poster(image)

当你运行脚本时，网页看起来没有什么不同，但是识别Image对象时却出现了“Cannot identiry object”的错误提示。当你重新录制操作步骤，然后在Object Repository窗口中查看新的Image对象时，发现该对象的继承关系如下所示：

MyCompany（Browser）

    MyCompany（Page）

         Poster(image)

从中可以看出，Frame已经从Web Page中移除，所以尽管Image对象“Poster”的描述没有发生任何改变，但它的继承关系已经改变了。

在Object Repository窗口，你可以看到新旧Image对象“Poster”是两个完全不同的对象：旧的位于已经被移除的Frame对象之下，而新的则直接位于Page“Mycompany”对象之下。

修复这个问题，可以在脚本步骤中将旧的对象替换为新的对象。

为了保持Object Repository窗口的整洁，你应删除那些已不再存在的对象（如本例中的Frame）。

 

1.9 创建Exist语句，以判断父对象的描述是否存在问题

QTP在录制发生在某个对象上的操作时，也会同时去了解对象以及它的继承关系。因此，如果在运行过程中，QTP不能识别继承关系中的任何一个父对象，都会导致目标对象的识别失败。

使用带有Exist方法的Msgbox语句，可以方便的检查出是继承关系中的哪个父对象出现了问题。

假设在运行下面脚本时，你遇到了“Cannot identify Object”错误信息（但是可以确定对象仓库中Link对象的描述与当前程序中对象的描述是完全一致的）：

Browser("Yahoo!").Page("Yahoo!").Link("Arts & Humanities").Click

你可以在该语句前面插入以下语句：

Msgbox Browser("Yahoo!").Exist

Msgbox Browser("Yahoo!").Page("Yahoo!").Exist

Msgbox Browser("Yahoo!").Page("Yahoo!").Link("Arts & Humanities").Exist

然后你从头开始运行脚本，发现第1行语句运行成功，并且弹出信息框，内容为“True”。

 

但是，当QTP运行到第2步时，就弹出信息框，内容为“False”，表示不能找到Page object。这就证明Page对象存在问题。

确定了出现问题的父对象以后，修复该问题。参见1.4。

2.      运行错误：对象不唯一（The object is not unique）

在被测页面或窗口中的同一父对象下，找到多个与仓库中对象描述相符的Run-tim对象。

请确定是只有个别对象存在此问题，还是此类对象的所有对象（或部分对象）存在此问题。

此类对象的所有对象（或部分对象）都存在此问题吗？

如果是，参考2.1；

如果否，参考2.2。

 

2.1 为某对象类设置能唯一识别对象的描述规则（Configuring Unique Test Object Descrīptions for a Test Object Class）

如果你发现某类对象的对象描述都不足以唯一识别对象，你可以在Object Identification对话框中，改变该类的识别属性的设置，或定义该类的Smart Identification设置并启用Smart Identification机制，这样QTP就可以唯一识别对象了。

 

2.2 设置通唯一识别对象的对象描述（Creating a Unique Test Object Descrīption for an Object）

查看当前对象的描述，并偿试在程序中找到其它具有相同描述的对象并查看它们的描述。

l         如果你找到了可以将它们区别开来的一个或多个属性，则修改仓库中对象的相关属性（如向描述中添加属性等），以使QTP在运行时可以唯一识别它。

l         如果它们的识别属性完全相同，则在对象描述中为对象添加一个ordinal identifier（index或location）。

 

3.      运行错误：找不到父对象（Parent not found）

识别对象时，会先识别它的父对象是否正确。如果遇到“Parent not found”的错误信息，请偿试以下解决方法：

l         修复出现问题的父对象的描述。参见1.4。

l         在脚本中找到继承关系不正确的实例，并修改为正确的继承关系。例如1.8.1。

 

4.      运行错误：无效的参数（Invalid arguments）

一个或多个方法的参数是无效的。

参数无效可能是参数类型错误，也可能是参数个数不正确。

根据以下建议，找到方法的正确语法：

l         在Keyword模式，如果方法包括参数，则在Value栏会显示该方法的参数提示。

l         在Expert模式，如果方法包括参数，则当你插入方法然后按下Shift+Ctrl+Space键时，QTP会显示该方法的参数的提示信息。（注：只有在Editor Options对话框的General页签中打开了Statement completion功能时才可以看到参数的提示信息。）

5.      运行错误：不能识别item（Cannot identify item）

QTP不能识别方法参数中指定的列表或树对象的item时，请确认指定的item是否存在于对象之中。

l         如果item不存在，则删除相关脚本步骤，或修改item。

l         <SPAN style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'; mso-ansi-lang

 

Table是可见的，可以录制的。对于ActiveX Table，还可以检查它的object 属性。

3.      InputBox函数

描述

　　一个是Action的属性，一个是Test的属性。Action运行的反复次数取决于它的DataSheet的数据的行数，Test运行的反复次数取决于Global Sheet的数据行数．

通过Action的右键菜单“Action call properties”打开Action Call Properties对话框，Run页签中有三个选项：

Run one iteration
运行所调用的Action一次，运行时根据当前global的iteration数，来决定获取action data sheet中的哪行数据。如果Action的data sheet的数据条数少于global sheet，则以后的每次运行都总是取action data sheet的最后一条数据。例如，当action的sheet有2行数据，global sheet有4行数据，如果调用action时选择了“Run one iteration”，但是在设置test时选择了run iterations on all rows of the global data sheet，那么在运行test的每一轮中，这个action只运行一次，每次参数时都是根据test的“轮数”来决定获取哪一行的数据。在运行第1轮测试时，获取action sheet的第1行数据，在运行第2轮测试时，获取第2行数据，第3轮或第4轮时，参数总是获取第2行（action sheet的最后一行）的数据。

Run on all rows
运行action的所有行的数据，即ation的运行次数取决于action的数据行数。

Run from row  to row
指定action运行的数据范围，从而决定action运行的次数及取数范围。

 

通过菜单Test>Setting打开Test Setting对话框，Run页签中有三个选项：

Run one iteration only
仅运行test一次。运行时获取global sheet的第1行数据。

Run on all rows
根据global sheet的数据行数来决定test的运行轮数，每轮测试依次获取global sheet中的数据。

Run from row to row 
指定test的运行轮数。每轮测试依次获取指定范围的行的数据。

 将一个Object定义为一个变量，应使用Set语句，如：