Dim sRet = "" Dim bRet = "" Dim hWeb = "" hWeb = WebBrowser.Create("chrome","https://uland.taobao.com/sem/tbsearch?refpid=mm_26632258_3504122_32538762&keyword=%E5%A5%B3%E8%A3%85&clk1=83e7a67ee7027cf3ef33549cb29f8cf1&upsId=83e7a67ee7027cf3ef33549cb29f8cf1",30000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200,"sBrowserPath":"","sStartArgs":""})
dim idx=0 Do Try #icon("@res:pvp78qp8-m28k-fbkm-oavp-oth3i9gqfp89.png") sRet = UiElement.GetValue({"wnd":[{"cls":"Chrome_WidgetWin_1","title":"*","app":"chrome"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"html":[{"tag":"A","parentid":"mx_5","aaname":"*","idx":idx}]},{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200}) TracePrint sRet Catch TracePrint "超出本页最大数量" Break End Try idx=idx+1 Loop While true and idx<100