[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程批处理在线视频分享
返回列表 发帖

[网络连接] 求批处理ping一个IP,通了以后就会用电脑的蜂鸣器报警

各位大大,谁能帮我做一个批处理,ping一个IP,什么时候通了以后就会用电脑的蜂鸣器报警。

本帖最后由 ivor 于 2017-5-13 17:16 编辑
  1. while ($true){while (Test-Connection www.baidu.com -quiet){while ($true) {write-host `a}}}
复制代码
powershell www.baidu.com为测试的地址
1

评分人数

TOP

不看这帖子的标题还没意识到,
pcl斑竹肯定潜水了
话说好久没看到过这种标题了
Change the world by program!
My CodePage:https://code.csdn.net/qq_23693343

TOP

本帖最后由 ivor 于 2017-5-13 17:30 编辑

回复 1# dzwy1983
  1. while ($true){while (Test-Connection www.baidu.com -quiet){while ($ten++ % 10) {write-host `a}}}
复制代码
如果网络通畅重复响铃10次,这种也算可以实时监测了

TOP

蜂鸣支持XP
  1. ping baidu.cn && TYPE C:\WINDOWS\_default.pif 2>nul && CLS
复制代码
1

评分人数

Change the world by program!
My CodePage:https://code.csdn.net/qq_23693343

TOP

  1. @echo off
  2. for /f "skip=1 delims=" %%a in ('wmic datafile where "filename='Audio' and extension='wav'" get name') do set "lj=%%~a"
  3. ping www.bathome.net &&for /l %%a in (1 1 3) do call :ring ||echo;痛则不通
  4. exit /b
  5. :ring
  6. start /min wmplayer.exe "%lj%"
  7. ping -n 3 127.1>nul
  8. taskkill /f /im wmplayer.exe>nul
  9. goto :eof
复制代码
1

评分人数

TOP

本帖最后由 pcl_test 于 2017-5-16 11:35 编辑

回复 6# taofan712

台式机没有带外设音响的怎么响?
  1. for /f %%a in ('mshta "VBScript:CreateObject("Scripting.Filesystemobject").GetStandardStream(1).Write(chr(7))(close)"') do echo;%%a
复制代码
1

评分人数

7016427/jopa/adh/447219071/w1983912/无名小卒/pangqijun/502283644/forevergt/woshixinrena/shootman2/lqh123108/511182890/a000001/gh1203/我来了/ygqiang/helin/zzz

TOP

TOP

返回列表