Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True '解决网页页面的脚本错误提示
'web.Navigate(blwz)
web.Navigate("https://ggzy.hzctc.hangzhou.gov.cn/AfficheShow/Home?AfficheID=41132382-118e-40c5-a1d3-4923e7495b6f&IsInner=0&IsHistory=0&ModuleID=22")
Do Until web.ReadyState = 4 'AndAlso web.Document.GetElementById("zoom") IsNot Nothing '用ID确定属性内容
Application.DoEvents '绘制控件的代码即刻生效
Loop
'''----------
Dim elems As object
elems = web.Document.GetElementsByTagName("tr")
msgbox(elems.count)