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

ygqiang

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

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


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

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

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

看33楼代码。


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

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

ygqiang

顶下，多谢各位啊。

ygqiang

顶下，期待高手来解决啊。

ygqiang

@Echo Off
:Loop
Ping /n 1 www.bathome.net>nul||ShutDown /s /t 1
MsHta JavaScript:document.write();setTimeout('close()',300000);
Goto Loop
复制代码

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

ygqiang

Dim WSH, WMI, EVN
Set WSH = CreateObject("Wscript.Shell")
Set WMI = GetObject("winmgmts:\\.\root\wmi")
Set EVN = WMI.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect") 
Do While True 
        Set LatestEvent = EVN.NextEvent
        WSH.Run("shutdown -s -t 0")
Loop
复制代码

这个是lxzzr版主给出的vbs代码，功能是：如果出现断网就自动关机。

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

ygqiang

20# ygqiang


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

多谢。

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

ygqiang

Dim WSH, WMI, CIM, EVD
Set WSH = CreateObject("Wscript.Shell")
Set WMI = GetObject("winmgmts:\\.\root\wmi")
Set CIM = GetObject("winmgmts:\\.\root\cimv2")
Set EVD = WMI.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect") 
Do While True 
    Set LatestEvent = EVD.NextEvent
    Wscript.Echo "网络已经断开."
        WScript.Sleep 1800000

        Set Pings = CIM.ExecQuery("Select * From Win32_PingStatus where Address = 'www.baidu.com'")
        For Each Ping in Pings
                If Ping.StatusCode = 0 Then
                        Wscript.Echo "网络已经连接."
                Else
                        WScript.Echo "关闭系统"
                        Wscript.Echo WSH.Run("shutdown -s -t 6000")
                End If
        Next
Loop
复制代码

这是lxzzr版主给出的vbs代码。

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

ygqiang

顶下，有没有比较好的解决方法？谢谢

ygqiang

有没有人帮忙做下，谢谢

ygqiang

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


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

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

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

		WScript.Sleep 120000
		'定义时间范围

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

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

		WScript.Echo "Exit..."
		WScript.Sleep 10000
		WScript.Quit(0)
	End If
Loop


Function CurrentFlow
	Set ObjectFlows = ObjectWMI.InstancesOf("Win32_PerfRawData_Tcpip_NetworkInterface")
	For Each ObjectFlow In ObjectFlows
		strNetName = Split(ObjectFlow.Name, " ", -1, 1)
		str2 = strNetName(0) & strNetName(1) & strNetName(2)
		If str1 = str2 Then
			CurrentFlowInt = ObjectFlow.BytesReceivedPersec
		End If
	Next
End Function
复制代码

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

遇到的问题是：

xp sp3系统下，

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

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

ygqiang

顶啊，多谢各位了。

ygqiang

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

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

'======================================================================
'程序开始------检测迅雷是否运行-----是-----开始网络监视
'		      ｜			↑
'		      否 			｜
'		      ｜			｜
'	 ↑------ 一直监视系统进程-----迅雷运行---
'	 ｜	      ｜
'	 ----------- 未运行
'======================================================================

On Error Resume Next
Public CurrentFlowInt, ProFlag

ConnectionID = "本地连接"

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

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

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

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

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

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

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

	Else
		Wscript.Echo "迅雷未运行."
		Set objLatestProcess = colMonitoredProcesses.NextEvent
		'监视迅雷
	    If objLatestProcess.TargetInstance.Name = "Thunder.exe" Then
			Wscript.Echo "迅雷已运行."
			CurrentFlow
			BeginFlow = CurrentFlowInt
			'获取开始时接收的流量（字节）
			Wscript.Echo "BeginFlow: " & BeginFlow
			WScript.Sleep 120000
			'定义时间范围
		End If
	End If
	
	CurrentFlow
	EndFlow = CurrentFlowInt
	'获取结束时接收的流量（字节）
	Wscript.Echo "EndFlow: " & EndFlow

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

	WScript.Echo "Exit ..."
	WScript.Quit(0)
Loop


Function CurrentFlow
	Set ObjectFlows = objWMIService.InstancesOf("Win32_PerfRawData_Tcpip_NetworkInterface")
	For Each ObjectFlow In ObjectFlows
		strNetName = Split(ObjectFlow.Name, " ", -1, 1)
		str2 = strNetName(0) & strNetName(1) & strNetName(2)
		If str1 = str2 Then
			CurrentFlowInt = ObjectFlow.BytesReceivedPersec
		End If
	Next
End Function
复制代码

ygqiang

有人说：CurrentFlow函数没调用成功  流量统计有问题

xp系统下测试的。

ygqiang

也有人说：是xp系统本身的问题。

ygqiang

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

 
Set ObjectFlows = objWMIService.InstancesOf("Win32_PerfRawData_Tcpip_NetworkInterface")
复制代码

这个vbs代码，在3个ghost xp系统下运行测试。
其中2个xp系统下可以运行。另1个xp系统不能运行。

是哪里出现问题了？

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


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



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

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