Link 控件测试实例

SystemUtil.Run "www.51testing.com":wait 5

Browser("51Testing软件测试网").Page("51Testing软件测试网").Link("软件测试论坛").Click51Testing软件测试网as LU6N2y(~@h

'关闭51tesing的首页

Browser("51Testing软件测试网").Close 

a=Browser("51Testing软件测试网").Page("51Testing软件测试论坛软件测试|").GetROProperty("title")51Testing软件测试网9e&I2g3r.[6J,V(q:K v

If Instr(1,a,"论坛")<>0 Then

        reporter.ReportEvent micPass,"到论坛页面的跳转操作","成功"51Testing软件测试网p[}1RMj)K5Y

        else51Testing软件测试网D9x'hapx

        reporter.ReportEvent micFail,"到论坛页面的跳转操作","失败"

End If

Set object_link =description.Create()51Testing软件测试网7M5c^"V%Q4`8}

    object_link("MicClass").value="Link"

set links=Browser("51Testing软件测试网").Page("51Testing软件测试论坛软件测试|").ChildObjects(object_link)

linknumber=links.count51Testing软件测试网:V3D
l
n0IN-G

 51Testing软件测试网 t:{m4_v']%O;u

mark=0 '设立标志位

For i=0 to linknumber-1

linkname= Trim(links(i).getroproperty("innertext"))51Testing软件测试网N#u
z&Q~Y1}/Z&m

If linkname="[软件配置管理]" or linkname="[QuickTest Pro]" Then51Testing软件测试网/k$Ls:{#Bg;A

    mark=mark+1

End If

If mark=2 Then51Testing软件测试网#F!x*fejR

        Reporter.ReportEvent micPass,"查找连接名测试","通过"

        Exit for

End If

 51Testing软件测试网_q]GP9QL6b0R

If i=linknumber-1 Then51Testing软件测试网6o$l~,so2RLs

        reporter.ReportEvent micFail,"查找连接名测试","失败"51Testing软件测试网9Ven/PsOm

End If51Testing软件测试网d JfNe

Next51Testing软件测试网+A:e(t]Eg!IP `

 51Testing软件测试网@_ m'@n"l~(`

 51Testing软件测试网+l^
` q0G kFa