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