批处理怎样监控网络流量并自动关机？ - BAT求助&讨论 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS

ygqiang

中尉

Rank: 5 Rank: 5

帖子: 1380
积分: 852
技术: 15
捐助: 50
注册时间: 2010-4-18

32楼

发表于 2011-9-29 11:02 | 只看该作者

顶啊，多谢各位了。

TOP

ygqiang

中尉

Rank: 5 Rank: 5

帖子: 1380
积分: 852
技术: 15
捐助: 50
注册时间: 2010-4-18

33楼

发表于 2011-9-30 13:37 | 只看该作者

本帖最后由 ygqiang 于 2011-10-6 20:46 编辑

下面是初步测试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
复制代码

1 评分人数

CrLf: 乐于助人技术 + 1

TOP

ygqiang

中尉

Rank: 5 Rank: 5

帖子: 1380
积分: 852
技术: 15
捐助: 50
注册时间: 2010-4-18

34楼

发表于 2011-10-7 00:14 | 只看该作者

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

xp系统下测试的。

TOP

ygqiang

中尉

Rank: 5 Rank: 5

帖子: 1380
积分: 852
技术: 15
捐助: 50
注册时间: 2010-4-18

35楼

发表于 2011-10-7 02:32 | 只看该作者

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

TOP

broly

版主

Rank: 7 Rank: 7 Rank: 7

帖子: 881
积分: 2103
技术: 95
捐助: 55
注册时间: 2010-5-23

36楼

发表于 2011-10-7 21:35 | 只看该作者

试试这样：

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

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
复制代码

1 评分人数

CrLf: 乐于助人技术 + 1

---学无止境---

TOP

ygqiang

中尉

Rank: 5 Rank: 5

帖子: 1380
积分: 852
技术: 15
捐助: 50
注册时间: 2010-4-18

37楼

发表于 2011-10-8 09:52 | 只看该作者

本帖最后由 ygqiang 于 2011-10-8 11:05 编辑

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

 
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: 7 Rank: 7 Rank: 7

帖子: 881
积分: 2103
技术: 95
捐助: 55
注册时间: 2010-5-23

38楼

发表于 2011-10-8 10:02 | 只看该作者

回复 37# ygqiang

36楼代码试试看？

---学无止境---

TOP

ygqiang

中尉

Rank: 5 Rank: 5

帖子: 1380
积分: 852
技术: 15
捐助: 50
注册时间: 2010-4-18

39楼

发表于 2011-10-8 11:05 | 只看该作者

36楼代码，也试过了。

不行。

TOP

broly

版主

Rank: 7 Rank: 7 Rank: 7

帖子: 881
积分: 2103
技术: 95
捐助: 55
注册时间: 2010-5-23

40楼

发表于 2011-10-10 19:14 | 只看该作者

36楼代码，我这里是测试成功了。

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

---学无止境---

TOP

ygqiang

中尉

Rank: 5 Rank: 5

帖子: 1380
积分: 852
技术: 15
捐助: 50
注册时间: 2010-4-18

41楼

发表于 2011-12-6 18:33 | 只看该作者

mark......

TOP

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

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]

设置关闭

开启【页面动态效果 + 卡片式布局】
关闭【页面动态效果 + 卡片式布局】


	设置关闭开启【页面动态效果 + 卡片式布局】关闭【页面动态效果 + 卡片式布局】

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]

设置 关闭

开启 【页面动态效果 + 卡片式布局】 关闭 【页面动态效果 + 卡片式布局】

设置关闭

开启【页面动态效果 + 卡片式布局】
关闭【页面动态效果 + 卡片式布局】