Private Sub WebBrowser1_StatusTextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebBrowser1.StatusTextChanged On Error Resume Next Dim head As HtmlElement = WebBrowser1.Document.GetElementsByTagName("head")(0) Dim script As HtmlElement script = WebBrowser1.Document.CreateElement("script") script.SetAttribute("type", "text/javascript") Dim alertBlocker As String = "window.alert = function () { }; window.confirm=function () { }; " script.SetAttribute("text", alertBlocker) head.AppendChild(script) End Sub
source share