au3 制作自动安装wps 特别是:控件下的edit 要修改路径

#RequireAdmin
#Region ;**** 由 AccAu3Wrapper_GUI 创建指令 ****
#AccAu3Wrapper_Icon=bitbug_favicon (2).ico
#AccAu3Wrapper_OutFile=wps2017.exe
#AccAu3Wrapper_Res_Comment=wps2017
#AccAu3Wrapper_Res_Description=wps2017
#AccAu3Wrapper_Res_Fileversion=wps2017
#AccAu3Wrapper_Res_LegalCopyright=wps2017
#AccAu3Wrapper_Res_Language=2052
#AccAu3Wrapper_Res_requestedExecutionLevel=None
#EndRegion ;**** 由 AccAu3Wrapper_GUI 创建指令 ****

ShellExecute('explorer', 'WPS2013ProPlus_normal.exe')
TrayTip("请勿移动鼠标和敲击键盘!", "正在安装!", 10)
WinWaitActive("WPS Office 2013 专业增强版", "欢迎使用 WPS Office 2013 专业增强版 9.1.0.4940 安装向导")
Send("!n")
WinWaitActive("WPS Office 2013 专业增强版", "金山软件最终用户许可协议")
ControlClick("WPS Office 2013 专业增强版", "金山软件最终用户许可协议", "Button4")
Send("!n")
WinWaitActive("WPS Office 2013 专业增强版", "产品序列号:")
ControlSetText("WPS Office 2013 专业增强版", "", "Edit1", "THUV2-32HH7-6NMHN-PTX7Y-QQCTH")
Send("!n")
WinWaitActive("WPS Office 2013 专业增强版", "选定安装的组件:")
Send("!n")
WinWaitActive("WPS Office 2013 专业增强版", "选择安装位置")
WinActivate("WPS Office 2013 专业增强版", "选择安装位置")
clipput("d:wps")
Send("^v")
;~ send({"home"}{"delete"}{"D"})
Send("!n")
WinWaitActive("WPS Office 2013 专业增强版", "文件夹")
WinActivate("WPS Office 2013 专业增强版", "文件夹")
;~ Sleep(300)
ControlClick("WPS Office 2013 专业增强版", "", "Button2")
;~ Sleep(100)
WinWaitActive("WPS Office 2013 专业增强版", "安装完成")
Send("!n")
WinWaitActive("WPS Office 2013 专业增强版", "选择界面风格")
Send("!n")
WinWaitActive("WPS Office 2013 专业增强版", "安装程序已经正确完成,请最后确认以下选项。")
WinActivate("WPS Office 2013 专业增强版", "安装程序已经正确完成,请最后确认以下选项。")
Send("!l")

博客园:冷色008 百度:冷色008
原文地址:https://www.cnblogs.com/--3q/p/5473935.html