<DllImport("ImageSearchDLL.dll")> _
Public Shared Function ImageSearch(ByVal x1 As Integer, ByVal y1 As Integer, ByVal right As Integer, ByVal bottom As Integer, ByVal findImage As String) As IntPtr
End Function
Dim img As String = ImageSearch(rc.left, rc.top, rc.right, rc.bottom, "*TransFF00FF *50 " & Application.StartupPath & "\" & img & ".png")
'투명값 : *TransFF00FF
'오차율 : *50
'Application.StartupPath : 응용 프로그램의 실행 경로
Dim imgData() As String = Split(Marshal.PtrToStringAnsi(img), "|")
'0 = 성공1, 실패0
'1, 2 = 좌표 x, y
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
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
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
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