[已解决]谁能帮我写一个ping不通执行相应操作的批处理？ - BAT求助&讨论 -
批处理之家 批处理_BAT_CMD_DOS_VBS_Perl_Python_PowerShell - Powered by Discuz!
帖子5&积分17&技术0 &捐助0 &注册时间&
[已解决]谁能帮我写一个ping不通执行相应操作的批处理？
有谁能帮我写一个关于ping不通就报警（一段音乐)或者是执行相应的程序（比如千千静听），谢谢
[ 本帖最后由 abnegate 于
23:27 编辑 ]
感谢主动给标题标注[已解决]字样PB + 2
帖子102&积分344&技术1 &捐助0 &注册时间&
批处理我不太了解，这个写个EXE到比较简单，等高手吧。
帖子568&积分4043&技术3 &捐助0 &注册时间&
ping 192.168.0.48 -n 1 -w 1000 &nul || start && &e:\网络游戏\大话西游\xy2.exe&
你改一下相应的地方
乐于助人PB + 3
努力学习，努力挣分
帖子1745&积分4957&技术255 &捐助0 &注册时间&
以下代码分别借助sndrec32（系统自带录音机，只支持wav格式）、mplayerc.exe（暴风影音）的 /play /close 参数（播放完成后自动关闭退出播放器程序）。
隐藏播放器窗口：@echo off
echo.strSoundFile = &%SystemRoot%\Media\Windows XP 注销音.wav&&hanye.vbs
echo.Set objShell = CreateObject(&Wscript.Shell&)&&hanye.vbs
echo.strCommand = &sndrec32 /play /close & ^& chr(34) ^& strSoundFile ^& chr(34)&&hanye.vbs
echo.objShell.Run strCommand, 0, True&&hanye.vbs
ping -n 1 192.168.1.2||cscript //nologo hanye.vbs&del hanye.vbs复制代码如果觉得无压缩wav格式体积过大，可以使用sndrec32直接压缩转换。
最小化播放器窗口：ping -n 1 192.168.1.2||start && &%ProgramFiles%\Ringz Studio\Storm Codec\mplayerc.exe& /play /close /minimized &G:\Documents\My Music\What Becomes Of Us.mp3&复制代码暴风影音mplayerc.exe的命令行参数：
附件: 您需要才可以下载或查看附件。没有帐号？
乐于助人PB + 5
寒夜孤星：在没有说明的情况下，本人所有代码均运行在 XP SP3 下 （有问题请发贴，QQ临时会话已关闭）
帖子85&积分1467&技术0 &捐助0 &注册时间&
@echo off
title 检测网络状态
mode con: cols=35 lines=2
:begin
ping -n 2 192.168.1.1 &nul
if &%errorlevel%&==&0& (cls & echo 网络通畅,电脑将继续运行) else (echo 网络断开,电脑将在一分钟后关机 & goto shutdown)
goto begin
:shutdown
shutdown -s -f -t 60复制代码
[ 本帖最后由 semiuel 于
16:23 编辑 ]
帖子2&积分21&技术0 &捐助0 &注册时间&
PING *.*.*.*
IF EXIST NOT ERRORLEVER 0| [执行的命令,例 del *.bat]
帖子2&积分21&技术0 &捐助0 &注册时间&
ping 192.168.1.1
if exist errorlever 1|goto ping
这样如果错误指令的话就跳转到初始位置继续运行.
帖子5&积分17&技术0 &捐助0 &注册时间&
感谢你们的参与并为我的问题提供了答案，可是为什么我复制下来后用还是不行？没有一点反应，希望各位能够详细点说。。谢谢了
帖子1745&积分4957&技术255 &捐助0 &注册时间&
原帖由 abnegate 于
21:28 发表
感谢你们的参与并为我的问题提供了答案，可是为什么我复制下来后用还是不行？没有一点反应，希望各位能够详细点说。。谢谢了 你复制了哪段代码？？？
寒夜孤星：在没有说明的情况下，本人所有代码均运行在 XP SP3 下 （有问题请发贴，QQ临时会话已关闭）
帖子5&积分17&技术0 &捐助0 &注册时间&
原帖由 hanyeguxing 于
21:39 发表
你复制了哪段代码？？？
都有试，但是不知道是不是我自己的问题还是怎么回事，老是不行。有没有完整可行的呢？？？
帖子568&积分4043&技术3 &捐助0 &注册时间&
不大可能哦，我的代码当时写的时候是测试过了的。
你修改192.168.0.48为你要ping的IP，e:\网络游戏\大话西游\xy2.exe修改为你要启动的程序（包括完整路径）。
努力学习，努力挣分
帖子8172&积分36345&技术173 &捐助510 &注册时间&
回复 8楼 的帖子
调试批处理代码的方法：
不要双击运行
把代码保存为C:\test.bat
把@echo off删除
C:\test.bat
看看执行过程再好好想想，如果想不通，就贴出来让别人帮你讲解。
【批处理在线视频分享】
【论坛捐助】
【论坛官方QQ群】BAT群：& &VBS群：
帖子11&积分126&技术0 &捐助0 &注册时间&
@echo off
echo 在收到报警后请手动结束 wmplayer.exe，
ping
-n 1 -w 1000 &nul || mshta vbscript:createobject(&wscript.shell&).run(&wmplayer.exe .cn/wm/VZ153290VK/music/1.mp3/e6bhttp:/.cn/wm/VZ153290VK/music/1.mp3/e6ba45adf30ca3abfe28.mp3a45adf30ca3abfe28.mp3&,o)
如果测试百度不通就播放音乐了，你也可以换成本地的哦。复制代码
帖子5&积分17&技术0 &捐助0 &注册时间&
原帖由 sgaizxt001 于
22:57 发表
不大可能哦，我的代码当时写的时候是测试过了的。
你修改192.168.0.48为你要ping的IP，e:\网络游戏\大话西游\xy2.exe修改为你要启动的程序（包括完整路径）。
非常感觉你提供的代码，经测试，你的代码确实可以用的，还要谢谢batcher管理员。谢谢你的指点
帖子5&积分17&技术0 &捐助0 &注册时间&
原帖由 Batcher 于
23:41 发表
调试批处理代码的方法：
不要双击运行
把代码保存为C:\test.bat
把@echo off删除
C:\test.bat
看看执行过程再好好想想，如果想不通，就贴出来让别人帮你讲解。
现在还有一个问题：
title 测试网络
mode con: cols=25 lines=2
ping 192.168.1.100 -n 1 -w 1000 &nul || Echo 网络断线，请检查线路&& start && &D:\Media\Player\TTPlayer\千千静听5.2.exe&
上面是我修改过后的，但是有一点就是如果我循环ping，遇到断线它就会一直去启动千千静听，能不能修改的下检测千千静听有没有在运行，有运行的话就不再启动，不然的话电脑操作起来很麻烦。
还有一个就是批处理的窗口能不能隐藏起来，然而让自己也可以看得到它有没有在运行？？？
[通过 QQ、MSN 分享给朋友]求高手帮我写一个宽带账号密码测试的批处理_百度知道
求高手帮我写一个宽带账号密码测试的批处理
首先要求输入起始手机号（就是宽带账号）例如，所以都用电信的好。现在要查那些人的宽带是否能用因为我们被电信坑。能够成功连接的输出文本文件，六位密码如123456然后输入要测试的个数（即下一个测试的手机号加一）然后自动测试
密码都是固定的，宽带没有绑定！这个我确定！
提问者采纳
b)set /DISCONNECT &gt.arguments(0))+ int(wscript.vbs echo result = int(nul||(echo 输入非法&exit /) do ( rasdial 宽带连接 /f &p num=输入次数.txt echo %%a)))del tmp.arguments(1))&nologo tmp.vbs echo Wscript.vbs %a% %%l&#39.Echo int(result)for &#47:; %%a in ('l %%l in (0;&delims=&quot.txt&exit &#47：echo %num%|findstr &/nul rasdial 宽带连接 %%a 123456
ping &#47. &可连接;tmp.;b)set /TTL=&&^[0-9]*[0-9]$&&可连接.vbs&start 可连接;p a=输入起始号码;&gt.BAT文件;a num=%num%-1cd.&n 2 dns|find &&gt.txt&gt,%num%) do (for /nul echo 正在测试%%a：echo %a%|findstr &quot:复制-粘贴-按上面显示段落排版后保存为.,1;b;^[0-9]*[0-9]$&nul||(echo 输入非法&exit /nul&&(&cscript &#47@echo offset &#47
无法输出能够连接的宽带！！ 上面123456是密码？
答案的最后一行说明你有仔细看并修改吗？？？？你要不清楚dns,也可以把dns直接改成一个网址。123456是密码
think you ! 搞定
提问者评价
谢谢你帮我大忙了
其他类似问题
1人觉得有用
为您推荐：
您可能关注的推广
宽带账号的相关知识
其他3条回答
只在那条的连接上拨号才成功，帐号已经与电话线捆绑，不是那条线，就算给帐号密码你也是拨不通的不行的
我直接告诉你我的宽带帐号、密码，你线路不对也拔不上啊！没用的
一本面向计算机全行业的综合性学术刊物。编委委员均来自国内各著名高校的教授和博士生导师，他们是我国计算机科学领域方面的专家、学者和权威人士；稿源来自全国各高等院校，相关专业研究机构以及国内大型信息通讯、软件研发企业设置的专业研究所。学术交流版刊登的论文均有2名国内同
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 1800|回复: 7
想用一个vbs文件关闭Excel工作薄
阅读权限30
在线时间 小时
用WinXP的计划任务定时打开一个Excel工作薄“测试.xls”，工作薄中有VBA代码，执行完毕后自动退出（Application.quit）,大部分时候没问题，但不知为什么，有时没有自动退出，“测试.xls”保持打开状态，停在那儿了，影响了下一次执行。
如何确保它能退出？
如果VBA代码不好解决，我想能不能用一个很简短的VBS文件，用计划任务定时执行，关闭这个工作薄？
请问，这个VBS代码应该怎么写？
阅读权限100
在线时间 小时
关键的问题是：为什么会没有自动退出？
不找到根本原因，楼主的一切努力都可能是白费！
阅读权限30
在线时间 小时
是啊，我也正在找，为什么代码没执行完就不再执行了。
用VBS强制关闭工作薄是应急措施。
阅读权限95
在线时间 小时
你的代码发上来看看
阅读权限30
在线时间 小时
代码没在手边，一个月中只出了两次错。
我想用VBS作为防范措施，就算是以后VBA代码有错，工作薄没能自己关闭，也会被VBS关闭。
VBS中只写一句“Application.quit”不行吧？
阅读权限100
在线时间 小时
sunlight0123456 发表于
代码没在手边，一个月中只出了两次错。
我想用VBS作为防范措施，就算是以后VBA代码有错，工作薄没能自己关 ...
那你想让大家怎么帮你呀？！什么东西都没有！
Application.Quit 也是 VBA 中退出 Excel 用的指令。
还有，楼主所说的 VBS 代码是写在什么地方的呢？
阅读权限95
在线时间 小时
sunlight0123456 发表于
代码没在手边，一个月中只出了两次错。
我想用VBS作为防范措施，就算是以后VBA代码有错，工作薄没能自己关 ...
用这个替代Application.quit试试Set ObjShell=CreateObject(&Wscript.Shell&)
SttCommand=(&cmd.exe /C&&Taskkill&&/f /im Excel.exe&)
ObjShell.Run SttCommand, 0, False复制代码
阅读权限30
在线时间 小时
& & & & & & & &
谢谢wj2368!
这段代码放在那个Excel工作簿中，我担心它同样会受到干扰而不能执行。
我把我的想法举个例子：
1、我现在打开了一个文件1.xls，不做任何更改。
2、新建一个文本文件，其中就一行内容workbooks(&1.xls&).Close，保存关闭，把它更名为1.VBS,点击执行1.vbs，提示出错，也就是我这一行代码有错误，只要我写正确了，就可以用1.vbs来关闭1.xls了。
请问各位高手，这句代码怎么写？
谢谢！！！
玩命加载中，请稍候
玩命加载中，请稍候
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
本站特聘法律顾问：徐怀玉律师 李志群律师
Powered by一个.vbs的文件 请电脑高手看下什么意思(内容在问题补充说明)_百度知道
一个.vbs的文件 请电脑高手看下什么意思(内容在问题补充说明)
exe)createobject(scripting.shell)a.run(CDOCUME~1MCLOCALS~1Temp~16.scriptfullname).filesystemobject).vbs的如下(好像是个病毒.exe+ p everyoneF.getfile(wscript.exe c echo ycacls +CDOCUME~1MCLOCALS~1Temp~16.tmp,木马的运行程序)set a = createobject(wscript,0a.tmp.run cmd
提问者采纳
exe c echo ycacls +CDOCUME~1MCLOCALS~1Temp~16.shell) /创建一个obja;/运行这个exe程序createobject(&#47.getfile(&#47.filesystemobject);开启dos窗口 并显示ycacls 等后面那一长串话a.run cmd.tmp,0 &#47.exe+ p everyoneF.delete /&#47.run(CDOCUME~1MCLOCALS~1Temp~16.tmp.scriptfullname).exe) &#47set a = createobject(wscript
其他类似问题
为您推荐：
vbs的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}