GetROProperty、GetTOProperty、GetTOProperties、WaitProperty的使用以及如果在多个Action中使用Function Library调用子函数或者子过程
'The following example uses the GetTOProperties method to return a
'Property collection containing the test object descrīption
'(properties and values) for the All kind of Link object.
'It then displays the property name and value of each property in
'the returned collection.
'定义一个名称为GetTOProperties_Example（）的子过程
SubGetTOProperties_Example()
'将对象赋值给一个变量
SetLinkObject = Browser("Google").Page("地震 - Google 搜索").Link("地震的相关链接")
'获取该对象的所有属性，能够明确识别对象的属性
SetProps = LinkObject.GetTOProperties
'获取对象属性个数并赋值给一个对象
PropsCount = Props.Count
'用一个for循环将该对象的属性值输出来
Fori = 0ToPropsCount - 1
PropName = Props(i).Name
PropValue = Props(i).Value
MsgBoxPropName & " == " & PropValue
Next
End Sub
Browser("Google").Page("Google").WebEdit("q").Set "地震"
Browser("Google").Page("Google").WebEdit("q").Submit
'GetROProperty: 获取当前对象（link对象）的运行时属性值，该属性不是从对象库中获取的 RO：Runtime Object
MsgBoxBrowser("Google").Page("地震 - Google 搜索").Link("地震的相关链接").GetROProperty("text")
'GetTOProperty:获取当前对象（link对象）的对象属性值，该属性是从对象库中获取的 TO：Test Object
MsgBoxBrowser("Google").Page("地震 - Google 搜索").Link("地震的相关链接").GetTOProperty("text")
'GetTOProperties_Example:调用子过程，获取当前对象（link对象）的所有属性值，主要是那些用于识别对象的属性值
Call GetTOProperties_Example()
'WaitProperty:等待一段时间，查看该对象的属性和属性值是否匹配，有三个参数：属性、属性值、等待时间，
'其中属性和属性值是必须的，等待时间是可选的，该对象的返回值为Boolean值：True、False，该处返回True
MsgBoxBrowser("Google").Page("地震 - Google 搜索").Link("地震的相关链接").WaitProperty("text","地震的相关链接")
'SetTOProperty:该值可以用来改变对象库中对象的属性值，可用于对固定值进行参数化，比如：在google中进行搜索
'当输入“地震”一词的时候，会出现很多的链接，如果想同时打开多个链接的话，一个一个点非常不方便，所以就可以用
'SetToProperty方法进行参数化，如下，此时该对象（link对象）的text属性值已经被修改为“地震_百度百科”
'该函数必须在Browser("Google").Page("地震 - Google 搜索").Link("地震的相关链接").Click前使用
Browser("Google").Page("地震 - Google 搜索").Link("地震的相关链接").SetTOProperty"text","地震_百度百科"
'因为（link对象）的text属性值已经被修改为“地震_百度百科”，所以如果再用WaitProperty查看该属性值时，返回值为False
MsgBoxBrowser("Google").Page("地震 - Google 搜索").Link("地震的相关链接").WaitProperty("text","地震的相关链接")
Browser("Google").Page("地震 - Google 搜索").Link("地震的相关链接").Click
Browser("汶川地震 - Google 资讯").Page("汶川地震 - Google 资讯").Sync
Browser("汶川地震 - Google 资讯").Close
Browser("Google").Page("地震 - Google 搜索").Sync
Browser("Google").Close
'调用子函数的方法：
'1、将函数直接写在该Action中
'2、如果想让该函数能够在多个Action中被调用，那么需要用到Function Library，步骤如下：
' (1) 将该函数写在记事本中并保存: SetToProperty_Example.txt(该处qtp加载到Library库中时好像与后缀名无关)
' (2) QTP->Test->Setting->Resources:将保存下来的函数SetToProperty_Example.txt导入到Library库
' (3) 在脚本中调用该函数：Call SetToProperty_Example()
' (4) 运行脚本，一切ok，在任意一个Action中都可以调用（Call）该函数咯
