caruko

用systeminfo为了省去调用%time%的计算麻烦。
倒是没注意过时间是否准确。

其实也就是大概判断，ping -n 3000 时间足够长了，循环不占用什么资源，倒是ping用的多，虽然可以用其它办法解决，比如设置计划任务。
其实就是图懒。

CrLf

16# caruko


用 wmic os get LastBootUpTime,LocalDateTime 更省事噢~

caruko

17# zm900612


WMIC的试了一下，都是准确的时间点。
如果要计算 时间差，可能需要 跨小时来计算，但最麻烦的是跨日期、跨月、甚至跨年。
比如 6月31晚上 挂机下载，那么时间到 7月1日后，计算就复杂多了。

而systeminfo 就没有这个麻烦，因为它的启动时间本身就是时间差，而不是时间点。

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系统。

CrLf

20# ygqiang


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

ygqiang

20# ygqiang


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

多谢。

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

CrLf

@echo off&setlocal enabledelayedexpansion
for /l %%a in () do (
	set new=
	for /f "skip=4 tokens=2" %%a in ('netstat -e') do if not defined new set new=%%a
	set /a new=!new:~,-4!,in=new-last,last=new,"t=in/10+^!^!in"
	if !in!==10 shutdown /f /s /t 0
	mshta "javascript:document.write();setTimeout('close()',180000);"
)
复制代码

网络连接正常时“完全没有流量”是不可能的，所以我按大约超过10kb来判断，不过哪怕没有上网，三十分钟的吞吐量也应该超过10kb了吧...

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代码，实现的功能是否一样呢？

fastslz

没时间给你完整代码，wmi 方法参考
自动识别拨号上网还是路由
http://www.bathome.net/thread-3198-1-2.html

ygqiang

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

ygqiang

有没有人帮忙做下，谢谢

lxzzr

StrComputer = "."
ConnectionID = "本地连接1"
'这里根据实际情况修改

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
	Next
	Else
	Wscript.Echo "网卡不存在."
	WScript.Quit(0)
End If
'获取用于上网的网卡信息

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

WScript.Sleep 18000
'定义时间范围

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

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

WScript.Echo "Exit..."
WScript.Sleep 10000


Function CurrentFlow
	Set ObjectFlows = ObjectWMI.InstancesOf("Win32_PerfRawData_Tcpip_NetworkInterface")
	For Each ObjectFlow In ObjectFlows
		If ObjectFlow.Name=NetCardName Then
			CurrentFlow = ObjectFlow.BytesReceivedPersec
		End If
	Next
End Function
复制代码

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代码，测试无反映（不弹出窗口，不自动关机）。

wc726842270

回复 9# caruko


    学习了，一会研究一下，真没想到它还有这种作用，当然其它的我也不了解，呵呵