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

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

2 голосов
/ 19 августа 2011

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

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

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

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

Ответы [ 2 ]

1 голос
/ 28 января 2012 
'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.
0 голосов
/ 09 апреля 2013

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

...