深色模式升级版

深色模式升级版 公开

如何安装动作?

适用于
分类
Windows
小宇不爱吃豆腐 用户708815787418906 wordpure 3 人赞了这个动作

1 个动作单 收藏了此动作。

更多信息
分享时间 2020-09-07 15:04
最后更新 2022-10-06 22:12
修订版本 3
用户许可 -未设置-
Quicker版本 1.35.17
动作大小 1 KB

分享到

「win11、win10全局深色模式,一键来回切换,默认为dark」

简介

建议从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,精简代码快那么一丢丢

最近讨论

使用问题 · 98
T_AI 2023-08-29 18:57 T_AI 2023-08-29 19:01