2

手伝っていただけませんか？

私が必要としているのは、Windows マシンでテーマを変更する方法であり、表示プロパティ (個人設定) ウィンドウでユーザーにプロンプ​​トを表示する必要はありません。テーマ変更は、c:\windows\resources\themes\ ディレクトリから .theme ファイルを適用し、新しい .msstyles を適用しないでください。メソッドは .theme ファイルのみを適用する必要があります。パーソナライゼーション ウィンドウを表示せずにテーマを適用する方法を見つけることができませんでした。強調するために、スクリプトやマクロを使用してこれを解決したくありません。また、「sendkeys」を介してウィンドウを閉じることはオプションではありません。

WINAPI 関数または単純なレジストリ ハックによる方法があるのではないでしょうか? アドバイスをください。ありがとうございました。

よろしくお願いします

4

2 に答える 2

1 
'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.
于 2012-01-28T13:30:43.460 に答える
0

Windows 7 (および Windows 8) のテーマをサイレント モードで変更するネイティブな方法はないと思いますが、winaero テーマ スイッチャーを使用してみてください。ここで読み、ダウンロードできます。

于 2013-04-09T06:49:20.207 に答える