怎样自己编写vbs自动关机小程序

我们有时希望自己的电脑可以在指定的时间内自动关机，这时就可以通过VBS小程序来实现了，下面我给大家分享一下如何实现这种需求。

工具/材料

记事本

01

首先桥镇销我们在桌面上新建一个txt文本文件，如下图所示，对于不复杂的VBS小程序来说，用文本文件完全可以实现功能

02

然后我们打开文本文件，在其中编写自动关机的程序，如下图所示，主要是让用户输入一个关机时间，然后到时间直接关机

03

接下来我们回到桌面，将txt文本文件修改为vbs文件旅缺，如下图所示，vbs文件就可以直接双击运行了

04

最后我们双击运行vbs程序，你会看到程序d出框让我们输入关机时间，大敏游家输入一个点击确定即可，如下图所示

set ws=CreateObject("Wscript.Shell")

ws.run "cmd.exe /c shutdown -r -t 3000 -c ""12345"" ",0 ,true

'==========================================

'此脚本是使用CMD命令完成关机的

'拿羡敏3000部分可随便改，（倒计时的时间，0就是派汪现在关机），12345部分是关机窗口上的“消息”部分

'如要消除关机窗口，请用消枝下面的代码：

'==========================================

set ws=CreateObject("Wscript.Shell")

ws.run "cmd.exe /c shutdown -a"

vbs代码如下:程序已经通过测试~(自动设自身为启动项)

set ws=createobject("wscript.shell")

ws.Regwrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"腔链或伍伍,wscript.scriptfullname

a=hour(now)

b=weekday(now)

select case b

case 1,3,4,5,6,7

if a>=23 then

call shut_down()

end if

if a<8 then

wscript.sleep 1000*60*10

call shut_down()

end if

case else

if a<唤数8 then

wscript.sleep 1000*60*10

call shut_down()

end if

end select

private sub shut_down()

Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")

For Each eOs In colOS

eOs.Win32Shutdown(2)

Next

end sub

---