看我的, 试试吧: 脚本功能: 试图自动安装 ACDSee 3.1 SR1 美化版
#Ce ____________________________________
;脚本开始 - 请在这下面添加您的代码:
Opt('WinTitleMatchMode',2)
;定义窗口标题变量:
$WinTitle='ACDSee 3.1'
;定义路径变量:
$Path='D:\Program Files\ACDSee'
;为避免安装过程中出现不必要的麻烦,先删除 D:\Program Files 下的 ACDSee 目录:
If FileExists($Path) Then DirRemove($Path,1)
Run('Acdc31Sr1')
WinWait($WinTitle,'欢迎使用 ACDSee 3.1')
ControlClick($WinTitle,'欢迎使用 ACDSee 3.1','[Text:下一步(&N) >]')
WinWait($WinTitle,'许可协议')
ControlClick($WinTitle,'许可协议','[Text:我同意(&I)]')
WinWait($WinTitle,'选定组件')
ControlClick($WinTitle,'选定组件','[Text:下一步(&N) >]')
WinWait($WinTitle,'个性化设置')
ControlClick($WinTitle,'个性化设置','[Text:下一步(&N) >]')
WinWait($WinTitle,'选定安装位置')
ControlSetText($WinTitle,'选定安装位置','Edit1',$Path)
ControlClick($WinTitle,'选定安装位置','[Text:安装(&I)]')
WinWait($WinTitle,'完成 ACDSee 3.1')
ControlClick($WinTitle,'完成 ACDSee 3.1','[Text:完成(&F)]')
|