Question

求一定时关机的vbs脚本代码，实现剩余时间动态显示

用shutdown -s -t 60 -c的格式，能显示剩余时间
即，要显示距离关机还有多少秒，谢谢大家了
set WS = wscript.createobject("wscript.shell")
while 1
if datediff("s",t,time())>0 Then
WS.run "shutdown -s -t 60 -c 警告！为了你和电脑的健康，强制关机，不要做无谓的抵抗！系统将于60秒后关闭"
wscript.quit
else
wscript.sleep 1000
End If
Wend

我想要的功能是 在这基础上，能像xp那样显示剩余多少秒。。谢谢啦

Answer 1

'关机代码
dim ntime
ntime = inputbox ("关机时间min",,30)
msgbox ntime & " min"
ntime=ntime*60
set a = CreateObject("wscript.Shell")
a.Run "Shutdown /f /s /t " & ntime & " /c " & "关机定时" & ntime/60 & "min",0

'取消关机代码
set a = CreateObject("wscript.Shell")
a.Run "Shutdown /a",0 '取消关机

追问

在我的代码上加一个倒计时显示时间的代码行不

追答

没弄懂你的意思，这上面是有倒计时啊，
要什么效果你截张图看看

追问

我的是WIN7系统，不显示倒计时啊

追答

这个问题，不太好办，我的是xp 的系统，效果如上，win7 里不同的话，看来只能用hta写个窗口了，这个，我不是太熟，
把下面的代码保存为hta格式，窗口应该还成 ，关机部分，还搞不定，你去vbs论坛去问问。

系统关机

Dim t,timerID

Sub Window_OnLoad
window.resizeTo 178,200
timerID=window.setInterval ("RefreshTime", 1000 ) 'milliseconds
RefreshTime
End Sub

Sub RefreshTime

CurrentTime.InnerHTML = 60-t
t=t+1
If t=5 Then
window.clearInterval(timerID)
end if
End Sub

警告！为了你和电脑的健康，强制关机，不要做无谓的抵抗！系统将于60秒后关闭
剩余时间:00:00: