标题: 测试网关是否联通,如果通,则发出滴滴声 [打印本页]

---

作者: murong     时间: 2007-12-2 14:11    标题: 测试网关是否联通,如果通,则发出滴滴声

@echo off
::By MuRong

title 测试网关是否联通,如果通,则发出滴滴声
color 0b
mode con cols=40 lines=3
cls
rem for /f "tokens=2 delims=:" %%i in ('ipconfig ^|findstr "Default Gateway"') do set gataway=%%i

set /p gataway=请输入要测试的IP地址：
:main
cls
@echo      你测试的IP地址:%gataway%

set /a TTL=0
set /a v=0
for /f "tokens=3 delims==" %%i in ('ping/n 1 %gataway% ^|findstr "TTL=128"' ) do set v=%%i
set /a TTL=%v%
if %TTL% equ 128 goto ping
if %TTL% neq 128 goto err

:ping
@echo 
@echo Y | pause>nul

:err
goto main

---

作者: murong     时间: 2007-12-2 14:17
@echo off
:: By MuRong
:main
title 测试网关是否联通,如果通,则发出滴滴声
color 0b
mode con cols=40 lines=3
cls
for /f "tokens=2 delims=:" %%i in ('ipconfig ^|findstr "Default Gateway"') do set gataway=%%i

@echo         网关地址:%gataway%

rem set /p gataway=输入你的地址：

set /a TTL=0
set /a v=0
for /f "tokens=3 delims==" %%i in ('ping/n 1 %gataway% ^|findstr "TTL=128"' ) do set v=%%i
set /a TTL=%v%
if %TTL% equ 128 goto ping
if %TTL% neq 128 goto err

:ping
@echo 
@echo Y | pause>nul

:err
goto main

---

作者: murong     时间: 2007-12-2 14:18
2个BAT是不一样的，一个手工输入一个自动获得

---

作者: shendeemeng     时间: 2007-12-3 11:17
啊．是不是很麻烦呀．　　　　　　　　　　　　　　　　　

---

作者: murong     时间: 2007-12-3 22:55
自动探测滴！！！

---

作者: kaikai163     时间: 2008-1-5 18:40
牛!思路不错！

---

作者: LCH     时间: 2008-1-5 23:00
好帖，学习了

---

作者: gujicao2005     时间: 2008-3-9 16:23
支持楼主发贴~~~~~~~~~~~~~~~~~~~~~~~~~~~

---

作者: woo88     时间: 2008-3-12 22:30
有创意

---

作者: c179923     时间: 2008-3-19 17:00
没有声音啊

---

作者: ZJHJ     时间: 2008-3-22 22:46
mshta vbscript:createobject("sapi.spvoice").speak(" ok")(window.close)