VB.Net刷点击



如何能够快速的增长博客的点击量呢~

我用的是WebBrowser 控件，访问要刷点击的文章。定时器定时刷新，同时清除本地的cookie。就可以实现刷点击啦。

1. Public webBrowNum As Integer = 0  
2. Public webBrowUrl As String = ""  
3. Public articleList As List(Of String) = New List(Of String)  
4.   
5. Private Declare Function GetUrlCacheEntryInfo Lib "wininet.dll" Alias "GetUrlCacheEntryInfoA" (ByVal sUrlName As String, ByRef lpCacheEntryInfo As IntPtr, ByRef lpdwCacheEntryInfoBufferSize As IntPtr) As Integer  
6. Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Integer  

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

1. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load  
2.     articleList.Add("http://blog.csdn.net/u013162930/article/details/47606875")  
3.     articleList.Add("http://blog.csdn.net/u013162930/article/details/47396257")  
4.     articleList.Add("http://blog.csdn.net/u013162930/article/details/48316613")  
5.     articleList.Add("http://blog.csdn.net/ld_____/article/details/48133523")  
6.   
7.     Dim skipInterval As Integer = 2000  
8.     WebBrowser1.ScriptErrorsSuppressed = True  
9.     WebBrowser1.Navigate("http://blog.csdn.net/u013162930?viewmode=list")  
10.     WebBrowser1.Refresh()  
11.     Timer1.Interval = skipInterval  
12.     Timer1.Enabled = True  
13. End Sub  

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadarticleList.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 = 2000WebBrowser1.ScriptErrorsSuppressed = TrueWebBrowser1.Navigate("http://blog.csdn.net/u013162930?viewmode=list")WebBrowser1.Refresh()Timer1.Interval = skipIntervalTimer1.Enabled = True
End Sub

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

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.TickwebBrowUrl = articleList(webBrowNum)webBrowNum = webBrowNum + 1If webBrowNum >= articleList.Count ThenwebBrowNum = 0End IfinterviewUrl()
End Sub

1. Private Sub interviewUrl()  
2.     TextBox1.Text = webBrowUrl  
3.     WebBrowser1.Navigate(webBrowUrl)  
4.     WebBrowser1.Refresh()  
5.     Application.DoEvents()  
6.   
7.     '清除Cookie  
8.     If WebBrowser1.Document.Cookie IsNot Nothing Then  
9.         WebBrowser1.Document.Cookie.Remove(0, WebBrowser1.Document.Cookie.Count)  
10.     End If  
11.     Application.DoEvents()  
12.     If (InCache("http://blog.csdn.net")) Then  
13.         DeleteCacheURL("http://blog.csdn.net")  
14.     End If  
15. End Sub  

Private Sub interviewUrl()TextBox1.Text = webBrowUrlWebBrowser1.Navigate(webBrowUrl)WebBrowser1.Refresh()Application.DoEvents()'清除CookieIf WebBrowser1.Document.Cookie IsNot Nothing ThenWebBrowser1.Document.Cookie.Remove(0, WebBrowser1.Document.Cookie.Count)End IfApplication.DoEvents()If (InCache("http://blog.csdn.net")) ThenDeleteCacheURL("http://blog.csdn.net")End If
End Sub

学好技术，写好博文才是王道。

不然也不好意思多刷啊~

转载于http://blog.csdn.net/u013162930/article/details/48340029

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！