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

Rank: 1

帖子
2 
积分
14 
技术
0  
捐助
0  
注册时间
2017-5-13 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2017-5-13 13:51 | 只看该作者

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

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

ivor

Rank: 6Rank: 6

帖子
979 
积分
3381 
技术
172  
捐助
40  
注册时间
2012-1-7 
2楼
发表于 2017-5-13 15:10 | 只看该作者
本帖最后由 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

老刘1号

Rank: 8Rank: 8

帖子
992 
积分
1775 
技术
203  
捐助
50  
注册时间
2016-4-17 
3楼
发表于 2017-5-13 17:21 | 只看该作者
不看这帖子的标题还没意识到，
pcl斑竹肯定潜水了
话说好久没看到过这种标题了

TOP

ivor

Rank: 6Rank: 6

帖子
979 
积分
3381 
技术
172  
捐助
40  
注册时间
2012-1-7 
4楼
发表于 2017-5-13 17:28 | 只看该作者
本帖最后由 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

老刘1号

Rank: 8Rank: 8

帖子
992 
积分
1775 
技术
203  
捐助
50  
注册时间
2016-4-17 
5楼
发表于 2017-5-13 17:49 | 只看该作者
蜂鸣支持XP
  1. ping baidu.cn && TYPE C:\WINDOWS\_default.pif 2>nul && CLS
复制代码
1

评分人数

TOP

taofan712

Rank: 4

帖子
229 
积分
383 
技术
45  
捐助
0  
注册时间
2010-9-17 
6楼
发表于 2017-5-15 22:43 | 只看该作者 
  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

Rank: 8Rank: 8

帖子
3041 
积分
5330 
技术
684  
捐助
0  
注册时间
2014-10-19 
7楼
发表于 2017-5-16 09:36 | 只看该作者
本帖最后由 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

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18831 
技术
978  
捐助
100  
注册时间
2010-10-9 
8楼
发表于 2017-5-16 10:43 | 只看该作者
另一种蜂鸣符获取方法：
请问如何用纯批让主机蜂鸣器叫
参考原理：扩展ASCII码字符集0x00~0xff 批处理获取函数
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

lion991128

Rank: 1

帖子
96 
积分
71 
技术
0  
捐助
0  
注册时间
2012-10-21 
9楼
发表于 2017-6-5 16:46 | 只看该作者 
  1. findstr . "%comspec%"
复制代码
可以对主板蜂鸣器发出报警

TOP

返回列表