Board logo

标题: [网络连接] [已解决]用bat能否判断当前有线网卡(xp系统,单网卡)是否联网? [打印本页]

作者: ygqiang    时间: 2011-11-29 08:29     标题: [已解决]用bat能否判断当前有线网卡(xp系统,单网卡)是否联网?

本帖最后由 ygqiang 于 2011-11-30 18:36 编辑

用bat能否判断当前有线网卡(xp系统,单网卡)是否联网?

开机进入xp系统以后,启动bat,延时5分钟,然后开始判断:

1、如果不联网,就延时1分钟,继续监视网络是否联网

2、如果联网,就延时1分钟以后启动qq
作者: 601997526    时间: 2011-11-29 09:29

  1. @echo off
  2. (echo @echo off
  3. echo ping /n 1 /l 0 /w 300000 99.99
  4. echo :ok
  5. echo ping /n 1 /l 0 /w 60000 99.99 ^>nul
  6. echo ping /n 1 /l 0 /w 0 www.baidu.com ^>nul^&^&goto :qq^|^|goto :ok
  7. echo :qq
  8. echo ping /n 1 /l 0 /w 60000 99.99 ^>nul
  9. echo start "" "C:\Program Files\Tencent\QQ\Bin\QQ.exe")>"C:\Documents and Settings\All Users\「开始」菜单\程序\启动\启动.bat"
复制代码

作者: ygqiang    时间: 2011-11-29 09:56

多谢。开机启动bat代码,我可以自己添加到注册表里
  1. @echo off
  2. if exist run.vbs del run.vbs & goto :mybat
  3. echo CreateObject("WScript.Shell").Run """%cd%\%~n0.bat""",0 >run.vbs &start run.vbs&exit
  4. :mybat
  5. rem 下边开始写批处代码了(适合全自动后台隐藏运行场合)
  6. ping /n 1 /l 0 /w 300000 99.99
  7. :ok
  8. ping /n 1 /l 0 /w 60000 99.99 ^>nul
  9. ping /n 1 /l 0 /w 0 www.baidu.com ^>nul^&^&goto :qq^|^|goto :ok
  10. :qq
  11. ping /n 1 /l 0 /w 60000 99.99 ^>nul
  12. start "" "C:\Program Files\Tencent\QQ\Bin\QQ.exe"
  13. exit
  14. @echo off
  15. if "%1" == "h" goto begin
  16. mshta vbscript:createobject("wscript.shell").run("%~fs0 h",0)(window.close)&&exit
  17. :begin
  18. rem 下边开始写批处代码了(适合全自动场合)
复制代码

作者: ygqiang    时间: 2011-11-29 09:58

  1. ping 127.0.0.1 -n 300 >nul 2>nul
  2. :label
  3. ping 127.0.0.1 -n 60 >nul 2>nul
  4. ping  www.baidu.com
  5. echo %errorlevel%
  6. if %errorlevel% equ 1 goto:label
  7. if %errorlevel% equ 0 goto:laben
  8. :laben
  9. ping 127.0.0.1 -n 60 >nul 2>nul
  10. start "" "C:\Program Files\Tencent\QQ\Bin\QQ.exe"
  11. exit
复制代码

作者: ygqiang    时间: 2011-11-29 09:58

各位,3楼与4楼的代码,有什么区别呢?

都各自有什么优缺点啊?谢谢
作者: ygqiang    时间: 2011-11-30 18:35

  1. :qqmon
  2. ping 127.0.0.1 -n 60 >nul 2>nul
  3. ping  www.baidu.com
  4. echo %errorlevel%
  5. if %errorlevel% equ 1 goto:qqmon
  6. if %errorlevel% equ 0 goto:qqrun
  7. :qqrun
  8. taskkill /IM qq.exe /F
  9. ping 127.0.0.1 -n 60 >nul 2>nul
  10. start "" "C:\Program Files\Tencent\QQ\Bin\QQ.exe"
复制代码
问题解决。




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2