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

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

     

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