QTP学习笔记之2.2 －－Object Repository相关示例代码

2.2.1对象属性和方法

1、GetToProperties：获取对象库中某对象的所有属性值（通过对象封装接口）

2、GetToProperty：获取对象库中对象的属性值（通过对象封装接口）

3、SetToProperty：修改对象库中对象的属性值（通过对象封装接口）

4、GetRoProperty：获取运行时对象的属性值（通过对象封装接口）

5、Object：用于访问运行时对象的方法和属性。（通过对象自身接口）

注：使用SetToProperty方法所做的任何更改只适用于测试运行过程，而不会影响存储在测试对象库中的值。

 

GetToProperties示例：

'获取用户名输入框对象的所有属性及其值。

'set：将对象引用赋给一个变量或引用。

Set myedit=Browser("街道安全生产监管信息系统").Page("街道安全生产监管信息系统").WebEdit("j_username").GetTOProperties( )

 

Dim i, editcount

'count:使用count属性，返回集合中的数目项，只读属性。

editcount=myedit.count-1

 

'msggox输出值。此处用于调试统计值是否正确？

msgbox editcount

 

'调用后面的printnv

printnv editcount

printnv (editcount)

 

'定义Sub过程 ：printv

Sub printnv (tcount)

For i=1 to tcount

       objname=myedit(i).name

       objvalue=myedit(i).value

       msgbox "The ["&objname&"]'s value is ["&objvalue&"]"

Next

End Sub

 

 

GetToProperty、SetTOProperty示例：

 

Set mylink=Browser("百度一下，你就知道").Page("百度一下，你就知道").Link("知 道")

 

oldname=mylink.GetTOProperty("name")

msgbox oldname

'直接使用"text"的话输出“知道”，但直接输出url却是为空的，这是因为：

'对象库添加"知道"链接的时候，默认的属性只有“text”和“”html tag",需要自己手动添加“URL”进入属性列表才会有结果

linkurl=mylink.GetTOProperty("url")

msgbox linkurl

 

mylink.SetTOProperty "name","ooo"

newname=mylink.GetTOProperty("name")

msgbox newname

 

SetTOProperty、GetROProperty示例：

 

'用百度对象库中的对象去控制Google搜索框中的对象，实现google输入框中的文字输入

'方法：只需要更改输入框的对象库

'为什么Browser和Page这两个对象不需要更改呢？ 原因：查看对象库可知，其默认属性为空，只通过类型来判断。其类型相同。

'但如果添加了手动添加了属性值，（如果开启了智能识别机制，且当前只打开一个Browser，则不会报错）

Set ooobaidu=Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd")

ooobaidu.SetTOProperty "Name","q"

ooobaidu.set "ooogoogle"

 

inputname=ooobaidu.GetROProperty("name")

msgbox inputname