找回密码
 加入
搜索
查看: 3026|回复: 2

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

[复制链接]
发表于 2010-5-23 01:40:24 | 显示全部楼层 |阅读模式
欢迎各位高手提提意见:
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("显示 属性","")
发表于 2010-5-23 14:48:34 | 显示全部楼层
是提问吗
 楼主| 发表于 2010-5-23 21:06:44 | 显示全部楼层
就是习作而已,让各位前辈看看有什么地方可以改进一下的。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-22 17:07 , Processed in 0.075613 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表