这个程序在断网后一分钟之内，如果重新连上网络会取消关机的。如果你要改成自己来选择，则将最后7行的代码改为：Answer=Msgbox("网络已断，你想立即执行关机吧", vbYesNo, "关机确认")If Answer = vbYes Then Wsh.run "shutdown -s -t 0",0Else Wsh.run "shutdown -a",0End If
