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

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

     

       這個腳本大部分代碼是網上找的，只是經過我的修改就擁有了刷訪問量的腳本了，哈哈。我又根據個人的需要做出兩個版本來，第一個版本是隱藏性的刷，也就是說在刷訪問量的時候是在後臺自動給你刷，不會影響你再去做其他的操作。而第二個腳本就是直接打開你設定的博客地址進行你設定的時間間隔進行刷新。根據個人喜好自己選擇一個用吧。哈哈。得記住咯，這個小腳本並不能刷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 〖羅斌原創〗