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 '调用后面的printnvprintnv editcountprintnv (editcount) '定义Sub过程 ：printvSub printnv (tcount)For i=1 to tcount       objname=myedit(i).name       objvalue=myedit(i).value       msgbox "The ["&objname&"]'s value is ["&objvalue&"]"NextEnd 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