博客刷訪問量腳本『羅斌原創』

     
       這個腳本大部分代碼是網上找的,只是通過個人修改就擁有了刷訪問量的腳本了,哈哈。我又根據我的的須要作出兩個版原本,第一個版本是隱藏性的刷,也就是說在刷訪問量的時候是在後臺自動給你刷,不會影響你再去作其餘的操做。而第二個腳本就是直接打開你設定的博客地址進行你設定的時間間隔進行刷新。根據我的喜愛本身選擇一個用吧。哈哈。得記住咯,這個小腳本並不能刷51人氣,只能刷那種點擊訪問一次就加一點訪問量的博客等,像sina博客,51CTO技術博客等等。


第一個腳本(隱祕博客刷訪問量腳本.vbs)


Option Explicit
Dim Http, szBuf, URL, iDelay, i, OverNum, Nums
szBuf = InputBox( "請輸入要刷的網址:", "輸入", " http://luobin.blog.51cto.com/" )
URL = Trim(szBuf)
If 0 = Len(URL) Then WScript.Quit
If 2 = MsgBox( "網址爲:" & URL & vbCrLf & " 您肯定嗎?", 32 + 1, "請確認" ) Then WScript.Quit
OverNum = InputBox( "請輸入要刷的次數", "輸入", "50" )
If IsNumeric(OverNum) Then
NumS = CInt(OverNum)
Else
Wscript.echo "您輸入的不是數字!本程序將退出!"
Wscript.Quit
End If
Do
szBuf = InputBox( "請輸入延遲,單位:秒    (建議每10~30分鐘刷一次!)", "輸入", "10" )
If IsNumeric(szBuf) Then
  iDelay = CInt(szBuf)
  If iDelay > 0 Then
    iDelay = iDelay * 1000
    Exit Do
  End If
End If
Loop
i = 0
Do
Set Http = Createobject("Microsoft.XMLHTTP")
Http.open "GET",Url,false
Http.send
Set Http = nothing
WScript.Sleep iDelay
i = i + 1
If i = Nums Then
'  Msgbox "已經刷完"&i&"次了!"
  Exit Do
End If
Loop




第二個腳本(博客刷訪問量腳本.vbs)

Option Explicit
set os = CreateObject("wscript.shell")
Dim Http, szBuf, URL, iDelay, i, OverNum, Nums ,os
szBuf = InputBox( "請輸入要刷的網址:", "輸入", " http://luobin.blog.51cto.com/" ) URL = Trim(szBuf) If 0 = Len(URL) Then WScript.Quit If 2 = MsgBox( "網址爲:" & URL & vbCrLf & " 您肯定嗎?", 32 + 1, "請確認" ) Then WScript.Quit OverNum = InputBox( "請輸入要刷的次數", "輸入", "50" ) If IsNumeric(OverNum) Then NumS = CInt(OverNum) Else Wscript.echo "您輸入的不是數字!本程序將退出!" Wscript.Quit End If i = 0 os.run  URL Do wscript.sleep 10000 os.sendkeys "{F5}" i = i + 1 If i = Nums Then   Msgbox "已經刷完"&i&"次了!"   Exit Do End If Loop 轉載文章請標明:該文章轉自 羅斌原創技術文章:http://luobin44.51.com 〖羅斌原創〗
相關文章
相關標籤/搜索