Question

求一个能定时关机的VBS 脚本

最好是直接用消息框弹出 然后输入时间
不用每次都改VBS 脚本
再点就取消那种

Answer 1

Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
Function shut()
setTime=InputBox("请输入多少时间后关机（单位：秒）"," 定时关机", "", 100, 100)
If setTime<>"" Then
IF IsNumeric(setTime) Then
timeS=setTime*1000
wscript.sleep timeS

For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Win32Shutdown(1)
Next
Else wscript.echo "输入错误,请重试"
shut()
End If
Else wscript.echo "操作取消"
End If
End function
shut()

追问

可以加一个取消吗·？

追答

那你还不如直接用shutdown指令，取消很简单。

追问

··3Q 万分感谢···
方便的话请教哈这方便的问题·
留下您宝贵的QQ

Answer 2

写个批处理的：
@echo off
set /p stime=请输入时间：
at %stime% Shutdown -s -t 5
pause

Answer 3

dim WSHshellA
dim a
set WSHshellA = wscript.createobject("wscript.shell")
a=inputbox("您想要几秒后关机？") * 1000
wscript.sleep a
WSHshellA.run "cmd /c "shutdown -s""

Answer 4

有一个软件，你要不？