1、新建一个txt文件,输入以下内容
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "rundll32.exe %SystemRoot%\system32\shell32.dll,Control_RunDLL %SystemRoot%\system32\desk.cpl desk,@Themes /Action:OpenTheme /file:""E:\aero.theme"""
2、把txt文件扩展名改为:vbs
3、双击就可以直接修改电脑主题了(E:\aero.theme 这个是你下载的主题文件路径)