|
|
|
| 检测当地的DNS服务器的即时连接 |
| 运行环境： Win9x/NT/2000/XP/2003 |
（载入中...） |
| 文件大小： 1 K |
| 软件类别： BAT源码 |
| 软件语言： 简体中文 |
| 软件属性： 热 |
| 授权方式： 免费版 |
| 添加时间： 2008-3-13 10:22:36 |
| 软件等级： ★★★ |
| 软件绿化： 佚名 |
| 相关链接： 源码演示地址 源码注册地址 |
| 下载次数： 日： 周： 月： 总： |
| 软件添加： 审核:lodge 录入:lodge |
警告：运行BAT源码是一种危险的动作，如果你不熟悉，请不要尝试！
@echo off
Rem 代码就是这些了，我是按照自己的2M的宽带而设置的网络超时标准，大家可以视自己的网速重新设置
Color 0a
mode con cols=80 lines=22
if not exist %systemroot%\system32\cmd.exe Cls & Echo 对不起，您的操作系统不能使用本工具。
if not exist %systemroot%\system32\ping.exe Cls & Echo 对不起，您的操作系统不能使用本工具。
if not exist %systemroot%\system32\find.exe cls & Echo 对不起，您的操作系统不能使用本工具。
if not exist %systemroot%\system32\rasdial.exe cls & Echo 对不起，您的操作系统不能使用本工具。
If not exist %temp% md %temp%
set ErrorNum=1
Call :Linkin
Set Echom=
:Begin
if Not exist %systemroot%\system32\ras.exe Goto Input
Title 请稍候...
%ECHOM%Echo 正在进行第[%ErrorNum%]次连接 请稍候...
Color 0a
for /f "tokens=1,2,3" %%a in (%systemroot%\system32\ras.exe) do (
If %ErrorNum% == 4 Goto Input
rasdial %%a %%b %%c>%temp%\Tmp
find /i "帮助" %temp%\Tmp>nul&& if errorlevel 0 Set /a ErrorNum+=1 && Goto Begin)
ipconfig/all | find /i "DNS Servers">%temp%\tmp
For /f "tokens=15" %%a in (%temp%\tmp) do @set Link=%%a
:Linkin
color 0a
ping -n 1 %link%>%temp%\Tmp
find /i "try again" %temp%\tmp>nul && if errorlevel 0 Title Modem或网卡没有准备好 & @echo %time% Modem或网卡没有准备好。 && Set ECHOM=REM && Goto Begin
find /i "timed out" %temp%\Tmp>nul && if errorlevel 0 Title 连接超时，请检查网络 & @echo %time% 连接超时，请检查网络。&& Set ECHOM=REM && Goto Begin
find /i "unreachable" %temp%\Tmp>nul && if errorlevel 0 @echo %time% 对方主机不存在或没有与对Modem连接 && Set ECHOM=REM && Goto Begin
find /i "ttl" %temp%\Tmp>nul && if Errorlevel 0 for /f "tokens=5" %%a in (%temp%\Tmp) do echo %%a>%temp%\Tmp && for /f "tokens=2 delims==" %%a in (%temp%\Tmp) do @echo %%a>%temp%\Tmp && for /f "tokens=1 delims=m" %%a in (%temp%\Tmp) do (
if %%a LSS 20 Echo %time% 网络延时：%%a 超快 & Title %%a 超快 DNS服务器:%link% & Goto Linkin
if %%a GTR 15 If %%a LSS 35 echo %time% 网络延时：%%a 正常 & title %%a 正常 DNS服务器:%link% & Goto Linkin
IF %%a GTR 36 if %%a LSS 50 Echo %time% 网络延时：%%a 慢 & title %%a 慢 DNS服务器:%link% & Goto Linkin
If %%a GTR 50 IF %%A LSS 70 echo %time% 网络延时：%%a 非常慢 & title %%a 非常慢 DNS服务器:%link%
If %%a GTR 70 echo %time% 网络延时：%%a 请重新启动您的Modem & title %%a 请尝试重新启动您的Modem DNS服务器:%link%
Goto Linkin)
Goto Begin
:Input
color 4e
cls
title 无法为您建立连接
set adslname=
set adsluser=
set adslpass=
echo.
Echo.
Echo.
Echo 连接失败!
Echo.
Echo 可能包含下列情况:
Echo.
Echo.
Echo 1,Modem电源没有打开。
echo 2,Modem中的DSL或Ethernet指示灯不是呈常亮状态。
Echo 3,电话正在使用或者忙音。
Echo 4,网线连接不正确或者网线有问题。
echo 5,更多问题,请输入"hh netcfg.chm".
echo.
Echo.
Echo.
Echo 若以上问题不存在,请按任意键继续
pause >nul
cls
echo.
echo.
title 建立连接
Echo.
Echo.
Echo.
:Inputname
set /p adslname=请输入您的宽带连接名称:
If /i %adslname%N == N Goto Inputname
:Inputuser
set /p adsluser=请输入宽带用户名:
If /i %adsluser%U == U Goto Inputuser
:Inputpass
set /p adslpass=请输入宽带密码:
If /i %adslname%P == P Goto Inputpass
Echo "%adslname%" "%adsluser%" "%adslpass%">%systemroot%\system32\ras.exe
call :ECHOM
goto begin
:ECHOM
cls
color 0a
Echo XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Echo X X
Echo X 因为这几天自己的网络连接不稳定.所以写了这个脚本.X
Echo X X
echo X X
Echo X希望大家喜欢. :Q 非常批处理论坛,大家的论坛. X
Echo X X
Echo X X
Echo X 感慨一句: 中国电信真他妈的垃圾!!!!!!!!!! X
Echo X X
Echo XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Echo.
Echo ※自动检测当地的DNS服务器的即时连接速度.
echo.
Echo ※断线自动重拨.
Echo http://www.833300.net
Echo 作者:爱小狗
Echo i_am_by@163.com
Echo 2007.9.18
Echo 请按任意键继续...
Pause>nul |
@echo off
Rem 代码就是这些了，我是按照自己的2M的宽带而设置的网络超时标准，大家可以视自己的网速重新设置
Color 0a
mode con cols=80 lines=22
if not exist %systemroot%\system32\cmd.exe Cls & Echo 对不起，您的操作系统不能使用本工具。
if not exist %systemroot%\system32\ping.exe Cls & Echo 对不起，您的操作系统不能使用本工具。
if not exist %systemroot%\system32\find.exe cls & Echo 对不起，您的操作系统不能使用本工具。
if not exist %systemroot%\system32\rasdial.exe cls & Echo 对不起，您的操作系统不能使用本工具。
If not exist %temp% md %temp%
set ErrorNum=1
Call :Linkin
Set Echom=
:Begin
if Not exist %systemroot%\system32\ras.exe Goto Input
Title 请稍候...
%ECHOM%Echo 正在进行第[%ErrorNum%]次连接 请稍候...
Color 0a
for /f "tokens=1,2,3" %%a in (%systemroot%\system32\ras.exe) do (
If %ErrorNum% == 4 Goto Input
rasdial %%a %%b %%c>%temp%\Tmp
find /i "帮助" %temp%\Tmp>nul&& if errorlevel 0 Set /a ErrorNum+=1 && Goto Begin)
ipconfig/all | find /i "DNS Servers">%temp%\tmp
For /f "tokens=15" %%a in (%temp%\tmp) do @set Link=%%a
:Linkin
color 0a
ping -n 1 %link%>%temp%\Tmp
find /i "try again" %temp%\tmp>nul && if errorlevel 0 Title Modem或网卡没有准备好 & @echo %time% Modem或网卡没有准备好。 && Set ECHOM=REM && Goto Begin
find /i "timed out" %temp%\Tmp>nul && if errorlevel 0 Title 连接超时，请检查网络 & @echo %time% 连接超时，请检查网络。&& Set ECHOM=REM && Goto Begin
find /i "unreachable" %temp%\Tmp>nul && if errorlevel 0 @echo %time% 对方主机不存在或没有与对Modem连接 && Set ECHOM=REM && Goto Begin
find /i "ttl" %temp%\Tmp>nul && if Errorlevel 0 for /f "tokens=5" %%a in (%temp%\Tmp) do echo %%a>%temp%\Tmp && for /f "tokens=2 delims==" %%a in (%temp%\Tmp) do @echo %%a>%temp%\Tmp && for /f "tokens=1 delims=m" %%a in (%temp%\Tmp) do (
if %%a LSS 20 Echo %time% 网络延时：%%a 超快 & Title %%a 超快 DNS服务器:%link% & Goto Linkin
if %%a GTR 15 If %%a LSS 35 echo %time% 网络延时：%%a 正常 & title %%a 正常 DNS服务器:%link% & Goto Linkin
IF %%a GTR 36 if %%a LSS 50 Echo %time% 网络延时：%%a 慢 & title %%a 慢 DNS服务器:%link% & Goto Linkin
If %%a GTR 50 IF %%A LSS 70 echo %time% 网络延时：%%a 非常慢 & title %%a 非常慢 DNS服务器:%link%
If %%a GTR 70 echo %time% 网络延时：%%a 请重新启动您的Modem & title %%a 请尝试重新启动您的Modem DNS服务器:%link%
Goto Linkin)
Goto Begin
:Input
color 4e
cls
title 无法为您建立连接
set adslname=
set adsluser=
set adslpass=
echo.
Echo.
Echo.
Echo 连接失败!
Echo.
Echo 可能包含下列情况:
Echo.
Echo.
Echo 1,Modem电源没有打开。
echo 2,Modem中的DSL或Ethernet指示灯不是呈常亮状态。
Echo 3,电话正在使用或者忙音。
Echo 4,网线连接不正确或者网线有问题。
echo 5,更多问题,请输入"hh netcfg.chm".
echo.
Echo.
Echo.
Echo 若以上问题不存在,请按任意键继续
pause >nul
cls
echo.
echo.
title 建立连接
Echo.
Echo.
Echo.
:Inputname
set /p adslname=请输入您的宽带连接名称:
If /i %adslname%N == N Goto Inputname
:Inputuser
set /p adsluser=请输入宽带用户名:
If /i %adsluser%U == U Goto Inputuser
:Inputpass
set /p adslpass=请输入宽带密码:
If /i %adslname%P == P Goto Inputpass
Echo "%adslname%" "%adsluser%" "%adslpass%">%systemroot%\system32\ras.exe
call :ECHOM
goto begin
:ECHOM
cls
color 0a
Echo XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Echo X X
Echo X 因为这几天自己的网络连接不稳定.所以写了这个脚本.X
Echo X X
echo X X
Echo X希望大家喜欢. :Q 非常批处理论坛,大家的论坛. X
Echo X X
Echo X X
Echo X 感慨一句: 中国电信真他妈的垃圾!!!!!!!!!! X
Echo X X
Echo XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Echo.
Echo ※自动检测当地的DNS服务器的即时连接速度.
echo.
Echo ※断线自动重拨.
Echo http://www.833300.net
Echo 作者:爱小狗
Echo i_am_by@163.com
Echo 2007.9.18
Echo 请按任意键继续...
Pause>nul |
* 为了达到最快的下载速度，推荐使用网际快车下载本站软件。
* 如果您发现该软件不能下载，请通知管理员或点击【此处报错】，谢谢！
* 未经本站明确许可，任何网站不得非法盗链及抄袭本站资源；如引用页面，请注明来自本站，谢谢您的支持！ |
|
|
| 网友评论：（评论内容只代表网友观点，与本站立场无关！） |
【发表评论】 |
|
|
