`
tengzejun508
  • 浏览: 27218 次
  • 性别: Icon_minigender_1
  • 来自: 上海
社区版块
存档分类
最新评论

京东网京东快报超级链接验证

    博客分类:
  • QTP
阅读更多

SystemUtil.Run "http://www.jd.com/"'打开京东网
wait 3
set object=Browser("京东网上商城-综合网购首选(JD.COM)-正品低价、品质保").Page("京东网上商城-综合网购首选(JD.COM)-正品低价、品质保").Object

'获取link所在位置的父父节点
set getdiv=object.getElementById("jdnews")
'获取link所在位置的父节点
Set getli=getdiv.getElementsByTagName("li")
'由于li有多个,所以循环每一个li
For It = 0 To getli.length-1 Step 1
    '获取每一个li子节点
    set aobject=getli(it).getElementsByTagName("a")
    For i = 0 To aobject.length-1 Step 1
        '获取<a>标签中超链接地址
        url = aobject(i).href
        '点击
        aobject(i).click
        index=it+1
        '设置同步点,你可以到网上查sync的用法
        Browser("creationTime:="&index).Page("index:=0").Sync
        '获取点击超链后浏览器中url地址
        url1=Browser("creationTime:="&index).Page("index:=0").GetROProperty("url")
        '获取点击超链后浏览器中标题
        title=Browser("creationTime:="&index).Page("index:=0").GetROProperty("title")
        'strcomp函数的用法,请你到网上查看详细用法
        If StrComp(trim(url),Trim(url1))=0 Then
            Reporter.ReportEvent micPass,"pass"&title,"pass"
        End If
    Next
    
Next

分享到:
评论

相关推荐

Global site tag (gtag.js) - Google Analytics