Dim arrElement
Dim objPoint,sRet,sFloderPath,链接1,arrLink,B列,excel文件名,hWeb,idx
excel文件名="成功获取.xlsx"
objExcelWorkBook = Excel.BindBook(excel文件名)
arrLink = Excel.ReadColumn(objExcelWorkBook,"Sheet1","I1",true)
idx=0
For Each value In arrLink
idx=idx+1
B列= Excel.ReadCell(objExcelWorkBook,"Sheet1","B"&idx,true)
objRetA列=Excel.ReadCell(objExcelWorkBook,"Sheet1","A"&idx,true)
If B列=""
//
// Dim hWeb,iRet,iRet
sFloderPath="O:\\抓取闲鱼图片2\\"&objRetA列&"\\"
If File.FolderExists(sFloderPath)=false
File.CreateFolder(sFloderPath)
End If
hWeb = WebBrowser.Create("chrome",value,30000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"sBrowserPath":"","sStartArgs":""})
IR2=WebBrowser.GoURL(hWeb,value,true,{},30000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
Window.Show(@ui"窗口_闲鱼商品详情-GoogleChrome","max")
Delay(400)
//===============================
Dim 目标链接
#icon("@res:default.png")
arrElement = UiElement.GetChildren({"wnd":[{"cls":"Chrome_WidgetWin_1","title":"*","app":"chrome"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"html":[{"tag":"DIV","parentid":"root","css-selector":"body>div>div>div>div>div>div>div>div>div","idx":1}]},{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200})
i=0
For Each valueOut In arrElement
i =i+1
#icon("@res:default.png")
#icon("@res:default.png")
tempArray = UiElement.GetChildren(valueOut,{"bContinueOnError":False,"iDelayAfter":20,"iDelayBefore":20})
#icon("@res:default.png")
arrElement = UiElement.GetChildren(tempArray[0],{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":20})
目标链接 = arrElement[0]["html"][0]["src"]
目标链接 = Replace(目标链接,"*","0-fleamarket.jpg",False)
目标链接=Replace(目标链接,"\\","",False)
TracePrint(目标链接)
TracePrint(i)
If i >1 And i <11
WebBrowser.Download(hWeb,目标链接,sFloderPath&i&".jpg",true,200000,{"bContinueOnError":true,"iDelayAfter":300,"iDelayBefore":200})
End If
Next
sRet = UiElement.GetValue(@ui"文本<span>_1999年m&m's足球娃娃机m&m糖果机m豆台版足球玩偶全新仅拍照玩偶高约26c",{"bContinueOnError":true,"iDelayAfter":300,"iDelayBefore":200})
Excel.WriteCell(objExcelWorkBook,"Sheet1","B"&idx,sRet,false)
app.Kill("chrome.exe")
Clipboard.SetText("“”")
end if
next