123
返回列表 发帖
ygqiang

Rank: 5Rank: 5

帖子
1381 
积分
853 
技术
15  
捐助
50  
注册时间
2010-4-18 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2011-7-6 00:28 | 只看该作者

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

本帖最后由 ygqiang 于 2011-10-7 00:13 编辑

xp系统下，晚上  用迅雷下载高清视频，一开始有200KB/S的下载速度，有的时候，就突然没有速度了。（是通过web页面拨号上网的，如果断线，会自动重新拨号，这个时候，在30分钟以内，会重新拨号多次）

如果30分钟以后，仍然无法拨号成功（不能上网），就自动关机


2011-9-28最新需求如下：

开机，自动启动并监视迅雷，如果迅雷没有运行，则一直监视

如果迅雷已经运行了，则如果20分钟之内网络流量<20k（还要考虑遇到无法拨号成功的情况），就自动关机。

看33楼代码。


33楼vbs代码出现新问题。
这个vbs代码，正常情况下，如果检测到运行迅雷，在2分钟内，如果流量《20k，才会自动关机。

问题就是：运行迅雷（不下载），即使开qq  看在线视频，还会在2分钟内自动关机。
运行迅雷（不下载），一直开qq  看在线视频，在2分钟内，流量应该》20k，应该不会自动关机啊？
收藏 分享

ygqiang

Rank: 5Rank: 5

帖子
1381 
积分
853 
技术
15  
捐助
50  
注册时间
2010-4-18 
41楼
发表于 2011-12-6 18:33 | 只看该作者
mark......

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
40楼
发表于 2011-10-10 19:14 | 只看该作者
36楼代码，我这里是测试成功了。

你那没成功有没有提示什么？比如  这个提示BeginFlow:  后面有没有数字？
---学无止境---

TOP

ygqiang

Rank: 5Rank: 5

帖子
1381 
积分
853 
技术
15  
捐助
50  
注册时间
2010-4-18 
39楼
发表于 2011-10-8 11:05 | 只看该作者
36楼代码，也试过了。

不行。

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
38楼
发表于 2011-10-8 10:02 | 只看该作者
回复 37# ygqiang


    36楼代码试试看？
---学无止境---

TOP

ygqiang

Rank: 5Rank: 5

帖子
1381 
积分
853 
技术
15  
捐助
50  
注册时间
2010-4-18 
37楼
发表于 2011-10-8 09:52 | 只看该作者
本帖最后由 ygqiang 于 2011-10-8 11:05 编辑

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

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

是哪里出现问题了？

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


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



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

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

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
36楼
发表于 2011-10-7 21:35 | 只看该作者
试试这样：
  1. '======================================================================

  2. '程序开始------检测迅雷是否运行-----是-----开始网络监视

  3. '                      ｜                        ↑

  4. '                      否                         ｜

  5. '                      ｜                        ｜

  6. '         ↑------ 一直监视系统进程-----迅雷运行---

  7. '         ｜              ｜

  8. '         ----------- 未运行

  9. '======================================================================

  10. 

  11. On Error Resume Next

  12. Public CurrentFlowInt, ProFlag

  13. 

  14. ConnectionID = "本地连接"

  15. 

  16. Set ObjectNetwork = CreateObject("Wscript.Network")

  17. strComputer = ObjectNetwork.ComputerName

  18. '获取计算机名，必须用字符串，不能用.代替

  19. 

  20. Set ObjectWSH = Wscript.createObject("Wscript.shell")

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

  22. 

  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. '获取用于上网的网卡信息

  36. 

  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

  43. 

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

  45. 

  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

  50. 

  51.                 Wscript.Echo "迅雷已运行."

  52.                 '监视网络

  53.                 CurrentFlow

  54.                 BeginFlow = CurrentFlowInt

  55.                 '获取开始时接收的流量（字节）

  56.                 Wscript.Echo "BeginFlow: " & BeginFlow

  57.                 WScript.Sleep 120000

  58.                 '定义时间范围

  59. 

  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

  79. 

  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.         '计算结果并比较

  87. 

  88.         WScript.Echo "Exit ..."

  89.         WScript.Quit(0)

  90. Loop

  91. 

  92. 

  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

评分人数

    • CrLf: 乐于助人技术 + 1
---学无止境---

TOP

ygqiang

Rank: 5Rank: 5

帖子
1381 
积分
853 
技术
15  
捐助
50  
注册时间
2010-4-18 
35楼
发表于 2011-10-7 02:32 | 只看该作者
也有人说：是xp系统本身的问题。

TOP

ygqiang

Rank: 5Rank: 5

帖子
1381 
积分
853 
技术
15  
捐助
50  
注册时间
2010-4-18 
34楼
发表于 2011-10-7 00:14 | 只看该作者
有人说：CurrentFlow函数没调用成功  流量统计有问题

xp系统下测试的。

TOP

ygqiang

Rank: 5Rank: 5

帖子
1381 
积分
853 
技术
15  
捐助
50  
注册时间
2010-4-18 
33楼
发表于 2011-9-30 13:37 | 只看该作者
本帖最后由 ygqiang 于 2011-10-6 20:46 编辑

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

但遇到个小问题，见1楼描述。
  1. '======================================================================

  2. '程序开始------检测迅雷是否运行-----是-----开始网络监视

  3. '		      ｜			↑

  4. '		      否 			｜

  5. '		      ｜			｜

  6. '	 ↑------ 一直监视系统进程-----迅雷运行---

  7. '	 ｜	      ｜

  8. '	 ----------- 未运行

  9. '======================================================================

  10. 

  11. On Error Resume Next

  12. Public CurrentFlowInt, ProFlag

  13. 

  14. ConnectionID = "本地连接"

  15. 

  16. Set ObjectNetwork = CreateObject("Wscript.Network")

  17. strComputer = ObjectNetwork.ComputerName

  18. '获取计算机名，必须用字符串，不能用.代替

  19. 

  20. Set ObjectWSH = Wscript.createObject("Wscript.shell")

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

  22. 

  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. '获取用于上网的网卡信息

  36. 

  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

  43. 

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

  45. 

  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

  50. 

  51. 		Wscript.Echo "迅雷已运行."

  52. 		'监视网络

  53. 		CurrentFlow

  54. 		BeginFlow = CurrentFlowInt

  55. 		'获取开始时接收的流量（字节）

  56. 		Wscript.Echo "BeginFlow: " & BeginFlow

  57. 		WScript.Sleep 120000

  58. 		'定义时间范围

  59. 

  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

  79. 

  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. 	'计算结果并比较

  87. 

  88. 	WScript.Echo "Exit ..."

  89. 	WScript.Quit(0)

  90. Loop

  91. 

  92. 

  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

评分人数

    • CrLf: 乐于助人技术 + 1

TOP

ygqiang

Rank: 5Rank: 5

帖子
1381 
积分
853 
技术
15  
捐助
50  
注册时间
2010-4-18 
32楼
发表于 2011-9-29 11:02 | 只看该作者
顶啊，多谢各位了。

TOP

920168

Rank: 2

帖子
105 
积分
185 
技术
18  
捐助
0  
注册时间
2011-9-16 
31楼
发表于 2011-9-28 23:13 | 只看该作者
呵呵，很好，学习了!
http://www.diecasting86.com

TOP

wc726842270

Rank: 7Rank: 7Rank: 7

帖子
1107 
积分
4218 
技术
37  
捐助
0  
注册时间
2010-6-8 
30楼
发表于 2011-9-28 22:56 | 只看该作者
回复 9# caruko


    学习了，一会研究一下，真没想到它还有这种作用，当然其它的我也不了解，呵呵
枫中残雪：风停了，我的心却在动，让我心中的寒意走向远方

TOP

ygqiang

Rank: 5Rank: 5

帖子
1381 
积分
853 
技术
15  
捐助
50  
注册时间
2010-4-18 
29楼
发表于 2011-9-28 15:07 | 只看该作者 
  1. On Error Resume Next

  2. Public CurrentFlowInt

  3. StrComputer = "."

  4. ConnectionID = "本地连接"

  5. '这里根据实际情况修改

  6. 

  7. 

  8. Set objWMIService = GetObject("winmgmts:" _

  9.     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

  10. Set colMonitoredProcesses = objWMIService. _        

  11.     ExecNotificationQuery("select * from __instancecreationevent " _ 

  12.         & " within 1 where TargetInstance isa 'Win32_Process'")

  13. i = 0

  14. Do While i = 0

  15.     Set objLatestProcess = colMonitoredProcesses.NextEvent

  16.     If objLatestProcess.TargetInstance.Name = "Thunder.exe" Then

  17. 		Wscript.Echo "迅雷已运行."

  18. 	

  19. 		Set ObjectWSH = CreateObject("Wscript.Shell")

  20. 		Set ObjectWMI = Getobject("winmgmts:\\" & StrComputer)

  21. 

  22. 		Set NetCards = ObjectWMI.ExecQuery("Select * from Win32_NetworkAdapter WHERE NetConnectionID='" & ConnectionID & "'")

  23. 		If NetCards.count<>0 Then

  24. 			For Each NetCard In NetCards

  25. 				WScript.Echo "Name: " & NetCard.Name & "	MACAddress: " & NetCard.MACAddress

  26. 				NetCardName = NetCard.Name

  27. 				strNet = Split(NetCard.Name, " ", -1, 1)

  28. 				str1 = strNet(0) & strNet(1) & strNet(2)

  29. 			Next

  30. 			Else

  31. 			Wscript.Echo "网卡不存在."

  32. 			WScript.Quit(0)

  33. 		End If

  34. 		'获取用于上网的网卡信息

  35. 

  36. 		CurrentFlow

  37. 		BeginFlow = CurrentFlowInt

  38. 		'获取开始时接收的流量（字节）

  39. 		Wscript.Echo "BeginFlow: " & BeginFlow

  40. 

  41. 		WScript.Sleep 120000

  42. 		'定义时间范围

  43. 

  44. 		CurrentFlow

  45. 		EndFlow = CurrentFlowInt

  46. 		'获取结束时接收的流量（字节）

  47. 		Wscript.Echo "EndFlow: " & EndFlow

  48. 

  49. 		Result = EndFlow-BeginFlow

  50. 		If Result<10240 Then

  51. 			'10240即10KB，当120000毫秒（120秒=2分钟）（上面的时间范围）内接收流量小于10KB就关闭系统

  52. 			WScript.Echo "关闭系统."

  53. 			ObjectWSH.Run"shutdown.exe -s -t 0", 0, TRUE

  54. 		End If

  55. 		'计算结果并比较

  56. 

  57. 		WScript.Echo "Exit..."

  58. 		WScript.Sleep 10000

  59. 		WScript.Quit(0)

  60. 	End If

  61. Loop

  62. 

  63. 

  64. Function CurrentFlow

  65. 	Set ObjectFlows = ObjectWMI.InstancesOf("Win32_PerfRawData_Tcpip_NetworkInterface")

  66. 	For Each ObjectFlow In ObjectFlows

  67. 		strNetName = Split(ObjectFlow.Name, " ", -1, 1)

  68. 		str2 = strNetName(0) & strNetName(1) & strNetName(2)

  69. 		If str1 = str2 Then

  70. 			CurrentFlowInt = ObjectFlow.BytesReceivedPersec

  71. 		End If

  72. 	Next

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

遇到的问题是：

xp sp3系统下，

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

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

TOP

lxzzr

Rank: 8Rank: 8

帖子
682 
积分
1686 
技术
48  
捐助
0  
注册时间
2008-3-13 
28楼
发表于 2011-9-27 16:46 | 只看该作者 
  1. StrComputer = "."

  2. ConnectionID = "本地连接1"

  3. '这里根据实际情况修改

  4. 

  5. Set ObjectWSH = CreateObject("Wscript.Shell")

  6. Set ObjectWMI = Getobject("winmgmts:\\" & StrComputer)

  7. 

  8. Set NetCards = ObjectWMI.ExecQuery("Select * from Win32_NetworkAdapter WHERE NetConnectionID='" & ConnectionID & "'")

  9. If NetCards.count<>0 Then

  10. 	For Each NetCard In NetCards

  11. 		WScript.Echo "Name: " & NetCard.Name & "	MACAddress: " & NetCard.MACAddress

  12. 		NetCardName = NetCard.Name

  13. 	Next

  14. 	Else

  15. 	Wscript.Echo "网卡不存在."

  16. 	WScript.Quit(0)

  17. End If

  18. '获取用于上网的网卡信息

  19. 

  20. CurrentFlow

  21. BeginFlow = CurrentFlow

  22. '获取开始时接收的流量（字节）

  23. Wscript.Echo "BeginFlow: " & BeginFlow

  24. 

  25. WScript.Sleep 18000

  26. '定义时间范围

  27. 

  28. CurrentFlow

  29. EndFlow = CurrentFlow

  30. '获取结束时接收的流量（字节）

  31. Wscript.Echo "EndFlow: " & EndFlow

  32. 

  33. Result = EndFlow-BeginFlow

  34. If Result<10240 Then

  35. 	'10240即10KB，当18000秒（上面的时间范围）内接收流量小于10KB就关闭系统

  36. 	WScript.Echo "关闭系统."

  37. 	ObjectWSH.Run"shutdown.exe -s -t 0", 0, TRUE

  38. End If

  39. '计算结果并比较

  40. 

  41. WScript.Echo "Exit..."

  42. WScript.Sleep 10000

  43. 

  44. 

  45. Function CurrentFlow

  46. 	Set ObjectFlows = ObjectWMI.InstancesOf("Win32_PerfRawData_Tcpip_NetworkInterface")

  47. 	For Each ObjectFlow In ObjectFlows

  48. 		If ObjectFlow.Name=NetCardName Then

  49. 			CurrentFlow = ObjectFlow.BytesReceivedPersec

  50. 		End If

  51. 	Next

  52. End Function
复制代码
公钥

TOP

123
返回列表