下面这段代码在提取网页数据时，速度很慢，如何优化提取网页数据速度？谢谢Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True '解决网页页面的脚本错误提示
web.Navigate("https://ggzy.hzctc.hangzhou.gov.cn/OpenBidRecord/Index?id=AB39801E-8F6B-4729-9B42-4242DDA677FF&tenderID=F0A1B013-7400-4F60-8799-DC8C0827D6D9&IsHistory=0&ModuleID=486")
Do Until web.ReadyState = 4 AndAlso web.Document.GetElementById("Table1") IsNot Nothing
Application.DoEvents '绘制控件的代码即刻生效
Loop
Dim elems As Object = web.Document.GetElementsByTagName("div") '可以根据你指定的参数,找出html源码中或xml内所有标签名称等于该参数的元素
'th 代表表的列名
elems = web.Document.GetElementById("Table1").GetElementsByTagName("th") '方法可返回对拥有指定 ID 的第一个对象的引用
For i As Integer = 0 To elems.Count - 1
Output.Show(elems(i).InnerText)
Next
elems = web.Document.GetElementById("Table1").GetElementsByTagName("tr") 'GetElementsByTagName()方法可返回带有指定标签名的对象的集合
For n As Integer = 1 To elems.Count - 2
Dim tds = elems(n).GetElementsByTagName("td")
For tn As Integer = 0 To tds.Count - 1
Output.Show(tds(tn).InnerText)
Next
Next