主题：关于提取网页内容的问题

Dim web As new System.Windows.Forms.WebBrowser
Dim web1 As New System.Windows.Forms.WebBrowser
web.Navigate("http://125.35.6.84:81/xk")
Do Until web.ReadyState = 4 AndAlso web.Document.GetElementById("gzlist").GetElementsByTagName("li").count > 1
    Application.DoEvents
Loop
For Each dl As object In web.Document.GetElementById("gzlist").GetElementsByTagName("li")
    'If dl.GetElementsByTagName("i").count > 0 Then
        Output.show(dl.GetElementsByTagName("i")(0).innerText)
    'End If
Next