多IP判断问题 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

有多个域名或者IP比如
qq.com baidu.com google.com crsyk.com
我想逐一用ping 命令ping 域名并且截取返回的响应时间XXX毫秒
如果不通则提示超时
利用返回的响应时间对比。提示出最快的一个域名

我搞了好久。看了好多资料了。
最后一步不会了。不知道为什么老是判断失误。。请各位能人之士帮修改精简下


@echo off
color 0a
title 服务器速度查询
setlocal enabledelayedexpansion
set/a st=1000
set 服务器=qq.com baidu.com 220.181.38.84 crsky.com
:start
echo ===============================
for /l %%q in (1,1,4) do (set nb=%%q &call :do)
echo 速度最快的是%name% 时间为：%st% 毫秒
pause
exit
:do
for /f "tokens=%nb%" %%a in ('echo %服务器%') do (
    echo 正在检测:	%%a
    call :pip %%a
    echo %myms%
    if %st% gtr %myms% set/a st=%myms% & set name=%%a
    echo ===============================)
goto :eof
:pip
	set/a nb+=1
    set/a num=0
    for /f "tokens=4 delims=m=" %%i in ('ping -n 1 %1^|find "Maximum"') do (
         set/a num+=1
         set/a myms=%%i
         echo %%a响应速度为:%%i 毫秒)
    if %num% EQU 0 echo.超时 & set myms=9999
    goto :eof

[ Last edited by qq43142691 on 2008-2-3 at 06:48 AM ]

自己独立完成了。。测试了OK的。。分享给大家。。


@echo off
color 0a
title 多服务器响应判断by ^|彬^|QQ43142691 2008-02-03
setlocal enabledelayedexpansion
set st=1000
set nb=0
set fn=6
set fst=sina.com
set 服务器=%fst% 163.com yahoo.com.cn sohu.com qq163.com 772.cn
set/a nb+=1
echo 正在检测第 %nb% 个目标	%fst%
call :CheckServer %fst%
if %st% gtr %myms% set/a st=%myms% & set name=%fst% & set nbip=%nb%
for /l %%q in (1,1,%fn%) do (set nb=%%q &call :do)
echo.__________________________________________________________________
echo 响应速度最快的地址是第 %nbip% 个域名 %name% ,响应速度为: %st% 毫秒
echo.__________________________________________________________________
pause>nul
exit
:do
echo _____________________________________ %nb%
echo.
set/a nb+=1
for /f "tokens=%nb%" %%i in ('echo %服务器%') do (
    echo 正在检测第 %nb% 个目标	%%i
    call :CheckServer %%i
    if !st! gtr !myms! set/a st=!myms! & set name=%%i & set nbip=%nb%)
goto :eof
:CheckServer
    set/a num=0
    for /f "tokens=4 delims=m=" %%a in ('ping -n 1 "%1"^|find /i "Maximum"') do (
         set/a num+=1
         set/a myms=%%a
         if %nb% equ 1 (echo %fst% 的响应速为:%%a 毫秒)else (echo %%i 的响应速为:%%a 毫秒)
         )
    if %num% EQU 0 echo. & echo 目标服务器超时
    goto :eof

[ Last edited by qq43142691 on 2008-2-4 at 12:31 AM ]

想法不错.
可以再精简,还有
if %st% gtr %myms% set/a st=%myms% & set name=%fst% & set nbip=%nb%

if %nb% equ 1 (echo %fst% ...
你再琢磨琢磨...

我闪了,明年见.

我是从别人那个测试腾讯服务器速度的那个批处理修改得来的。。
呵呵。。。给自己用的。。

第1楼　qq43142691	发表于 2008-02-03 06:46
中级用户　发帖 152　积分 326
多IP判断问题有多个域名或者IP比如 qq.com baidu.com google.com crsyk.com 我想逐一用ping 命令ping 域名并且截取返回的响应时间XXX毫秒如果不通则提示超时利用返回的响应时间对比。提示出最快的一个域名我搞了好久。看了好多资料了。最后一步不会了。不知道为什么老是判断失误。。请各位能人之士帮修改精简下 @echo off color 0a title 服务器速度查询 setlocal enabledelayedexpansion set/a st=1000 set 服务器=qq.com baidu.com 220.181.38.84 crsky.com :start echo =============================== for /l %%q in (1,1,4) do (set nb=%%q &call :do) echo 速度最快的是%name% 时间为：%st% 毫秒 pause exit :do for /f "tokens=%nb%" %%a in ('echo %服务器%') do ( echo 正在检测: %%a call :pip %%a echo %myms% if %st% gtr %myms% set/a st=%myms% & set name=%%a echo ===============================) goto :eof :pip set/a nb+=1 set/a num=0 for /f "tokens=4 delims=m=" %%i in ('ping -n 1 %1^\|find "Maximum"') do ( set/a num+=1 set/a myms=%%i echo %%a响应速度为:%%i 毫秒) if %num% EQU 0 echo.超时 & set myms=9999 goto :eof [ Last edited by qq43142691 on 2008-2-3 at 06:48 AM ]

第2楼　qq43142691	发表于 2008-02-03 07:21
中级用户　发帖 152　积分 326
自己独立完成了。。测试了OK的。。分享给大家。。 @echo off color 0a title 多服务器响应判断by ^\|彬^\|QQ43142691 2008-02-03 setlocal enabledelayedexpansion set st=1000 set nb=0 set fn=6 set fst=sina.com set 服务器=%fst% 163.com yahoo.com.cn sohu.com qq163.com 772.cn set/a nb+=1 echo 正在检测第 %nb% 个目标 %fst% call :CheckServer %fst% if %st% gtr %myms% set/a st=%myms% & set name=%fst% & set nbip=%nb% for /l %%q in (1,1,%fn%) do (set nb=%%q &call :do) echo.__________________________________________________________________ echo 响应速度最快的地址是第 %nbip% 个域名 %name% ,响应速度为: %st% 毫秒 echo.__________________________________________________________________ pause>nul exit :do echo _____________________________________ %nb% echo. set/a nb+=1 for /f "tokens=%nb%" %%i in ('echo %服务器%') do ( echo 正在检测第 %nb% 个目标 %%i call :CheckServer %%i if !st! gtr !myms! set/a st=!myms! & set name=%%i & set nbip=%nb%) goto :eof :CheckServer set/a num=0 for /f "tokens=4 delims=m=" %%a in ('ping -n 1 "%1"^\|find /i "Maximum"') do ( set/a num+=1 set/a myms=%%a if %nb% equ 1 (echo %fst% 的响应速为:%%a 毫秒)else (echo %%i 的响应速为:%%a 毫秒) ) if %num% EQU 0 echo. & echo 目标服务器超时 goto :eof [ Last edited by qq43142691 on 2008-2-4 at 12:31 AM ]

第3楼　plp626	发表于 2008-02-04 04:00
银牌会员　发帖 1,020　积分 2,278
想法不错. 可以再精简,还有 if %st% gtr %myms% set/a st=%myms% & set name=%fst% & set nbip=%nb% if %nb% equ 1 (echo %fst% ... 你再琢磨琢磨...

第4楼　plp626	发表于 2008-02-04 04:01
银牌会员　发帖 1,020　积分 2,278
我闪了,明年见.

第5楼　qq43142691	发表于 2008-02-04 06:59
中级用户　发帖 152　积分 326
我是从别人那个测试腾讯服务器速度的那个批处理修改得来的。。呵呵。。。给自己用的。。