用autoit3写的wps office自动安装脚本,编译完成后并不能达到效果,请大虾看出了什么问题?
Dim$wps_key="11111-11111-11111-11111-11111"(出于版权考虑,不给出实际的号了,见谅)Dim$title="WPSOffice20...
Dim $wps_key="11111-11111-11111-11111-11111" (出于版权考虑,不给出实际的号了,见谅)
Dim $title ="WPS Office 2009 专业版 - 中文版"
run ("WPS2009Pro.exe")
if WinWaitActive("&title","您的系统中已经安装了 WPS Office 2009 专业版 (6.6.0.2657),是否需要卸载旧版本?") then
send("!y")
WinWaitActive("$title"," 卸载向导")
send("!u")
WinWaitActive("&title","卸载已完成")
send("!n")
WinWaitActive("&title","保留个人用户目录下的 WPS Office 配置文件")
send("!l")
Else
WinWaitActive("$title","欢迎使用 WPS Office 2009 专业版 6.6.0.2657 安装向导")
send("!n")
WinWaitActive("$title","许可证协议")
send("!a")
send("!n")
WinWaitActive("$title","产品序列号")
send("$wps_key")
send("!n")
WinWaitActive("$title","选择组件")
send("!n")
WinWaitActive("$title","选择安装位置")
send("!n")
WinWaitActive("$title","以便创建程序的快捷方式")
send("!i")
WinWaitActive("$title","安装已成功完成")
send("!n")
WinWaitActive("$title","选择界面风格")
send("!n")
WinWaitActive("$title","安装程序已经正确完成,请最后确认以下选项")
send("!l")
EndIf
if 语句里面那段没有能够执行,给个截图如下: 展开
Dim $title ="WPS Office 2009 专业版 - 中文版"
run ("WPS2009Pro.exe")
if WinWaitActive("&title","您的系统中已经安装了 WPS Office 2009 专业版 (6.6.0.2657),是否需要卸载旧版本?") then
send("!y")
WinWaitActive("$title"," 卸载向导")
send("!u")
WinWaitActive("&title","卸载已完成")
send("!n")
WinWaitActive("&title","保留个人用户目录下的 WPS Office 配置文件")
send("!l")
Else
WinWaitActive("$title","欢迎使用 WPS Office 2009 专业版 6.6.0.2657 安装向导")
send("!n")
WinWaitActive("$title","许可证协议")
send("!a")
send("!n")
WinWaitActive("$title","产品序列号")
send("$wps_key")
send("!n")
WinWaitActive("$title","选择组件")
send("!n")
WinWaitActive("$title","选择安装位置")
send("!n")
WinWaitActive("$title","以便创建程序的快捷方式")
send("!i")
WinWaitActive("$title","安装已成功完成")
send("!n")
WinWaitActive("$title","选择界面风格")
send("!n")
WinWaitActive("$title","安装程序已经正确完成,请最后确认以下选项")
send("!l")
EndIf
if 语句里面那段没有能够执行,给个截图如下: 展开
3个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询