프로그래밍 블로그

VB.net - WebBrowser의 Button 클릭하기

참조 링크 - 

docs.microsoft.com/ko-kr/dotnet/api/system.windows.forms.htmlelement?view=net-5.0

stackoverflow.com/questions/52375257/click-on-a-button-in-a-webbrowser-control

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("https://www.daum.net")
    End Sub

        For Each divSect As HtmlElement In WebBrowser1.Document.GetElementsByTagName("div")
            If divSect.OuterHtml.Contains("inner_search") Then
                For Each elem As HtmlElement In divSect.Children
                    If elem.GetAttribute("className") = "ico_pctop btn_search" Then
                        elem.InvokeMember("click")
                    End If
                Next
            End If
        Next

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