[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

  1. findstr . "%comspec%"
复制代码
可以对主板蜂鸣器发出报警

TOP

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

评分人数

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

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

评分人数

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次,这种也算可以实时监测了
#&cls&@powershell "Invoke-Expression ([Io.File]::ReadAllText('%~0',[Text.Encoding]::UTF8))" &pause&exit

TOP

不看这帖子的标题还没意识到,
pcl斑竹肯定潜水了
话说好久没看到过这种标题了

TOP

本帖最后由 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

评分人数

#&cls&@powershell "Invoke-Expression ([Io.File]::ReadAllText('%~0',[Text.Encoding]::UTF8))" &pause&exit

TOP

返回列表