QTP Link.Exist

上一篇 / 下一篇 2013-04-18 19:12:45 / 个人分类：QTP

百度首页有很多相同的Link控件，如“新闻”、“网页”、“图片”等，全部添加到对象库很麻烦，那么该如何使用描述性编程完成？

　　首先，先来看下场景图，如图1-190所示。

图1-190

　　一个首页就有接近?20?个相同类别的控件（Link），虽然不多，但是一个个添加也够烦锁的，既然它们是完全相同类型的控件，那么使用描述性编程是一个上佳之选，下面来看这段脚本，看看是如何实现的：

Set baidu = Browser("micClass:=Browser").Page("micClass:=Page")

Print Baidu.Link("name:=新闻").Exist

With baidu

Print .Link("name:=贴吧").Exist

Print .Link("name:=知道").Exist

Print .Link("name:=MP3").Exist

Print .Link("name:=图片").Exist

Print .Link("name:=把百度设为主页").Exist

Print .Link("name:=搜索风云榜").Exist

Print .Link("name:=About Baidu").Exist

End With

Set baidu = Nothing

执行脚本以后的结果就是在Log窗口内写8行True，返回True就说明描述的对象存在了，也就说明描述性编程成功了，如图1-191所示。

　　这段脚本首先用Set将公共部分进行了提炼，这样可以使重复的部分合为一个整体。然后完全还可以进行优化，所以，选择使用With将所有会被复用的代码提炼出来（这里指Baidu），这样整个脚本就显得非常清晰了。

　　这也是描述性编程常用情况之一的最基本的一个情况：同一个界面中出现很多个相同类别的控件元素。

TAG: