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

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