Изменить тему в Windows XP или Windows 7 (без вывода сообщений)

Не могли бы вы мне помочь?

Что мне нужно, так это способ изменить тему на компьютере с Windows, не запрашивая у пользователя окно свойств экрана (персонализация). Themechange должен применять файл.theme из каталога c:\windows\resources\themes\ и НЕ применять новый.msstyles. Метод должен применять только файл.theme. Я просто не смог найти способ применить тему без появления окна персонализации. Чтобы подчеркнуть, я не хочу решать это с помощью скриптов или макросов. Кроме того, закрытие окна с помощью "sendkeys" не вариант, потому что оно все равно будет видно на мгновение.

Может быть, есть выход через функцию WINAPI или простой взлом реестра? Пожалуйста, дайте мне совет. Спасибо.

С наилучшими пожеланиями

Источник

2 ответа 

'Script name: yourtheme.vbs
'Object: Automate without command prompt the application of a Windows Theme by a VB script
'
'SCRIPT CONTENTS:
'Define Variables : 

    Set ShellApp = CreateObject("Shell.Application")
    Set WsShell = CreateObject("Wscript.Shell")


'
'Define path for your file theme (put it on a network share and don't forget to apply "read and execute" ACL for your Users)

    Theme = "typeyoursharepath\typeyourtheme.theme"
    Theme = """" + Theme + """"


'Open Display Properties Windows, Select your theme and apply with keep focus on Windows

    ShellApp.ControlPanelItem cstr("desk.cpl desk,@Themes /Action:OpenTheme /file:" & Theme)
    Wscript.Sleep 100
    WsShell.SendKeys "{ENTER}"
    While WsShell.AppActivate ("Display Properties") = TRUE
        WsShell.AppActivate "Display Properties"
    Wend

'In case of problem try to use a timeout value more important like "Wscript.Sleep 2000"
'END OF SCRIPT 

'NOTES:
'APPLIED SUCCESSFULLY ON WINDOWS XP AND WINDOWS SERVER 2003R2 X86   AND UNDER CITRIX XENAPP 4.6FP7 (OS: W2003R2X86 SP2) TO APPLY WINDOWS EMBEDDED THEME WITH BLUE BACKGROUND COLOR MORE LIGHT. 
'LOOKS GREAT ON CITRIX SESSION USER!
'INTEGRATED IN USER CONFIG GPO AT USER LOGON UNDER CITRIX XENAPP.
Источник

Я не думаю, что есть собственный способ изменить тему Windows 7 (и Windows 8) в автоматическом режиме, но вы можете попробовать использовать переключатель тем winaero. Вы можете прочитать о и скачать его здесь.

Источник
Другие вопросы по тегам