小鸟的论坛第一个AU3练习：设置WinXp主题和设置桌面及更改刷新率

lion.lee

欢迎各位高手提提意见：
Run("control.exe desk.cpl")
WinWaitActive("显示 属性","主题")
ControlCommand("显示 属性","主题","ComboBox1","SelectString","Windows 经典") ;选择经典模式作为主题，大家可以根据自己的喜好进行选择
Sleep(500)
Send("^{tab}") ;切换到桌面显示项目
WinWaitActive("显示 属性","自定义桌面")
ControlClick("显示 属性","自定义桌面","Button3")
WinWaitActive("桌面项目","常规")
ControlCommand("桌面项目","常规","Button2","check") ;选上我的电脑等等
ControlCommand("桌面项目","常规","Button3","check")
ControlCommand("桌面项目","常规","Button4","check")
ControlClick("桌面项目","常规","Button11")
WinWaitActive("显示 属性","")
Send("!b")
WinWaitActive("浏览","文件名")
ControlSend("浏览","文件名","Edit1","D:\My Documents\My Pictures\网速.bmp")；指定墙纸的完整路径
ControlClick("浏览","文件名","Button2")
Send("!a")
Sleep(3000)
Send("^{tab}")
Send("^{tab}")
Send("^{tab}")
Send("^{tab}");用Send("^{tab 4}");出现过几次问题，只好分开来写了
WinWaitActive("显示 属性","设置")
ControlClick("显示 属性","设置","Button7")
WinWaitActive("即插即用监视器","常规")
Send("^{tab 2}")
ControlCommand("即插即用监视器","监视器","ComboBox1","SelectString", "75")
ControlClick("即插即用监视器","监视器","Button14")
If WinExists("监视器设置","") Then
WinWaitActive("监视器设置","")
ControlClick("监视器设置","","Button2")
EndIf
WinWaitActive("显示 属性","")
WinClose("显示 属性","")

nmgwddj

是提问吗

lion.lee

就是习作而已，让各位前辈看看有什么地方可以改进一下的。