Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://eso.deqsafety.gov.cn/dqaj/")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
'取数据网页标题
Dim data As String = web.Document.title
msgbox(data)
'取数据网页内容
data = web.Document.Body.InnerText
但是网页兼容性问题,弹出提示框,应该怎么去屏蔽,不影响下面代码的执行?