主题：[讨论]关于抓取网页~~~~~~~~（一直跟帖讨论，希望有此需要的朋友关注！）

首先提供两个页面地址：

地址一:(淘宝店铺所有宝贝的页面)

地址二：（淘宝宝贝详细页的）

https://item.taobao.com/item.htm?id=527608686691

目的：首先获取地址一，淘宝宝贝的商品列表页内容！

代码如下：

Dim web As new windows.forms.webbrowser
web.Navigate("https://isuddenlysneezed.taobao.com/search.htm?spm=2013.1.0.0.mJJPKY&search=y")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
'output.show(web.document.body.innerhtml)

For Each dl As object In web.Document.GetElementsByTagName("dl")
    If dl.GetAttribute("ClassName") Like "item*"
        output.show(dl.outerhtml)
    End If
Next

获取的内容见二楼！