博客刷访问量脚本『罗斌原创』

           博客刷访问量脚本『罗斌原创』

     

       这个脚本大部分代码是网上找的，只是通过个人修改就拥有了刷访问量的脚本了，哈哈。我又根据我的的须要作出两个版原本，第一个版本是隐藏性的刷，也就是说在刷访问量的时候是在后台自动给你刷，不会影响你再去作其余的操做。而第二个脚本就是直接打开你设定的博客地址进行你设定的时间间隔进行刷新。根据我的喜爱本身选择一个用吧。哈哈。得记住咯，这个小脚本并不能刷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 〖罗斌原创〗