pingdog 0.1 即时检测 ip 网络状况

引用:

pingdog 0.1 BY allyesno

site:http://blog.csdn.net/freexploit

程序用于检测 内网 外网的连接状况 写的简单 没什么容错代码 将就着用吧

pingdog.bat 主程序

Codz:


@echo off
:环境初始化
set enter=%RANDOM%
:start
cls
set /p pinglanip=请填入你要检测的内网ip:
echo.
set /p pingwanip=请填入你要检测的外网ip:
echo.
set /p enter=填入 y 确认，填入 n 重新输入 ip(y/n):
if "%enter%"=="n" goto start
if "%enter%"=="" goto startcheck
:startcheck
:wancheck
start wancheck
:lancheck
start lancheck


lancheck.bat 子程序

引用:

@echo off
:环境初始化
setlocal enabledelayedexpansion
title 内网ping检测中。。。。。。目前检测的IP为 !pinglanip!
echo.>>!USERPROFILE!\桌面\内网ping检测数据.txt
echo 本次检测日期为 !date!-!time! IP为 !pinglanip!>>!USERPROFILE!\桌面\内网ping检测数据.txt
cls
echo ping 检测开始^> ^> ^> ^> ^> ^> ^> ^> ^>
echo.
echo 如果没有任何数据输出，则网络正常，没有掉包现象
ping -n 1 !pinglanip!>nul||(
set pingouttimex=!time!
echo 掉包时间为 !pingouttimex!
echo 掉包时间为 !pingouttimex!>>!USERPROFILE!\桌面\内网ping检测数据.txt
)
for /l %%i in () do (
ping 127.0.0.1>nul
ping -n 1 !pinglanip!>nul||(
set pingouttimex=!time!
echo 掉包时间为 !pingouttimex!
echo 掉包时间为 !pingouttimex!>>!USERPROFILE!\桌面\内网ping检测数据.txt
)
)

wancheck.bat 子程序

引用:

@echo off
:环境初始化
setlocal enabledelayedexpansion
title 外网ping检测中。。。。。。目前检测的IP为 !pingwanip!
echo.>>!USERPROFILE!\桌面\外网ping检测数据.txt
echo 本次检测日期为 !date!-!time! IP为 !pingwanip!>>!USERPROFILE!\桌面\外网ping检测数据.txt
cls
echo ping 检测开始^> ^> ^> ^> ^> ^> ^> ^> ^>
echo.
echo 如果没有任何数据输出，则网络正常，没有掉包现象
ping -n 1 !pingwanip!>nul||(
set pingouttime=!time!
echo 掉包时间为 !pingouttime!
echo 掉包时间为 !pingouttime!>>!USERPROFILE!\桌面\外网ping检测数据.txt
)
for /l %%i in () do (
ping 127.0.0.1>nul
ping -n 1 !pingwanip!>nul||(
set pingouttime=!time!
echo 掉包时间为 !pingouttime!
echo 掉包时间为 !pingouttime!>>!USERPROFILE!\桌面\外网ping检测数据.txt
)
)

幻影下载：附件: pigdog.rar[需 0 社区元下载]
该文件已经被下载 2 次.

G宝盘下载：http://allyesno.gbaopan.com/files/a436eace6c4640faaf3c565a92b446dc.gbp