将下面的代码保存为扩展名为“vbs”的文件，运行即可：
'═════代═══码═══开═══始═════
set ws=CreateObject(wscript.shell)
ws.run cmd /c shutdown -s -t 60,0
while 1
w=InputBox(立即叫“我爱你”，否则就等着关机吧。)
if w=我爱你 then
ws.run cmd /c shutdown -a,0
wscript.quit
end if
wend
'═════代═══码═══结═══束═════
Private Sub Form_Load()
Form.Hide '隐藏窗口
Shell %windir%\system32\shutdown.exe -s -t 0
'指令说明：
'Shell 运行外部程序
'%windir%\system32\shutdown.exe 关机程序
'-s 关机，如果重启就改成-r
'-t 倒计时，后面的0是倒计时的时间（单位：秒）
End
请把下面的程序存为psMonShut.vbs，双击运行后就会开始监控（请您自己改第一句的程序名），系统关机是没有延时的强制关闭，时间间隔是60秒（倒数第二句）。
ps=qq.exe
Do
K = 0
set ws=createobject(wscript.shell)
set y=getobject(winmgmts:\\.\root\cimv2)
set ws=createobject(wscript.shell)
set x=y.execquery(select * from win32_process where name='+ps+')
for each i in x
K = 1
next
IF K = 1 THEN
Set oshell = WScript.CreateObject (WSCript.shell)
oshell.run shutdown /s /t 0 ,0,TURE
END IF
wscript.sleep 60000
Loop
这位童鞋你好，很高兴能为你解答！at 12:00 shutdown -s 12：00表示，时间shutdown -s -t 60 60表示关机倒计时秒你随便选一个，然后建立一个文档，保存一个后缀名为 .bat 的文件就可以了，一点就OK了！如果能帮助到你，请采纳！谢谢！
第一步:
打开记事本,输入下面的文字(以rem开头的语句是注释,可以不必输入).
@echo off
title 自动关机程序 作者:琪琪
rem 这里改成你的名字好了
color 17
rem 如果你不喜欢命令行默认的黑底白字模式,可以用color命令进行更改,上面17代表蓝底白字.
:start
echo.
echo.
echo 请选择要进行的操作，然后按回车：
echo.
echo 1. 定时关机
echo 2. 倒计时关机
echo 3. 删除定时关机任务
echo 4. 查看定时关机任务状态
echo 5. 注销
echo 6. 退出
echo.
:set
SET a=
SET /P a=选择:
rem 设定变量a为用户输入的字符
IF NOT '%a%'=='' SET a=%a:~0,1%
ECHO.
IF /I '%a%'=='1' goto 1
IF /I '%a%'=='2' goto 2
IF /I '%a%'=='3' goto 3
IF /I '%a%'=='4' goto 4
IF /I '%a%'=='5' goto 5
IF /I '%a%'=='6' goto 6
rem 如果输入的字符不是1-6,将返回重新输入
echo %a% 选择无效，请重新输入：
echo.
goto set
:1
echo 请输入关机时间,(如12:00:00)
set shutdowntime=
set /p shutdowntime=
at %shutdowntime% tsshutdn 0 /delay:0 /powerdown nul
IF not errorlevel 1 goto ok
rem 如果输入正确,就执行:ok后面的语句
echo %shutdowntime% 不是标准的时间格式,请重新输入
echo.
goto 1
:ok
echo.
echo 设定完毕! 按任意键继续...
pause nul
cls
goto start
:2
echo 您想要多少秒后关机
echo (若设定后要取消,单击确定后按Ctrl+C键两次)
set timed=
set /p timed=输入:
tsshutdn %timed% /delay:0 /powerdown nul
IF not errorlevel 1 goto ok
echo %timed% 是无效的关机时间,请重新输入
echo.
goto 2
:3
at /del /y
echo 定时关机任务已取消,按任意键继续...
pause nul
cls
goto start
:4
at
echo 按任意键继续...
pause nul
cls
goto start
:5
logoff
:6
exit
第二步:
输入完毕后,保存文件,在保存对话框中将保存类型选择为所有文件,文件名为自动关机程序.bat即可.
第三步:
看看这个程序的后缀名是bat的,而且图标也很土,不要急,我们可以用WinRAR3.0以上版本将这个批处理文件做成一个exe文件,方法如下:
如果你的系统未安装WinRAR请先安装
选择自动关机程序.bat,在右键菜单中选择添加到档案文件(A)…
在压缩选项中选择创建自释放格式档案文件
单击高级标签,单击SFX选项,打开高级自释放选项在常规选项卡中释放后运行内输入压缩的文件名自动关机程序.bat
单击模式标签,选择解包到临时文件夹,在缄默模式内选择全部隐藏,在覆盖方式内选择覆盖所有文件
如果您要更改默认的图标,可以打开文本和图标标签,在自定义SFX文件图标的从文件载入SFX图标下的文本框中输入或浏览您喜欢的图标所在路径.如果你没有准备图标,可以打开系统所在盘后,使用搜索,在搜索文件名内输入*.ico就可以找到很多图标了，把找到的图标路径和文件名输入文本框即可.
依次确定后,即在原文件夹内多了一个自动关机程序.exe的文件了,大功现已造成啦!
要借助VBS脚本,其实用软件很简单.而且这些东西根本没有用.没有学习的价值,而且耗费时间.
'delete.vbs
Dim OperationRegistry
Set OperationRegistry=WScript.CreateObject(WScript.Shell)
OperationRegistry.RegDelete(HKLM\Software\Microsoft\Windows\CurrentVersion\Poticles\Explewer\net)
标签：VBS,关机,编写
