pingdog 0.1 即时检测 ip 网络状况

freexploit

墨衍会员 · AI 创作全网分发码龄22年

关注

原创最新推荐文章于 2025-09-09 16:33:20 发布 4.4k 阅读 AI 写同款· GEO 优化 ›

学习提速专享！AI工具全家桶免费用限时购周边加赠Coding Plan Lite，解锁20+主流AI工具，写代码、查资料快人一步！阅读详情

引用:

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 次.