VB.net - 디시 댓글 클리너

VB.net - 디시 댓글 클리너

정상 작동하는지 까지만 확인했습니다.

IP 차단 위험성이 존재합니다

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("https://gallog.dcinside.com/")
    End Sub

    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_blocker1 As String = "window.confirm=function(){return true;}"
        Dim alert_blocker2 As String = "window.alert=function(){return true;}"
        Dim alert_blocker3 As String = "window.close=function(){}"
        script_element.SetAttribute("text", alert_blocker1)
        head.AppendChild(script_element)

        script_element.SetAttribute("text", alert_blocker2)
        head.AppendChild(script_element)

        script_element.SetAttribute("text", alert_blocker3)
        head.AppendChild(script_element)
    End Sub

    Private Sub WebBrowser1_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
        Inject_Alert_Blocker()
        WebBrowser1.ScriptErrorsSuppressed = True
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        On Error Resume Next

        For Each divSect As HtmlElement In WebBrowser1.Document.GetElementsByTagName("div")
                If divSect.OuterHtml.Contains("btn_box fr cont_btnbox") Then
                    For Each elem As HtmlElement In divSect.Children
                        If elem.GetAttribute("className") = "btn_delete btn_svc btn_lightgrey smaller" Then
                            elem.InvokeMember("click")
                        End If
                    Next
                End If
            Next

    End Sub
End Class

 

필요 컨트롤 - WebBrowser, Button, Timer

댓글말고 게시글도 위 코드 응용해서 지우면 됨

 

2021.05.08 - [VB.NET] - VB.NET - WebBrowser 메세지 창 제어

2021.05.10 - [VB.NET] - VB.net - WebBrowser의 Button 클릭하기