以下代码用于更改我的Windows主题:
Set WshShell = WScript.CreateObject("WScript.Shell")
sLocalAppDataPath = WshShell.ExpandEnvironmentStrings("%localappdata%")
WshShell.Exec "rundll32.exe %SystemRoot%\system32\shell32.dll,Control_RunDLL %SystemRoot%\system32\desk.cpl desk,@Themes /Action:OpenTheme /file:""" & sLocalAppDataPath & "\Microsoft\Windows\Themes\Custom.theme"""
运行完毕后,Peronalization窗口保持打开状态。是否可以在没有打开窗口的情况下运行文件?我知道如何使用sendkeys关闭它,但我不想这样做。非常感谢任何帮助!
答案 0 :(得分:0)
如果没有发送击键或使用自动或类似的东西,就无法完成。 看看http://winaero.com/blog/how-to-change-a-windows-theme-from-the-command-prompt/ 没试过ik但看起来很有意思。 随时通知我们。
成功!