京东网：疯狂抢购、猜您喜欢等模块下的图片超链接自动化测试

SystemUtil.Run "http://www.jd.com" 

set obj=Browser("京东网上商城").Page("京东网上商城").Object
rowCount=DataTable.GetSheet("Action1").GetRowCount
For i = 1 To rowCount Step 1
    DataTable.SetCurrentRow i
    text=DataTable.Value("A",2)
'    Browser("京东网上商城-综合网购首选（JD.COM）-正品低价、品质保").Page("京东网上商城-综合网购首选（JD.COM）-正品低价、品质保").WebElement("热评商品").FireEvent "onmouseover"
'    Browser("京东网上商城-综合网购首选（JD.COM）-正品低价、品质保").Page("京东网上商城-综合网购首选（JD.COM）-正品低价、品质保").WebElement("热评商品").Click
'    msgbox Browser("京东网上商城").Page("京东网上商城").WebElement("innertext:=热卖商品","index:="&i).GetROProperty("innerText")
    Browser("京东网上商城").Page("京东网上商城").WebElement("innertext:="&text,"index:=1").FireEvent "onmouseover"
    set hotDiv=obj.getElementByID("hot")
    Set hotDiv1=hotDiv.getElementsByTagName("div")
    fore="fore"&i
    For j = 0 To hotDiv1.length-1 Step 1
        
        If strcomp(fore,left(hotDiv1(j).getAttribute("class"),5))=0 Then
            set hotLi=hotDiv1(j).getElementsByTagName("li")
            For li = 0 To hotLi.length-1 Step 1
                set hotdiv2=hotLi(li).getElementsByTagName("div")
                classname="p-img ld"
                For z = 0 To hotdiv2.length-1 Step 1
                     If strcomp(classname,hotDiv2(z).getAttribute("class"))=0 Then
                       set aobject=hotdiv2(z).getElementsByTagName("a")
                       aobject(0).click
                       url=Browser("creationTime:=1").page("index:=0").GetROProperty("url")
                       title= Browser("creationTime:=1").page("index:=0").GetROProperty("title")
                       text1=aobject(0).href
                       
                      If StrComp(text1,Trim(url))=0 Then
                          Reporter.ReportEvent micPass,text1&"="&url&"::"&title,"pass"
                          
                          Browser("creationTime:=1").close
                          
                      End If
                        
                   End If
               Next
            Next
            
            
        End If
    Next
    
Next