设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › 批处理怎样监控网络流量并自动关机？
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
123下一页
返回列表 发新帖
楼主: ygqiang

[网络连接] 批处理怎样监控网络流量并自动关机？

[复制链接]
caruko
发表于 2011-7-7 11:15:50 | 显示全部楼层
用systeminfo为了省去调用%time%的计算麻烦。
倒是没注意过时间是否准确。

其实也就是大概判断，ping -n 3000 时间足够长了，循环不占用什么资源，倒是ping用的多，虽然可以用其它办法解决，比如设置计划任务。
其实就是图懒。
回复

举报

CrLf
发表于 2011-7-7 11:27:01 | 显示全部楼层
16# caruko


用 wmic os get LastBootUpTime,LocalDateTime 更省事噢~
回复

举报

caruko
发表于 2011-7-7 16:32:17 | 显示全部楼层
本帖最后由 caruko 于 2011-7-7 16:37 编辑

17# zm900612


WMIC的试了一下，都是准确的时间点。
如果要计算 时间差，可能需要 跨小时来计算，但最麻烦的是跨日期、跨月、甚至跨年。
比如 6月31晚上 挂机下载，那么时间到 7月1日后，计算就复杂多了。

而systeminfo 就没有这个麻烦，因为它的启动时间本身就是时间差，而不是时间点。
回复

举报

ygqiang
 楼主| 发表于 2011-7-8 06:14:33 | 显示全部楼层


  3. @Echo Off
  4. :Loop
  5. Ping /n 1 www.bathome.net>nul||ShutDown /s /t 1
  6. MsHta JavaScript:document.write();setTimeout('close()',300000);
  7. Goto Loop

复制代码
不知道能否结合这个，实现所需要的效果呢？
回复

举报

ygqiang
 楼主| 发表于 2011-7-9 07:59:10 | 显示全部楼层
  1. Dim WSH, WMI, EVN
  2. Set WSH = CreateObject("Wscript.Shell")
  3. Set WMI = GetObject("winmgmts:\\.\root\wmi")
  4. Set EVN = WMI.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect")
  5. Do While True
  6.         Set LatestEvent = EVN.NextEvent
  7.         WSH.Run("shutdown -s -t 0")
  8. Loop
复制代码
这个是lxzzr版主给出的vbs代码，功能是：如果出现断网就自动关机。

我的要求是：如果断网，等待30分钟左右，如果还不能联网，才关闭xp系统。
回复

举报

CrLf
发表于 2011-7-9 09:03:34 | 显示全部楼层
20# ygqiang


ping 不通时关机和当流量低于指定值时关机是完全不同的两个方向，你到底想要什么效果呢？求助时请先说明白自己需要的是什么，而不是让别人去猜测、判断
回复

举报

ygqiang
 楼主| 发表于 2011-7-9 09:07:20 | 显示全部楼层
20# ygqiang


ping 不通时关机和当流量低于指定值时关机是完全不同的两个方向，你到底想要什么效果呢？求助时请先说明白自己需要的是什么，而不是让别人去猜测、判断
zm900612 发表于 2011-7-9 09:03



多谢。

我的意思是指：过30分钟，如果网络完全没有流量（网络掉线、完全断开，这个时候不能上网）的时候，自动关机。
回复

举报

CrLf
发表于 2011-7-9 16:13:41 | 显示全部楼层
  1. @echo off&setlocal enabledelayedexpansion
  2. for /l %%a in () do (
  3.         set new=
  4.         for /f "skip=4 tokens=2" %%a in ('netstat -e') do if not defined new set new=%%a
  5.         set /a new=!new:~,-4!,in=new-last,last=new,"t=in/10+^!^!in"
  6.         if !in!==10 shutdown /f /s /t 0
  7.         mshta "javascript:document.write();setTimeout('close()',180000);"
  8. )
复制代码
网络连接正常时“完全没有流量”是不可能的，所以我按大约超过10kb来判断，不过哪怕没有上网，三十分钟的吞吐量也应该超过10kb了吧...
回复

举报

ygqiang
 楼主| 发表于 2011-7-9 19:01:52 | 显示全部楼层
  1. Dim WSH, WMI, CIM, EVD
  2. Set WSH = CreateObject("Wscript.Shell")
  3. Set WMI = GetObject("winmgmts:\\.\root\wmi")
  4. Set CIM = GetObject("winmgmts:\\.\root\cimv2")
  5. Set EVD = WMI.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect")
  6. Do While True
  7.     Set LatestEvent = EVD.NextEvent
  8.     Wscript.Echo "网络已经断开."
  9.         WScript.Sleep 1800000

  11.         Set Pings = CIM.ExecQuery("Select * From Win32_PingStatus where Address = 'www.baidu.com'")
  12.         For Each Ping in Pings
  13.                 If Ping.StatusCode = 0 Then
  14.                         Wscript.Echo "网络已经连接."
  15.                 Else
  16.                         WScript.Echo "关闭系统"
  17.                         Wscript.Echo WSH.Run("shutdown -s -t 6000")
  18.                 End If
  19.         Next
  20. Loop
复制代码
这是lxzzr版主给出的vbs代码。

不知道与zm900612 版主的bat代码，实现的功能是否一样呢？
回复

举报

fastslz
发表于 2011-7-9 19:15:50 | 显示全部楼层
没时间给你完整代码，wmi 方法参考
自动识别拨号上网还是路由
http://www.bathome.net/thread-3198-1-2.html
回复

举报

ygqiang
 楼主| 发表于 2011-9-25 16:49:29 | 显示全部楼层
顶下，有没有比较好的解决方法？谢谢
回复

举报

ygqiang
 楼主| 发表于 2011-9-27 16:34:47 | 显示全部楼层
有没有人帮忙做下，谢谢
回复

举报

lxzzr
发表于 2011-9-27 16:46:14 | 显示全部楼层

  2. StrComputer = "."
  3. ConnectionID = "本地连接1"
  4. '这里根据实际情况修改

  6. Set ObjectWSH = CreateObject("Wscript.Shell")
  7. Set ObjectWMI = Getobject("winmgmts:\" & StrComputer)

  9. Set NetCards = ObjectWMI.ExecQuery("Select * from Win32_NetworkAdapter WHERE NetConnectionID='" & ConnectionID & "'")
  10. If NetCards.count<>0 Then
  11.         For Each NetCard In NetCards
  12.                 WScript.Echo "Name: " & NetCard.Name & "        MACAddress: " & NetCard.MACAddress
  13.                 NetCardName = NetCard.Name
  14.         Next
  15.         Else
  16.         Wscript.Echo "网卡不存在."
  17.         WScript.Quit(0)
  18. End If
  19. '获取用于上网的网卡信息

  21. CurrentFlow
  22. BeginFlow = CurrentFlow
  23. '获取开始时接收的流量（字节）
  24. Wscript.Echo "BeginFlow: " & BeginFlow

  26. WScript.Sleep 18000
  27. '定义时间范围

  29. CurrentFlow
  30. EndFlow = CurrentFlow
  31. '获取结束时接收的流量（字节）
  32. Wscript.Echo "EndFlow: " & EndFlow

  34. Result = EndFlow-BeginFlow
  35. If Result<10240 Then
  36.         '10240即10KB，当18000秒（上面的时间范围）内接收流量小于10KB就关闭系统
  37.         WScript.Echo "关闭系统."
  38.         ObjectWSH.Run"shutdown.exe -s -t 0", 0, TRUE
  39. End If
  40. '计算结果并比较

  42. WScript.Echo "Exit..."
  43. WScript.Sleep 10000


  46. Function CurrentFlow
  47.         Set ObjectFlows = ObjectWMI.InstancesOf("Win32_PerfRawData_Tcpip_NetworkInterface")
  48.         For Each ObjectFlow In ObjectFlows
  49.                 If ObjectFlow.Name=NetCardName Then
  50.                         CurrentFlow = ObjectFlow.BytesReceivedPersec
  51.                 End If
  52.         Next
  53. End Function
复制代码
回复

举报

ygqiang
 楼主| 发表于 2011-9-28 15:07:17 | 显示全部楼层


  3. On Error Resume Next
  4. Public CurrentFlowInt
  5. StrComputer = "."
  6. ConnectionID = "本地连接"
  7. '这里根据实际情况修改


  10. Set objWMIService = GetObject("winmgmts:" _
  11.     & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
  12. Set colMonitoredProcesses = objWMIService. _        
  13.     ExecNotificationQuery("select * from __instancecreationevent " _
  14.         & " within 1 where TargetInstance isa 'Win32_Process'")
  15. i = 0
  16. Do While i = 0
  17.     Set objLatestProcess = colMonitoredProcesses.NextEvent
  18.     If objLatestProcess.TargetInstance.Name = "Thunder.exe" Then
  19.                 Wscript.Echo "迅雷已运行."
  20.        
  21.                 Set ObjectWSH = CreateObject("Wscript.Shell")
  22.                 Set ObjectWMI = Getobject("winmgmts:\" & StrComputer)

  24.                 Set NetCards = ObjectWMI.ExecQuery("Select * from Win32_NetworkAdapter WHERE NetConnectionID='" & ConnectionID & "'")
  25.                 If NetCards.count<>0 Then
  26.                         For Each NetCard In NetCards
  27.                                 WScript.Echo "Name: " & NetCard.Name & "        MACAddress: " & NetCard.MACAddress
  28.                                 NetCardName = NetCard.Name
  29.                                 strNet = Split(NetCard.Name, " ", -1, 1)
  30.                                 str1 = strNet(0) & strNet(1) & strNet(2)
  31.                         Next
  32.                         Else
  33.                         Wscript.Echo "网卡不存在."
  34.                         WScript.Quit(0)
  35.                 End If
  36.                 '获取用于上网的网卡信息

  38.                 CurrentFlow
  39.                 BeginFlow = CurrentFlowInt
  40.                 '获取开始时接收的流量（字节）
  41.                 Wscript.Echo "BeginFlow: " & BeginFlow

  43.                 WScript.Sleep 120000
  44.                 '定义时间范围

  46.                 CurrentFlow
  47.                 EndFlow = CurrentFlowInt
  48.                 '获取结束时接收的流量（字节）
  49.                 Wscript.Echo "EndFlow: " & EndFlow

  51.                 Result = EndFlow-BeginFlow
  52.                 If Result<10240 Then
  53.                         '10240即10KB，当120000毫秒（120秒=2分钟）（上面的时间范围）内接收流量小于10KB就关闭系统
  54.                         WScript.Echo "关闭系统."
  55.                         ObjectWSH.Run"shutdown.exe -s -t 0", 0, TRUE
  56.                 End If
  57.                 '计算结果并比较

  59.                 WScript.Echo "Exit..."
  60.                 WScript.Sleep 10000
  61.                 WScript.Quit(0)
  62.         End If
  63. Loop


  66. Function CurrentFlow
  67.         Set ObjectFlows = ObjectWMI.InstancesOf("Win32_PerfRawData_Tcpip_NetworkInterface")
  68.         For Each ObjectFlow In ObjectFlows
  69.                 strNetName = Split(ObjectFlow.Name, " ", -1, 1)
  70.                 str2 = strNetName(0) & strNetName(1) & strNetName(2)
  71.                 If str1 = str2 Then
  72.                         CurrentFlowInt = ObjectFlow.BytesReceivedPersec
  73.                 End If
  74.         Next
  75. End Function


复制代码
这个代码，属于测试代码，时间间隔设置成2分钟，会陆续弹出相关窗口。

遇到的问题是：

xp sp3系统下，

如果vbs代码先启动，再启动迅雷7的话，测试正常（弹出窗口，可以自动关机）。

如果迅雷7先启动，再运行这个vbs代码，测试无反映（不弹出窗口，不自动关机）。
回复

举报

wc726842270
发表于 2011-9-28 22:56:22 | 显示全部楼层
回复 9# caruko


    学习了，一会研究一下，真没想到它还有这种作用，当然其它的我也不了解，呵呵
回复

举报

下一页 »
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-18 12:45 , Processed in 0.021905 second(s), 7 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表