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

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

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

[复制链接]
920168
发表于 2011-9-28 23:13:30 | 显示全部楼层
呵呵，很好，学习了!
回复

举报

ygqiang
 楼主| 发表于 2011-9-29 11:02:54 | 显示全部楼层
顶啊，多谢各位了。
回复

举报

ygqiang
 楼主| 发表于 2011-9-30 13:37:53 | 显示全部楼层
本帖最后由 ygqiang 于 2011-10-6 20:46 编辑

下面是初步测试vbs代码，可以根据需要，修改时间长度、取消弹出窗口代码

但遇到个小问题，见1楼描述。
  1. '======================================================================
  2. '程序开始------检测迅雷是否运行-----是-----开始网络监视
  3. '                      ｜                        ↑
  4. '                      否                         ｜
  5. '                      ｜                        ｜
  6. '         ↑------ 一直监视系统进程-----迅雷运行---
  7. '         ｜              ｜
  8. '         ----------- 未运行
  9. '======================================================================

  11. On Error Resume Next
  12. Public CurrentFlowInt, ProFlag

  14. ConnectionID = "本地连接"

  16. Set ObjectNetwork = CreateObject("Wscript.Network")
  17. strComputer = ObjectNetwork.ComputerName
  18. '获取计算机名，必须用字符串，不能用.代替

  20. Set ObjectWSH = Wscript.createObject("Wscript.shell")
  21. Set ObjWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")

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

  37. Set CheckProcess = ObjWMIService.ExecQuery("Select * from Win32_Process WHERE Name='Thunder.exe'")
  38. If CheckProcess.count<>0 Then
  39.         ProFlag = 0
  40.         Else
  41.         ProFlag = 1
  42. End If

  44. Set colMonitoredProcesses = objWMIService.ExecNotificationQuery("select * from __instancecreationevent " & " within 1 where TargetInstance isa 'Win32_Process'")

  46. i = 0
  47. Do While i = 0
  48.     Set CheckProcess = ObjWMIService.ExecQuery("Select * from Win32_Process WHERE Name='Thunder.exe'")
  49.         If CheckProcess.count<>0 Then

  51.                 Wscript.Echo "迅雷已运行."
  52.                 '监视网络
  53.                 CurrentFlow
  54.                 BeginFlow = CurrentFlowInt
  55.                 '获取开始时接收的流量（字节）
  56.                 Wscript.Echo "BeginFlow: " & BeginFlow
  57.                 WScript.Sleep 120000
  58.                 '定义时间范围

  60.         Else
  61.                 Wscript.Echo "迅雷未运行."
  62.                 Set objLatestProcess = colMonitoredProcesses.NextEvent
  63.                 '监视迅雷
  64.             If objLatestProcess.TargetInstance.Name = "Thunder.exe" Then
  65.                         Wscript.Echo "迅雷已运行."
  66.                         CurrentFlow
  67.                         BeginFlow = CurrentFlowInt
  68.                         '获取开始时接收的流量（字节）
  69.                         Wscript.Echo "BeginFlow: " & BeginFlow
  70.                         WScript.Sleep 120000
  71.                         '定义时间范围
  72.                 End If
  73.         End If
  74.        
  75.         CurrentFlow
  76.         EndFlow = CurrentFlowInt
  77.         '获取结束时接收的流量（字节）
  78.         Wscript.Echo "EndFlow: " & EndFlow

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

  88.         WScript.Echo "Exit ..."
  89.         WScript.Quit(0)
  90. Loop


  93. Function CurrentFlow
  94.         Set ObjectFlows = objWMIService.InstancesOf("Win32_PerfRawData_Tcpip_NetworkInterface")
  95.         For Each ObjectFlow In ObjectFlows
  96.                 strNetName = Split(ObjectFlow.Name, " ", -1, 1)
  97.                 str2 = strNetName(0) & strNetName(1) & strNetName(2)
  98.                 If str1 = str2 Then
  99.                         CurrentFlowInt = ObjectFlow.BytesReceivedPersec
  100.                 End If
  101.         Next
  102. End Function
复制代码

评分

参与人数 1技术 +1 收起 理由
CrLf + 1 乐于助人

查看全部评分

回复

举报

ygqiang
 楼主| 发表于 2011-10-7 00:14:29 | 显示全部楼层
有人说：CurrentFlow函数没调用成功  流量统计有问题

xp系统下测试的。
回复

举报

ygqiang
 楼主| 发表于 2011-10-7 02:32:48 | 显示全部楼层
也有人说：是xp系统本身的问题。
回复

举报

broly
发表于 2011-10-7 21:35:05 | 显示全部楼层
试试这样：
  1. '======================================================================
  2. '程序开始------检测迅雷是否运行-----是-----开始网络监视
  3. '                      ｜                        ↑
  4. '                      否                         ｜
  5. '                      ｜                        ｜
  6. '         ↑------ 一直监视系统进程-----迅雷运行---
  7. '         ｜              ｜
  8. '         ----------- 未运行
  9. '======================================================================

  11. On Error Resume Next
  12. Public CurrentFlowInt, ProFlag

  14. ConnectionID = "本地连接"

  16. Set ObjectNetwork = CreateObject("Wscript.Network")
  17. strComputer = ObjectNetwork.ComputerName
  18. '获取计算机名，必须用字符串，不能用.代替

  20. Set ObjectWSH = Wscript.createObject("Wscript.shell")
  21. Set ObjWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")

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

  37. Set CheckProcess = ObjWMIService.ExecQuery("Select * from Win32_Process WHERE Name='Thunder.exe'")
  38. If CheckProcess.count<>0 Then
  39.         ProFlag = 0
  40.         Else
  41.         ProFlag = 1
  42. End If

  44. Set colMonitoredProcesses = objWMIService.ExecNotificationQuery("select * from __instancecreationevent " & " within 1 where TargetInstance isa 'Win32_Process'")

  46. i = 0
  47. Do While i = 0
  48.     Set CheckProcess = ObjWMIService.ExecQuery("Select * from Win32_Process WHERE Name='Thunder.exe'")
  49.         If CheckProcess.count<>0 Then

  51.                 Wscript.Echo "迅雷已运行."
  52.                 '监视网络
  53.                 CurrentFlow
  54.                 BeginFlow = CurrentFlowInt
  55.                 '获取开始时接收的流量（字节）
  56.                 Wscript.Echo "BeginFlow: " & BeginFlow
  57.                 WScript.Sleep 120000
  58.                 '定义时间范围

  60.         Else
  61.                 Wscript.Echo "迅雷未运行."
  62.                 Set objLatestProcess = colMonitoredProcesses.NextEvent
  63.                 '监视迅雷
  64.             If objLatestProcess.TargetInstance.Name = "Thunder.exe" Then
  65.                         Wscript.Echo "迅雷已运行."
  66.                         CurrentFlow
  67.                         BeginFlow = CurrentFlowInt
  68.                         '获取开始时接收的流量（字节）
  69.                         Wscript.Echo "BeginFlow: " & BeginFlow
  70.                         WScript.Sleep 120000
  71.                         '定义时间范围
  72.                 End If
  73.         End If
  74.         
  75.         CurrentFlow
  76.         EndFlow = CurrentFlowInt
  77.         '获取结束时接收的流量（字节）
  78.         Wscript.Echo "EndFlow: " & EndFlow

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

  88.         WScript.Echo "Exit ..."
  89.         WScript.Quit(0)
  90. Loop


  93. Function CurrentFlow
  94.         Set ObjectFlows = objWMIService.InstancesOf("Win32_PerfRawData_Tcpip_NetworkInterface")
  95.         For Each ObjectFlow In ObjectFlows
  96.                 strNetName = Split(ObjectFlow.Name, " ", -1, 1)
  97.                 str2 = strNetName(0) & strNetName(1) '& strNetName(2)
  98.                 If str1 = str2 Then
  99.                         CurrentFlowInt = ObjectFlow.BytesReceivedPersec
  100.                 End If
  101.         Next
  102. End Function
复制代码

评分

参与人数 1技术 +1 收起 理由
CrLf + 1 乐于助人

查看全部评分

回复

举报

ygqiang
 楼主| 发表于 2011-10-8 09:52:48 | 显示全部楼层
本帖最后由 ygqiang 于 2011-10-8 11:05 编辑

基本确定是xp系统的问题。

  2. Set ObjectFlows = objWMIService.InstancesOf("Win32_PerfRawData_Tcpip_NetworkInterface")
复制代码
这个vbs代码，在3个ghost xp系统下运行测试。
其中2个xp系统下可以运行。另1个xp系统不能运行。

是哪里出现问题了？

不能运行的xp系统，是不是服务没有开启或者别的原因？


不能运行的xp系统，是不是服务没有开启或者别的原因？



刚刚发现，33楼的代码，在这3个ghost xp版本上，运行都不能达到预期效果。

即使没有开迅雷，还会出现关机的窗口。
回复

举报

broly
发表于 2011-10-8 10:02:31 | 显示全部楼层
回复 37# ygqiang


    36楼代码试试看？
回复

举报

ygqiang
 楼主| 发表于 2011-10-8 11:05:40 | 显示全部楼层
36楼代码，也试过了。

不行。
回复

举报

broly
发表于 2011-10-10 19:14:02 | 显示全部楼层
36楼代码，我这里是测试成功了。

你那没成功有没有提示什么？比如  这个提示BeginFlow:  后面有没有数字？
回复

举报

ygqiang
 楼主| 发表于 2011-12-6 18:33:12 | 显示全部楼层
mark......
回复

举报

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

本版积分规则

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

GMT+8, 2026-3-18 09:56 , Processed in 0.028146 second(s), 12 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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