检查网络稳定性的P处理 - 中国DOS联盟论坛

给个思路吧，参考:


::假设ping163来检测并且ping的格式跟我一下如下: （且为方便只ping一条）
::Pinging 163.com  with 32 bytes of data:

::Reply from 220.181.29.154: bytes=32 time=48ms TTL=52
::Reply from 220.181.29.154: bytes=32 time=53ms TTL=52
::Reply from 220.181.29.154: bytes=32 time=43ms TTL=52
::Reply from 220.181.29.154: bytes=32 time=44ms TTL=52
set IP=
set IPstr=
set lping=0

:start
for /f "tokens=7 delims== " %%i in ('ping 163.com -n 1 ^| find "Reply"') do set IPstr=%%i
set IP=%IPstr:~0,-2%

if not s%IP%==s goto :aaa
set /a lping+=1
goto :judge

:aaa
if %IP% gtr 800 set /a lping+=1

::10个ping值高过800就弹出窗口了
:judge
if not %lping% gtr 10 goto :next
::注意把用户名改成当前已登录用户
start msg 用户名 网络较慢，请检查
goto :eof
:next
set IPstr=
set IP=
sleep 1
goto :start

第1楼　nan5715077	发表于 2008-03-04 18:00
新手上路　发帖 4　积分 12
检查网络稳定性的P处理您好.我想问下能不能制作一个P处理.让他持续PING.一旦出现严重丢包的时候能弹出对话框报告下,因为我们企业对网络稳定性比较重视的.谢谢.

第2楼　pooronce	发表于 2008-03-04 18:40
中级用户　发帖 250　积分 484
给个思路吧，参考: ::假设ping163来检测并且ping的格式跟我一下如下: （且为方便只ping一条） ::Pinging 163.com with 32 bytes of data: ::Reply from 220.181.29.154: bytes=32 time=48ms TTL=52 ::Reply from 220.181.29.154: bytes=32 time=53ms TTL=52 ::Reply from 220.181.29.154: bytes=32 time=43ms TTL=52 ::Reply from 220.181.29.154: bytes=32 time=44ms TTL=52 set IP= set IPstr= set lping=0 :start for /f "tokens=7 delims== " %%i in ('ping 163.com -n 1 ^\| find "Reply"') do set IPstr=%%i set IP=%IPstr:~0,-2% if not s%IP%==s goto :aaa set /a lping+=1 goto :judge :aaa if %IP% gtr 800 set /a lping+=1 ::10个ping值高过800就弹出窗口了 :judge if not %lping% gtr 10 goto :next ::注意把用户名改成当前已登录用户 start msg 用户名网络较慢，请检查 goto :eof :next set IPstr= set IP= sleep 1 goto :start