Dim web As new windows.forms.webbrowser
web.ScriptErrorsSuppressed = True
web.Navigate("http://weidian.eallcn.com/232621561/mmfy/mmfydetail/id=3603988")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
'Functions.Execute("logs",web.Document.body.outerhtml)
For Each dl As object In web.Document.GetElementsByTagName("DIV")
If dl.GetAttribute("classname") = "fyxxybox1" OrElse dl.GetAttribute("classname") = "fyxxybox2" Then
msgbox(dl.Innertext)
'Dim lis = dl.GetElementsByTagName("fyxxybox2")
'For Each li As object In lis
'output.show(li.GetAttribute("style"))
'Next
End If
Next
加好友 
发短信
Post By：2016/9/21 17:16:00 [显示全部帖子]
