分享时间 | 2020-09-07 15:04 |
最后更新 | 2022-10-06 22:12 |
修订版本 | 3 |
用户许可 | -未设置- |
Quicker版本 | 1.35.17 |
动作大小 | 1 KB |
建议从github下载https://objects.githubusercontent.com/github-production-release-asset-2e65be/158025849/fff76b9b-ffe9-4788-8cbe-865c75b8f36e?X-Amz-Algorithm=AWS4-HMAC-SHA256&X-Amz-Credential=AKIAIWNJYAX4CSVEH53A%2F20230707%2Fus-east-1%2Fs3%2Faws4_request&X-Amz-Date=20230707T015350Z&X-Amz-Expires=300&X-Amz-Signature=fdc6fa99e35a3d78625e42a998493358e7aebd7bb8bb82ed6a975286c65950d6&X-Amz-SignedHeaders=host&actor_id=0&key_id=0&repo_id=158025849&response-content-disposition=attachment%3B%20filename%3DAutoDarkModeX_10.3.0.90.exe&response-content-type=application%2Foctet-stream 这个如软件实现自动化处理
win10全局深色模式,一键来回切换,新增深色模式不透明,浅色模式透明
t=ws.regwrite(path & "AppsUseLightTheme","0","REG_DWORD") 0为App深色 1为浅色
t=ws.regwrite(path & "SystemUsesLightTheme","0","REG_DWORD") 0为系统主题深色 1为浅色
t=ws.regwrite(path & "EnableTransparency","0","REG_DWORD") 0为不透明 1为透明
版本2代码
Set ws = CreateObject("Wscript.Shell")
Value = ws.RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize\AppsUseLightTheme")
path="HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize\"
If (Value = 1) Then
t=ws.regwrite(path & "AppsUseLightTheme","0","REG_DWORD")
t=ws.regwrite(path & "SystemUsesLightTheme","0","REG_DWORD")
t=ws.regwrite(path & "EnableTransparency","0","REG_DWORD")
Else
t=ws.regwrite(path & "AppsUseLightTheme","1","REG_DWORD")
t=ws.regwrite(path & "SystemUsesLightTheme","1","REG_DWORD")
t=ws.regwrite(path & "EnableTransparency","1","REG_DWORD")
End If
Wscript.Quit
在win11下会有任务栏图标颜色不变的问题
现在升级为系统默认主题
Set ws = CreateObject("Wscript.Shell")
Value = ws.RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\CurrentTheme")//读取主题设置参数
If (Value ="C:\WINDOWS\resources\Themes\aero.theme") Then
ws.Run "C:\WINDOWS\resources\Themes\dark.theme"//改变主题为dark黑色,可自己更换为喜欢的主题,
可加上颜色定义(t=ws.regwrite(path & "AppsUseLightTheme","0","REG_DWORD") 0为App深色 1为浅色
t=ws.regwrite(path & "SystemUsesLightTheme","0","REG_DWORD") 0为系统主题深色 1为浅色t=ws.regwrite(path & "EnableTransparency","0","REG_DWORD") 0为不透明 1为透明)
Else
ws.Run "C:\WINDOWS\resources\Themes\aero.theme"//改变主题为aero,Aero效果/特效,可自己更换为喜欢的主题
End If
Wscript.Quit
对比了两个主题文件代码,总之就是感觉微软魔改注册表实现的功能,太乱了。。。。
修订版本 | 更新时间 | 更新说明 |
---|---|---|
3 | 2022-10-06 22:12 | 更新系统默认主题,防止任务栏图标色彩不统一,可自行修改代码自定义主题 |
2 | 2021-12-30 13:36 | 新增透明效果设置 |
1 | 2020-09-07 15:17 | 更新WScript.CreateObject为CreateObject,精简代码快那么一丢丢 |