《精通QTP-自动化测试技术领航》学习笔记2-link对象

测试需求：在51testing论坛[我要做专家]版块搜索是否存在指定的链接

代码：

systemutil.Run "www.51testing.com"
Browser("百度一下，你就知道").Page("51Testing软件测试网-中国软件测试人的精神家园").Link("软件测试论坛").Click
wait 2
titletst=Browser("51Testing软件测试论坛 软件测试 -").Page("51Testing软件测试论坛 软件测试 -").GetROProperty("title")
'如果titletst中含有“论坛”，说明登录成功
If Instr(titletst,"论坛")<>0 Then
reporter.ReportEvent micPass ,"登录论坛成功","passed"
else
reporter.ReportEvent micFail,"登录论坛失败","failed"
End If
'关闭首页
Browser("百度一下，你就知道").Close
'进入“我要做专家”版块
Browser("百度一下，你就知道").Page("51Testing软件测试论坛 软件测试 -").Link("我要做专家").Click
titletst=Browser("51Testing软件测试论坛 软件测试 -").Page("51Testing软件测试论坛 软件测试 -").GetROProperty("title")
'如果titletst中含有“专家”，说明进入成功
If Instr(titletst,"专家")<>0 Then
reporter.ReportEvent micPass ,"进入专家版块成功","passed"
else
reporter.ReportEvent micFail,"进入专家版块失败","failed"
End If
'使用描述性编程验证专家版块列表中是否存在两个指定的链接
'第一步：创建一个空属性的对象
Set olink=description.Create()
'第二步：给空属性对象添加属性micclass,并赋值为“Link”
olink("micclass").Value="Link"
'获取页面对象中所有的link子对象
Set lists=Browser("51Testing软件测试论坛 软件测试 -").Page("51Testing软件测试论坛 软件测试 -").ChildObjects(olink)
numberoflists = lists.count()
'msgbox numberoflists
'标志位
mark=0
'需查看是否存在的两个预期数据
twentyfour="[你问我来答第24期]：我有问题问小云？(已结束)"
four="[你问我来答第4期]：测试团队管理交流（已结束）"
'遍历当前页面中所有link
For i = 0 To numberoflists-1
  linkname=Trim(Browser("51Testing软件测试论坛 软件测试 -").Page("51Testing软件测试论坛 软件测试 -").Link("micclass:=Link","index:="&i).GetROProperty("innertext"))
  If linkname=twentyfour or linkname=four Then
   mark=mark+1
  End If
  If mark=2 Then
   reporter.ReportEvent micPass ,"指定的链接存在","passed"
   Exit for
  End If
  If i=numberoflists-1 Then
   reporter.ReportEvent micFail  ,"指定的链接不存在","failed"
  End If
Next

 知识点整理：

1.instr函数：返回一个字符串在另一个字符串中首次出现的位置

格式：instr（[start]string1,string2,[compare]）:start:开始搜索的位置；string1：源字符串；string2：需在源字符串中查找字符串；compare:比较方式（默认为0，表示按二进制比较；为1，表示按文本比较）

2.childobjects函数：返回对象包含的字对象的集合

3.第二种描述编程方式：

1）第一步：创建空属性对象

set object=description.create()

2) 第二步：添加属性和属性值

object("属性名")=“属性值”