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

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

TOP

ygqiang

Rank: 5Rank: 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 FunctionCOPY
1

评分人数

    • CrLf: 乐于助人技术 + 1

TOP

ygqiang

Rank: 5Rank: 5

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

xp系统下测试的。

TOP

ygqiang

Rank: 5Rank: 5

帖子
1380 
积分
852 
技术
15  
捐助
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 | 只看该作者
试试这样：
'======================================================================
'程序开始------检测迅雷是否运行-----是-----开始网络监视
'                      ｜                        ↑
'                      否                         ｜
'                      ｜                        ｜
'         ↑------ 一直监视系统进程-----迅雷运行---
'         ｜              ｜
'         ----------- 未运行
'======================================================================
 
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 FunctionCOPY
1

评分人数

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

TOP

ygqiang

Rank: 5Rank: 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")COPY
这个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

帖子
1380 
积分
852 
技术
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 
40楼
发表于 2011-10-10 19:14 | 只看该作者
36楼代码，我这里是测试成功了。

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

TOP

ygqiang

Rank: 5Rank: 5

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

TOP

123
返回列表