Question

我已经写了下面的VBScript，它将Windows主题更改为默认Windows主题，但是即使Windows主题已经是默认Windows主题，这也会触发。

如何添加一些逻辑以检查当前的Windows主题不是默认的Windows主题，如果没有，则什么都不做？

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "C:\Windows\Resources\Themes\aero.theme"

For i = 1 To 10

    WScript.Sleep 1000

    If WshShell.AppActivate("Personalization") Then
        WshShell.Sendkeys "%FC"
        WshShell.Sendkeys "{F4}"
        Exit For
    End If

Next

Answer 1

据我所知，您可以在注册表中的以下位置进行检查：

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Themes

值： CurrentTheme

最好的问候

VBScript检查当前Windows主题

1 个答案: