; 作者：yonken 请访问 http://yonken.blogcn.com

; 处理意外中断
AdlibEnable("end")

Func end()
   If WinExists("WinZip Setup", "注册副本已安装") Then
     WinClose("WinZip Setup", "注册副本已安装")
     WinWaitActive("WinZip 安装程序", "软件没有成功安装")
     WinClose("WinZip 安装程序", "软件没有成功安装")
     Exit
   EndIf 
EndFunc

; 运行Winzip的安装程序
Run("winzip90.exe")

; 软件汉化作者的广告^_^
WinWaitActive("WinZip 9.0 SR-1 Build 6224 汉化版", "炎之川")
Send("{ENTER}")

; 安装初始
WinWaitActive("WinZip Self-Extractor - instA.exe", "&Setup")
Send("!s")

; 安装路径
; 如果喜欢用默认路径请删除下面两行开头的分号并在后三行的前面添加分号
;WinWaitActive("WinZip 安装程序", "到下列文件夹")
;Send("{ENTER}")
WinWaitActive("WinZip 安装程序", "到下列文件夹")
ControlSetText("WinZip 安装程序", "到下列文件夹", "Edit1", "D:\Program Files\WinZip" ) 
Send("{ENTER}")

; 功能介绍
WinWaitActive("WinZip 安装", "WinZip 的功能包括")
Send("!n")

; 许可协议
WinWaitActive("许可协议")
Send("!y")

; 快速入门
WinWaitActive("WinZip 安装", "快速入门")
Send("!n")

; 选择界面
WinWaitActive("WinZip 安装", "在两种界面中进行切换")
Send("!c")
Send("!n")

; 安装类型 （典型/自定义）
WinWaitActive("WinZip 安装", "典型设置(推荐)(&E)")
Send("!e")
Send("!n")

; 文件关联
WinWaitActive("WinZip 安装", "WinZip 需要与压缩文件格式进行关联")
Send("!n")

; 完成安装
WinWaitActive("WinZip 安装", "安装已完成")
Send("{ENTER}")

; 等待WinZip的主窗口出现然后关闭它
WinWaitActive("WinZip", "打开压缩文件")
WinClose("WinZip", "打开压缩文件")

AdlibDisable()