7-Zip V9.14 Beta （zhfi汉化）最新版自动安装代码

jiaxinfu

好久没有弄AU3了，看到7-ZIP有了更新，随手写个自动安装代码，没有什么技术可言
只提供给新手学习，直接贴出代码。我不像别人打包或出售呵呵。。。

run("7-Zip V9.14 Beta .exe")
WinWait("7-Zip 9.14","欢迎使用“7-Zip 9.14 Ansi 汉化版”安装向导")
If Not WinActive("7-Zip 9.14","欢迎使用“7-Zip 9.14 Ansi 汉化版”安装向导") Then WinActivate("7-Zip 9.14","欢迎使用“7-Zip 9.14 Ansi 汉化版”安装向导")
WinWaitActive("7-Zip 9.14","欢迎使用“7-Zip 9.14 Ansi 汉化版”安装向导")
Send("{ALTDOWN}N{ALTUP}")
WinWait("7-Zip 9.14","许可证协议")
If Not WinActive("7-Zip 9.14","许可证协议") Then WinActivate("7-Zip 9.14","许可证协议")
WinWaitActive("7-Zip 9.14","许可证协议")
Send("{ALTDOWN}I{ALTUP}")

WinWait("7-Zip 9.14","选择安装位置")
If Not WinActive("7-Zip 9.14","选择安装位置") Then WinActivate("7-Zip 9.14","选择安装位置")
WinWaitActive("7-Zip 9.14","选择安装位置")
Send("{ALTDOWN}N{ALTUP}")
WinWait("7-Zip 9.14","选择组件")
If Not WinActive("7-Zip 9.14","选择组件") Then WinActivate("7-Zip 9.14","选择组件")
WinWaitActive("7-Zip 9.14","选择组件")
Send("{ALTDOWN}N{ALTUP}")

WinWait("7-Zip 9.14","程序设置")
If Not WinActive("7-Zip 9.14","程序设置") Then WinActivate("7-Zip 9.14","程序设置")
WinWaitActive("7-Zip 9.14","程序设置")
Send("{ALTDOWN}I{ALTUP}")
WinWait("7-Zip 9.14","设置首页为 www.114la.com 网址导航")
If Not WinActive("7-Zip 9.14","设置首页为 www.114la.com 网址导航") Then WinActivate("7-Zip 9.14","设置首页为 www.114la.com 网址导航")
WinWaitActive("7-Zip 9.14","设置首页为 www.114la.com 网址导航")
ControlClick("7-Zip 9.14","设置首页为 www.114la.com 网址导航","Button4")
Send("{ALTDOWN}F{ALTUP}")
ProcessClose("7-Zip V9.14 Beta .exe") ;这里是直接关闭，其实不用也行，因为上面有了“F”关闭键呵呵

maybe131420

支持楼主的奉献精神，新手学习了~

xinhongsen

精神上支持一下

changyu033

如果安裝過一後~
再Run此腳本就行不通了。