|
|
去www.autoit.net.cn看看吧
N年前就见过这东西的神奇,可是今年才学习掌握它。突然发现自己又有更多的偷懒的时间了。它的一部分特性就是完成软件安装过程的点击操作。如果你在机房里大批量的安装软件就发现这个东西有多么神奇了。
下面是个金山打字通的安装脚本
- #include <Misc.au3>
- _Singleton("金山打字通 2008 安装")
- $bt11="金山打字通 2008 安装"
- $bt12="Form1"
- $bt13="Form2"
- $bt14="金山打字通 2008"
- $prg="setup_10_10.exe"
- $fd="C:\Documents and Settings\All Users\「开始」菜单\程序\金山打字通 2008\卸载 金山打字通 2008.lnk"
- Opt("WinDetectHiddenText", 1)
- Run($prg)
- WinWaitActive($bt11)
- Send("!n")
- WinWaitActive($bt11,"在安装“金山打字通 2008”之前,请阅读授权协议。")
- ControlClick($bt11,"","接受协议中的条款","left")
- Send("!n")
- winwaitactive($bt11,"选择组件")
- ControlSend($bt11,"","SysTreeView321","{SPACE}{DOWN}{SPACE}{DOWN}{SPACE}")
- ;ControlCommand($bt11,"金山清理专家","SysTreeView321", "uncheck", "")
- Send("!n")
- winwaitactive($bt11,"选择安装位置")
- Send("!n")
- winwaitactive($bt11,"选择“开始菜单”文件夹")
- Send("!i")
- WinwaitActive($bt11,"安装完成")
- Send("!n")
- WinwaitActive($bt11,"正在完成“金山打字通 2008”安装向导")
- ;ControlCommand($bt11,"立即运行 金山打字通 2008","Button4", "uncheck", "")
- ;ControlClick($bt11,"","立即运行 金山打字通 2008","left")
- ControlClick($bt11,"","将“上网导航”设置为默认首页","left")
- Send("!f")
- WinwaitActive($bt12)
- ControlSetText($bt12,"","ThunderRT6TextBox1","onlyit");将序列号输入到软件中
- send("{enter}")
- WinwaitActive($bt13)
- ;controlclick($bt13,"","进行中文打字速度测试","left")
- controlclick($bt13,"","Button2","left")
- winclose($bt14)
- FileDelete($fd)
复制代码 |
|