有关VBS的一个小程序问题

2024-11-10 07:38:52

推荐回答（1个）

回答1：

Dim wsh, t ,n
set wsh=CreateObject("wscript.shell")
t=inputbox("请输入关机时间"&vbcr&vbcr&"格式为：小时：分钟","提示")
n="at " & t & " shutdown -s -t 10"
msgbox n
wsh.run n
'好像是这样，试一试
如果加上"msgbox n",当你输入"15:19"时，输出的内容为"at 15:19 shutdown -s -t 10"，到了15:19时，电脑还要等上10秒，即15:19:10才关机。如果你要使它在15:19关机,那就将" shutdown -s -t 10"修改为" shutdown -s -t 1",不过这个数字好像不能为0，我试了，虽然电脑关了，可是发生错误，我想可能为电脑有害，所以你最后别改为" shutdown -s -t 0"
还有假设时间为15:19,你输入15:19,也不能关机，要改为15:20，等电脑的时间为15:20，就关机
我试了几次，就这了啊。