프로그래밍 블로그

VB.NET - WebBrowser 메시지 창 제어

(blog.naver.com/lsc980109/220967886886 소스 참고하였음)

소스

    Private Sub Inject_Alert_Blocker()
        Dim head As HtmlElement = WebBrowser1.Document.GetElementsByTagName("head")(0)
        Dim script_element As HtmlElement = WebBrowser1.Document.CreateElement("script")
        Dim alert_blocker As String = "###"
        script_element.SetAttribute("text", alert_blocker)
        head.AppendChild(script_element)
    End Sub


    Private Sub WebBrowser1_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
        Inject_Alert_Blocker()
    End Sub

Dim alert_blocker As String = "###"

### 소스

1. "window.confirm=function(){return true;}"
2. "window.alert=function(){return true;}"
3. "window.close=function(){}"

return 값 : true = 확인, false = 취소

nancording.tistory.com/7

비주얼베이직 6.0 소스

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.parentWindow.execScript "window.confirm=function(){return true;}", "JavaScript"
WebBrowser1.Document.parentWindow.execScript "window.alert=function(){return true}", "JavaScript" 
WebBrowser1.Document.parentWindow.execScript "window.close=function(){}", "JavaScript" 
End Sub