728x90
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
댓글말고 게시글도 위 코드 응용해서 지우면 됨
'VB.NET' 카테고리의 다른 글
NateOn_TeamRoom_API_CURL_POST_HttpWebRequest (0) | 2022.07.22 |
---|---|
VB.NET - ImageSearchDLL.dll 이미지서치 (0) | 2021.05.12 |
VB.net - WebBrowser의 Button 클릭하기 (0) | 2021.05.10 |
VB.NET - WebBrowser 메세지 창 제어 (0) | 2021.05.08 |