Question

求个vbs代码让电脑晚上11点后自动关机

Answer 1

百度搜电脑定时关机代码一大堆，

追答

set diaolei=createobject("wscript.shell") 
dim shijian,guanji,hua 
shijian=time 
hua=inputbox("请输入你要用什么单位关机 1 代表分钟 2 代表小时 3 代表天") 
if hua=1 then 
guanji=inputbox("请输入你要几分钟后关机") 
if datediff("m",shijian,time)>=guanji then 
diaolei.run "rundll32.exe user.exe,exitwindows" 
diaolei.run "shutdown -s -t 0" 
elseif hua=2 then 
guanji=inputbox("请输入你要几小时后关机") 
if datediff("h",shijian,time)>=guanji then 
diaolei.run "rundll32.exe user.exe,exitwindows" 
diaolei.run "shutdown -s -t 0" 
elseif hua=3 then 
guanji=inputbox("请输入你要几天后关机") 
if datediff("d",shijian,time)>=guanji then 
diaolei.run "rundll32.exe user.exe,exitwindows" 
diaolei.run "shutdown -s -t 0" 
endif