关于au3更改桌面主题并且立马生效遇到的问题

a000000 · 发表于 2009-8-3 08:19:45

本帖最后由 a000000 于 2009-8-6 20:59 编辑

想用au3更改桌面主题并且立马生效，找了好久也没找到相关帖子，自己想了个笨办法，如下：

Run('"Windows 7.theme"')
WinWait("显示属性")
If Not WinActive("显示属性") Then WinActivate("显示属性")
WinWaitActive("显示属性")
Sleep(1800)
Send("{enter}")

结果这样直接打不开("显示属性")的对话框，于是转为：
#include <Process.au3>
_RunDOS ('"Windows 7.theme"')
WinWait("显示属性")
If Not WinActive("显示属性") Then WinActivate("显示属性")
WinWaitActive("显示属性")
Sleep(1800)
Send("{enter}")

显示属性的框打开了，却不继续执行，请高手支招，如何不借助批处理直接Run('"Windows 7.theme"') 谢谢啦！

a000000 · 发表于 2009-8-3 08:33:39

自己先顶一下下啦

a000000 · 发表于 2009-8-3 17:32:48

没有人能解决吗？

a000000 · 发表于 2009-8-3 17:36:14

..................................都来看哈

a000000 · 发表于 2009-8-3 17:36:42

金钱+2哈

a000000 · 发表于 2009-8-3 21:36:58

啊米驼佛
............................

afan · 发表于 2009-8-3 21:40:26

没看明白。。。是想不运行界面直接更换主题？

a000000 · 发表于 2009-8-4 08:46:04

没看明白。。。是想不运行界面直接更换主题？
afan 发表于 2009-8-3 21:40

都行，只要能更换主题就行

hjxk · 发表于 2009-8-4 16:13:31

等高手来解决了

ZEROBOYS · 发表于 2009-8-5 04:49:30

可以丟那個包給我嗎？嘗試寫寫看... 應該是不難

bbip · 发表于 2009-8-5 11:07:28

最好后台就换的哈哈

asssd · 发表于 2009-8-5 11:11:58

期待高手。。。。。。

autoit3CN · 发表于 2009-8-5 23:04:31

试试
ShellExecute('C:\Windows\Resources\Themes\Luna.theme')
自己先找找文件夹有什么theme啦

a000000 · 发表于 2009-8-6 20:58:26

试试
ShellExecute('C:\Windows\Resources\Themes\Luna.theme')
自己先找找文件夹有什么theme啦
autoit3CN 发表于 2009-8-5 23:04

谢谢啦，问题解决，就是这个东西

bbip · 发表于 2009-8-7 16:03:19

测试不起作用还要再点一次确定才能生效。。。。

		自动登录	找回密码
密码			加入