主题：[求助]我想监测主页不被串改，想提醒

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

msgbox(data)

但是网页兼容性问题，弹出提示框，应该怎么去屏蔽，不影响下面代码的执行？