执行场景：
早上 8 点，自动唤醒电脑，登录微信、钉钉；
下午 6 点，弹窗询问是否休眠，确定后，*掉微信、钉钉进程，进入休眠状态。
完整的Windows定时休眠/唤醒流程，适用人群场景为『995常规社畜』
休眠1、开启休眠选项设置 cmd
# 查询电源选项
powercfg /a
# 开启休眠选项
powercfg -h on2、 打开休眠菜单
依次打开并勾选：
3、配置休眠脚本控制面板\硬件和声音\电源选项\系统设置\更改当前不可用的设置\休眠
选择一个合适的位置，比如 D:\shutdown
右键空白处新建文档，将以下内容复制粘贴
另存为 shutdownh.vbs
选择格式为 ANSI，否则不能正常使用
脚本
' 获取当前程序所在的文件位置
Dim strWorkDir
strWorkDir = Left(WScript.ScriptFullName,instrrev(WScript.ScriptFullName,"\")-1)
' 加载配置文件
dim fso
config = strWorkDir & "\kill.txtc"
' 设置*掉进程
dim items
set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(config) then
set f = fso.OpenTextFile(config, 1, false)
items = f.ReadLine()
f.Close()
set f = nothing
set fso = nothing
else
If MsgBox("在休眠时需要指定关闭进程么？",vbOKCancel) = VbOk Then
items = InputBox("输入你休眠时需要*掉的进程，多个进程使用空格分开")
set f = fso.CreateTextFile(config, true)
f.Write(items)
f.Close()
set f = nothing
set fso = nothing
End If
End If
' 关机操作
Set WshShell = CreateObject("Wscript.Shell")
w = WshShell.Popup("下班了，需要休眠吗？不操作10分钟后自动关机", 600, "下班提醒",vbOKCancel)
If w = vbOk Or w <> vbCancel Then
If Not IsEmpty(items) then
' 千万不要在前面加 dim，dim 只能用来声明不能赋值
' dim process = split(items," ")
process = split(items," ")
for each item in process
WshShell.run "taskkill /f /im " & item, 0
next
End If
WshShell.run "shutdown -h",0
End If4、配置定时任务
设置休眠的时间每天下午的5:30（按照你的需求时间自行修改），执行程序 D:\shutdown\shutdownh.vbs。
cmd 命令创建
schtasks.exe /create /tn "自动休眠" /ru SYSTEM /sc daily /tr "D:\shutdown\shutdownh.vbs" /st 17:305、关于*死进程
解释一下为什么休眠要*掉某些进程，第一有些进程会在挂起后持续吃内存导致系统变的卡顿；第二有些进程一直挂在后台不安全，比如微信/qq等等。
第一次询问的时候把要*死的进程写进去，休眠的时候会自动关闭的，这里举了一些比较常用的例子
- WeChat.exe
- WeChatApp.exe
- Qq.exe
- DingTalk.exe
电脑休眠其他的程序不会关闭，但是微信、钉钉是必须要关的，为了安全起见。
# 查看进程列表
tasklist
# 查看进程正在试用的模块
tasklist /m
# 查询指定的dll文件正在被谁使用
tasklist /m:XXX.dll
手动创建
我的电脑\此电脑\右键管理\创建计划任务
唤醒自动唤醒配合工具 WakeupOnStandBy
配置如 图
唤醒设置
,
