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