如何使Windows自动切换深色模式以及修改壁纸

本文从之前的解决方案发展而来。在其基础思路指导下新实现了电脑登录时自动切换深色模式，以及壁纸的功能。

本文所描述的代码被托管到了win-auto-dark。

前情提要

基于WSL的cron计划任务实现的自动切换深色模式，在实际使用中体现出来一个问题：当电脑休眠或者关机时，计划任务不会被执行。

一种解决思路是，在用户登录时也执行一次脚本。但是，crontab只有开机hook, i.e., @reboot。

查阅资料发现，Windows的任务计划提供了用户登录触发器。 真香。

好的，接下来该挑战未知的领域了：VBScript (VBS)。

VBS实现深色模式的自动切换

为什么选VBS呢，因为我记得VBS是Windows系列系统（至少从XP开始）首选的脚本语言，且没有弹窗。

其实在此之前我还试图用bat实现来着，但是写了一部分浑身不适，只好作罢。如前文所说，切换深色模式只需要修改两个注册表值：AppsUseLightTheme和SysUsesLightTheme。

更换壁纸初尝试

VBS与注册表交互看起来还算简单。首先创建一个shell交互对象，然后依法调用其RegWrite或者RegRead方法。注意，RegWrite的最后一个参数制定了注册表项的类型：REG_DWORD。

Set RegObj = WScript.CreateObject("WScript.Shell")
regPath = "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize\AppsUseLightTheme"
reg.RegWrite(regPath, True, "REG_DWORD")

让我们对象化一下：

Class MyReg
    ' Set value of a variable of Windows registry.
    Private Function SetVar(var_name, value)
        Dim RegObj, regPath
        Set RegObj = WScript.CreateObject("WScript.Shell")
        regPath = "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize\"
        ' It is important to specify "DWORD" as the variable's type
        SetVar = RegObj.RegWrite(regPath & var_name, value, "REG_DWORD")
    End Function

    ' Set value of "AppsUseLightTheme",
    ' using "Let" instead of "Set" means it's not an object.
    Public Property Let AppTheme(theme)
        AppTheme = SetVar("AppsUseLightTheme", theme)
    End Property
End Class

配置

请参考GitHub项目的Readme进行配置。

P.S. PowerShell实现更换壁纸的代码也在仓库中。

附录：VBS踩坑指南

1. VB不区分大小写，不论是关键字、变量名还是类名等等，都不区分大小写。所以类似Java形式的WindowObject windowObject = new WindowObject()是行不通的。所以，VB中应该写成Set w_obj = New WindowObject.

2. VB中对变量进行赋值时，如果是对象则用Set关键字，如上一条所示。如果是其他类型则没有前缀。

3. Class的Property支持Getter和Setter。但是，如果是普通类型赋值，要写Property Let，e.g., 上一节的AppTheme；如果是对象赋值，则需要写Property Set。

4. 函数调用有两种写法：rtn = func(a, b, c)，或者func a, b, c。应注意，没有返回值的函数或者子程序被调用时不加括号。

下次再也不写VBS了

Fin.