一.QTP识别对象的原理

QTP要求先在仓库文件里定义仓库对象，里面存有实际对象的特征属性的值，
运行的时候，QTP会根据仓库对象的特征属性描述，寻找到实际对象，然后操作实际对象。

仓库对象TO一般在录制/编写脚本时加入仓库文件，它不仅可以在编写时进行修改，
也可以在运行过程中进行动态修改，以匹配实际对象。

相关的几个函数有：

GetTOProperty():取得仓库对象的某个属性的值
GetTOProperties():取得仓库对象的所有属性的值
SetTOProperty():设置仓库对象的某个属性的值

GetROProperty():取得实际对象的某个属性的值

理解了TO的含义，你就可以自由的用SetTOProperty()定义TO，以灵活的操作RO

比如有个测试任务，窗口上有很多待检查的记录，每条记录右边都有一个Check按钮，用来检查各条记录。
记录个数不定，所以Check按钮个数也就不定，只有一个Edit显示记录个数。
我们要对每条记录进行检查，也就是要点击每个Check按钮。
但是Check按钮个数不定，不好录制，而且个数可能也很多（上百个），即使能一一录制，那也很麻烦。

那我有一个好办法，只录制一个按钮对象，它设有两个特征属性 label=OK, index=0
然后用下面的脚本，就可以完成测试

buttonNum = CInt(JavaWindow("Test").JavaEdit("Record Num").GetROProperty("value"))
For buttonIndex = 0 to buttonNum - 1
  JavaWindow("Test").JavaButton("Check").SetTOProperty("index", buttonIndex)
  JavaWindow("Test").JavaButton("Check").Click
Next

或者窗口上有New、Modify、Delete、Check等好几个按钮，要把这几个按钮一一按过去
我在对象仓库里只设置一个按钮对象AnyButton，label特征属性值填任意值，然后用下面脚本执行测试

JavaWindow("Test").JavaButton("AnyButton").SetTOProperty("label", "New")
JavaWindow("Test").JavaButton("AnyButton").Click

JavaWindow("Test").JavaButton("AnyButton").SetTOProperty("label", "Modify")
JavaWindow("Test").JavaButton("AnyButton").Click

JavaWindow("Test").JavaButton("AnyButton").SetTOProperty("label", "Delete")
JavaWindow("Test").JavaButton("AnyButton").Click

JavaWindow("Test").JavaButton("AnyButton").SetTOProperty("label", "Check")
JavaWindow("Test").JavaButton("AnyButton").Click

另外，QTP还支持脚本描述的方法来定义和访问对象，即不需要在仓库里定义，也能访问和操作实际对象

如上面两个任务，可以如下实现

1. 不需要在仓库里定义Check按钮对象，直接用下面脚本来实现测试

buttonNum = CInt(JavaWindow("Test").JavaEdit("Record Num").GetROProperty("value"))
For buttonIndex = 0 to buttonNum - 1
  JavaWindow("Test").JavaButton("label:=Check", "index:="+CStr(buttonIndex)).Click
Next

2. 不需要在仓库里定义New、Modify、Delete、Check按钮对象，直接用下面脚本来实现测试

JavaWindow("Test").JavaButton("label:=New").Click
JavaWindow("Test").JavaButton("label:=Modify").Click
JavaWindow("Test").JavaButton("label:=Delete").Click
JavaWindow("Test").JavaButton("label:=Check").Click

二.操作对象的原理

QTP为用户提供了两种操作对象的接口，一种就是对象的封装接口，另一种是对象的自身接口。
对象的自身接口是对象控件本身的接口，只要做过软件开发，使用过控件的人应该很清楚。
对象的封装接口是QTP为对象封装的另一层接口，它是QTP通过调用对象的自身接口来实现的。

两种接口的脚本书写格式的差别在于：
  自身接口需要在对象名后面加object再加属性名或方法名，
  封装接口就不用在对象名后面加object。

比如操作JavaEdit对象，通过QTP封装的封装接口，脚本如下：
  设置JavaEdit的内容：
     JavaDialog("Add NE").JavaEdit("NE Name").Set "NE1"
  读取JavaEdit的内容：
     msgbox JavaDialog("Add NE").JavaEdit("NE Name").GetROProperty("value")

如果通过JavaEdit的自身接口，脚本如下：
  设置JavaEdit的内容：
     JavaDialog("Add NE").JavaEdit("NE Name").object.setText("NE1")
  读取JavaEdit的内容：
     Msgbox JavaDialog("Add NE").JavaEdit("NE Name").object.getText()

QTP执行JavaEdit().Set语句时，是通过执行JavaEdit().object.setText()来实现的。
QTP执行JavaEdit().GetROProperty("value"),是通过执行JavaEdit().object.getText()来实现的。
JavaEdit对象的封装接口Set()和GetROProperty("value")，是QTP封装JavaEdit对象的自身接口setText()和getText()而得来的。

对象的封装接口是QTP使用的缺省接口，我们录制出来的脚本都是使用封装接口，大家用的也都是封装接口。
但是封装接口不如自身接口丰富，因为QTP只是封装了部分常用的自身接口嘛。
所以我们在需要时，可以绕过封装接口，直接调用对象的自身接口。
不过有些自身接口不够稳定，在实践中偶尔会出现问题，但是概率很少。
封装接口有相应功能的话，就尽量用封装接口吧！

理解了封装接口和自身接口的原理，我们就可以更加灵活的操作对象了。

但是我们怎么知道对象都有哪些封装接口和自身接口呢？
其实很简单，用对象查看器（Object Spy）查看对象，在查看窗口里有列出这些接口，包括属性和方法。
窗口中间有选择栏让你选择Run-time Object或者Test Object，
当你选择Run-time Object时，它显示的就是对象的自身接口（自身的属性和方法）
当你选择Test Object时，它显示的就是对象的封装接口（封装的属性和方法）

明白了这些，你还等什么呢？快拿起对象查看器，看看对象都有哪些封装接口和自身接口，肆意的操作它，玩弄它吧！

原始链接：http://bbs.51testing.com/thread-13554-1-1.html

将 Descrīption 对象用于编程描述
使用 Descrīption 对象可以返回包含一组 Property 对象的 Properties 集合对象。Property 对象由属性名和值组成。然后，可以在语句中指定用返回的 Properties 集合代替对象名。（每个 property 对象都包含一个属性名和值对。）

注意：默认情况下，添加到 Properties 集合的所有 Property 对象的值都将作为正则表达式处理。因此，如果希望输入包含特殊正则表达式字符（例如 *、? 和 +）的值，请使用 \（反斜杠）字符指示 QuickTest 将特殊字符作为文字字符处理。有关正则表达式的详细信息，请参阅了解和使用正则表达式。

可以将 RegularExpression 属性设置为 False，以便将集合中特定 Property 对象的值指定为文字值。有关详细信息，请参阅《QuickTest Professional Object Model Reference》（英语版）的“实用程序”部分。

要创建 Properties 集合，可以使用以下语法输入 Descrīption.Create 语句：

Set MyDescrīption = Descrīption.Create()

创建 Properties 对象（例如，以上示例中的 MyDescrīption）后，就可以输入语句，以便在运行会话期间在 Properties 对象中添加、编辑、删除或检索属性和值。这样，您可以在运行会话期间，使用动态方法确定哪个属性以及多少个属性应包含在对象描述中。

在 Properties 集合中填充一组 Property 对象（属性和值）后，可以在测试语句中指定用 Properties 对象代替对象名。

例如，您无须输入：

Window("Error").WinButton("text:=OK", "width:=50").Click

而可以输入：

Set MyDescrīption = Descrīption.Create()
MyDescrīption("text").Value = "OK"
MyDescrīption("width").Value = 50
Window("Error").WinButton(MyDescrīption).Click

注意：在测试对象层次中的特定位置使用编程描述后，在相同语句中该位置的后面部分，必须继续使用编程描述。如果在层次中使用编程描述说明的其他对象的后面，您按对象库名指定了某个测试对象，则 QuickTest 将无法识别该对象。

例如，您可以使用 Browser(Desc1).Page(Desc1).Link(desc3)，因为该语句在整个测试对象层次中使用编程描述。

您也可以使用 Browser("Index").Page(Desc1).Link(desc3)，因为该语句从描述中的特定位置（从 Page 对象描述开始）开始使用编程描述。

不过，您不能使用 Browser(Desc1).Page(Desc1).Link("Example1")，因为该语句对 Browser 和 Page 对象使用编程描述，但又试图对 Link 测试对象使用对象库名（QuickTest 尝试根据名称来查找 Link 对象，但无法在库中找到该对象，因为父对象是使用编程描述指定的）。

使用 Properties 对象时，可以将变量名用于属性或值，以便根据运行会话期间检索的属性和值来生成对象描述。

如果希望对多个对象使用编程描述，则可以在测试或组件中创建多个 Properties 对象。

 

录制的脚本：

Dialog("Login").WinEdit("Agent Name:").Type "YYYYYY"
Dialog("Login").WinEdit("Agent Name:").Set "yyyyy"
Dialog("Login").WinEdit("Password:").SetSecure "45e7bace1f2e4161d1f6108a1151235a46dde145"
Dialog("Login").WinEdit("Password:").Type  micReturn
Dialog("Flight Reservations").WinButton("确定").Click
用描述性编程编写的脚本
Dialog("text:=Login").WinEdit("attached text:=Agent Name:").Set "YYYY"
Dialog("text:=Login").WinEdit("attached text:=Password:").SetSecure "45e7b79479d8c49df2749048f22ae14fd5437c8b"
Dialog("text:=Login").WinButton("text:=OK").Click
Dialog("text:=Flight Reservations").WinButton("text:=确定").Click

当然值得注意的是,如果父对象用描述性编程表示了,那么后面的对象都要用描述性编程表示了.如:

Dialog("text:=Login").WinEdit("attached text:=Agent Name:").Set "mercury"

这边Dialog("text:=Login")用描述性编程表示了,那么WinEdit("attached text:=Agent Name:")
就必须要描述性编程表示了.因为在对象库中,子对象是依靠父对象存在的.所以如果Dialog("text:=Login")
这个父对象从对象库中删除了,那么后面的子对象也同时被删除了.反过来子对象删除就不影响父对象.所以
子对象可以单独用描述性编程表示,而不需牵连其他对象.

 

假设c盘下有MyFuction.vbs这个脚本
Function MessgeBox()
msgbox "test!"
End Function

方法一
ExecuteFile  "c:\MyFuction.vbs"
MessgeBox()
方法2
选择菜单 test---〉settings---〉resourse
点击加号，选择vb脚本的路径点击 ok
在expert view 中输入
MessageBox()

qtp 基础代码---转载自51testing中的kai_top 网友。

1 生产随机数列
第一种方法

CODE:

[Copy to clipboard]

randomize'更新反回的数据
funcation rand(k,n)
n=int((k-1)*rnd+1)
rand=n
end funcation

第二种方法

CODE:

[Copy to clipboard]

n=randomnumber.value(1,255)

2  当运行到表中的某一行，自动导出表中的所有数据

CODE:

[Copy to clipboard]

row=datatable.getcurrentrow
if row="5" then
  datatable.export("d:\data.xml")
end if

3

CODE:

[Copy to clipboard]

webedit("txtpass").setsecure"sdsdf...."

如果参数化密码，可以直接在数据表中写入未加密的密码，它会自动识别，即不用把setsecure改为set
4　如果弹出对话框就获取上面提示信息并与表中的信息对比，不统一证明弹出的提示出错,主要用来验证

CODE:

[Copy to clipboard]

　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形式下的一种省略形式；完整形式
是:

CODE:

[Copy to clipboard]

datatable.value("num",dtlocalsheet)

-----向某一列的单元格赋值:

CODE:

[Copy to clipboard]

datatable.value("column_name",dtlocalsheet)="nanjing"

-----取得某一行具体值：

CODE:

[Copy to clipboard]

datatable.setcurrentrow(n)
msgbox(datatable.getsheet("global").getparameter("column_name").Rawvalue)
或者kk=datatable.Rawvalue("column_name","action1")

----在run-time时，动态添加表格与数据

CODE:

[Copy to clipboard]

kk=datatable.addsheet("sheet_name").addparameter("column_name","value").name;

6  简化代码，明晰结构的方式with--end with 结构：

CODE:

[Copy to clipboard]

with Dialog("name")
       c1=.button("b_name").click'//等价于Dialog("name").button("b_name").click
end with

7   wintreeview一些操作

CODE:

[Copy to clipboard]

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

8   数据库检查点模块:

CODE:

[Copy to clipboard]

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   换行符

CODE:

[Copy to clipboard]

vbcr----chr(13)回车符
    vblf----chr(10)换行符
    vbcrlf----chr(13)+chr(10)结合

10  Run from step有两种方式：

CODE:

[Copy to clipboard]

在Keyword View模式会从本步骤运行到所有action结束
在expert view模式仅会将本action运行结束

11  对于属性是变化的，有时可以把该属性从识别对象里删除，来解决识别问题
12  对系统文件的操作

CODE:

[Copy to clipboard]

-------从系统的文件中获取信息及删除文件
  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   等待某个对象出现方法

CODE:

[Copy to clipboard]

y=......waitproperty("visible",true,10000)

14   防程序中断方法

CODE:

[Copy to clipboard]

On error resume next
On error goto handle

15  数组的应用:

CODE:

[Copy to clipboard]

name=array(1,2,"aa","bb")
name(2)="aa"

16  正则表达式应用模板

CODE:

[Copy to clipboard]

进行日期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   返回一个字符串在另一字符串中的位置

CODE:

[Copy to clipboard]

instr(string1,string2)

18   有时回放出现找不到对象时，可能不是由于你的代码问题，而是由于你的操作系统等设置问题；

CODE:

[Copy to clipboard]

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

19  "is+*"类型function

CODE:

[Copy to clipboard]

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