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

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 AndAlso web.Document.GetElementsByTagName("dl").count > 0
    Application.DoEvents
Loop

For Each dl As object In web.Document.GetElementsByTagName("div")
    If dl.GetAttribute("ClassName") Like "pagination"
        Dim a = dl.GetElementsByTagName("a")
        msgbox(a(a.count-2).innertext)
    End If
Next