[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
123
返回列表 发帖
920168

Rank: 2

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

TOP

ygqiang

Rank: 5Rank: 5

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

TOP

ygqiang

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
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

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

xp系统下测试的。

TOP

ygqiang

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
50  
注册时间
2010-4-18 
35楼
发表于 2011-10-7 02:32 | 只看该作者
也有人说：是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

帖子
1230 
积分
644 
技术
11  
捐助
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 
38楼
发表于 2011-10-8 10:02 | 只看该作者
回复 37# ygqiang


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

TOP

ygqiang

Rank: 5Rank: 5

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

不行。

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

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

TOP

123
返回列表