set yktserv=10.10.11.16
echo aa服务器

set ywserv=192.168.11.119
echo bbb服务器


echo ————————————————————————————  >nul 2>nul
echo aa服务器
:netykt
ping %yktserv% -n 1
echo %errorlevel%
if %errorlevel% equ 1 goto :netykt

ping 127.0.0.1 -n 2




echo ————————————————————————————  >nul 2>nul
echo bbb服务器
:netyw
ping %ywserv% -n 1
echo %errorlevel%
if %errorlevel% equ 1 goto :netyw

ping 127.0.0.1 -n 2



:next
后续代码
复制代码

@echo off
:r
set /a n=0
set a=10.10.11.16
set b=192.168.11.119
ping %a% -n 1 >nul 2>nul && set /a n+=1||call:msg %a%
ping %b% -n 1 >nul 2>nul && set /a n+=1||call:msg %b%
if %n% geq 2 goto next
goto r

:msg
    mshta vbscript:createobject("wscript.shell").popup("服务器 %1 请求超时...",10,"提示",4096)(window.close)
goto :eof

:next
    echo ok!
复制代码

    @echo off
:r
set /a n=0
set a=10.10.11.16
set b=192.168.11.119
ping %a% -n 1 >nul 2>nul && set /a n+=1||call:msg %a%
ping %b% -n 1 >nul 2>nul && set /a n+=1||call:msg %b%
if %n% geq 2 goto next
goto r

:msg
    start mshta vbscript:createobject("wscript.shell").popup(string(5,chr(13))^&string(40,chr(32))^&"服务器 %1 请求超时..."^&string(60,chr(32))^&string(5,chr(13)),10,"提示",4096)(window.close)
goto :eof

:next
    echo ok!
复制代码

@echo off
echo 让弹出的窗口，分成上下2行显示

:start1


set /a n=0
set a=192.168.11.16
set aa=aa服务器
set b=192.168.11.119
set bb=bbb服务器




ping %a% -n 1 >nul 2>nul && set /a n+=1 && goto :aaa||goto :bbb


:aaa
ping %b% -n 1 >nul 2>nul && set /a n+=1 && goto :nextok||call:msg1

if %n% geq 2 goto :nextok
goto :start1


:bbb
ping %b% -n 1 >nul 2>nul && set /a n+=1 && call:msg2||call:msg3


if %n% geq 2 goto :nextok
goto :start1





:msg1
    mshta vbscript:createobject("wscript.shell").popup("%aa%%a%网络正常"^&vbCrLf^&"%bb%%b%网络不通...",10,"提示",4096)(window.close)
goto :eof

:msg2
    mshta vbscript:createobject("wscript.shell").popup("%aa%%a%网络不通"^&vbCrLf^&"%bb%%b%网络正常...",10,"提示",4096)(window.close)
goto :eof

:msg3
    mshta vbscript:createobject("wscript.shell").popup("%aa%%a%网络不通"^&vbCrLf^&"%bb%%b%网络不通...",10,"提示",4096)(window.close)
goto :eof



:nextok
    echo ok!
mshta vbscript:createobject("wscript.shell").popup("%aa%%a%网络正常"^&vbCrLf^&"%bb%%b%网络正常...",2,"提示",4096)(window.close)

goto :eof
复制代码

@echo off
setlocal enabledelayedexpansion

set tf=0

echo 循环执行

for /l %%a in (1,1,5) do (

if !tf! equ 1 echo OKtuichu && exit/b

call :start1
ping 127.0.0.1 -n 5 >nul 2>nul

1pause
)

echo neterror
1pause
echo 如果网络error，循环检测几次后，就直接退出。

exit



:nextok
mshta vbscript:createobject("wscript.shell").popup("!aa!%a%——————网络正常——————"^&vbCrLf^&"%bb%%b%——————网络正常——————",2,"提示",4096)(window.close)
echo netok
1pause

set /a tf=1
goto :eof


:start1

set /a n=0
set a=192.168.0.8
set aa=aa服务器
set b=192.168.0.1
set bb=bbb服务器

ping %a% -n 1 >nul 2>nul && set /a n+=1 && goto :aaa||goto :bbb

:aaa
ping %b% -n 1 >nul 2>nul && set /a n+=1 && goto :nextok||call:msg1

if %n% geq 2 goto :nextok
goto :eof

:bbb
ping %b% -n 1 >nul 2>nul && set /a n+=1 && call:msg2||call:msg3
goto :eof

:msg1
    mshta vbscript:createobject("wscript.shell").popup("%aa%%a%——————网络正常——————"^&vbCrLf^&"%bb%%b%!===========网络故障===========",10,"提示",4096)(window.close)
goto :eof

:msg2
    mshta vbscript:createobject("wscript.shell").popup("%aa%%a%!===========网络故障==========="^&vbCrLf^&"%bb%%b%——————网络正常——————",10,"提示",4096)(window.close)
goto :eof

:msg3
    mshta vbscript:createobject("wscript.shell").popup("!aa!!a!===========网络故障==========="^&vbCrLf^&"!bb!!b!===========网络故障===========",10,"提示",4096)(window.close)
goto :eof
复制代码