VB.Net 브러시 클릭

어떻게 하면 블로그의 조회수를 빠르게 늘릴 수 있을까~
웹브라우저 컨트롤을 사용해서 클릭할 글에 접근합니다.타이머가 타이머로 갱신되며 로컬 쿠키를 지웁니다.스밍 클릭이 가능합니다.

Public webBrowNum As Integer = 0
Public webBrowUrl As String = ""
Public articleList As List(Of String) = New List(Of String)

Private Declare Function GetUrlCacheEntryInfo Lib "wininet.dll" Alias "GetUrlCacheEntryInfoA" (ByVal sUrlName As String, ByRef lpCacheEntryInfo As IntPtr, ByRef lpdwCacheEntryInfoBufferSize As IntPtr) As Integer
Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Integer

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    articleList.Add("http://blog.csdn.net/u013162930/article/details/47606875")
    articleList.Add("http://blog.csdn.net/u013162930/article/details/47396257")
    articleList.Add("http://blog.csdn.net/u013162930/article/details/48316613")
    articleList.Add("http://blog.csdn.net/ld_____/article/details/48133523")

    Dim skipInterval As Integer = 2000
    WebBrowser1.ScriptErrorsSuppressed = True
    WebBrowser1.Navigate("http://blog.csdn.net/u013162930?viewmode=list")
    WebBrowser1.Refresh()
    Timer1.Interval = skipInterval
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    webBrowUrl = articleList(webBrowNum)
    webBrowNum = webBrowNum + 1
    If webBrowNum >= articleList.Count Then
        webBrowNum = 0
    End If
    interviewUrl()
End Sub

Private Sub interviewUrl()
    TextBox1.Text = webBrowUrl
    WebBrowser1.Navigate(webBrowUrl)
    WebBrowser1.Refresh()
    Application.DoEvents()

    '  Cookie
    If WebBrowser1.Document.Cookie IsNot Nothing Then
        WebBrowser1.Document.Cookie.Remove(0, WebBrowser1.Document.Cookie.Count)
    End If
    Application.DoEvents()
    If (InCache("http://blog.csdn.net")) Then
        DeleteCacheURL("http://blog.csdn.net")
    End If
End Sub

기술을 잘 배우고, 박문을 잘 쓰는 것이야말로 왕도다.
안 그러면 많이 하기가 좀 그렇잖아요.