i-Aotit 自动安装 WPS Office 抢鲜版V3.1

wurich614

i-Aotit 后修改添加 有什么不对的地方给下提示 谢谢

;--------------------------------------------------------------;脚本开始
Opt("TrayIconDebug", 1) ;0=无信息, 1=调试信息                   ;托盘代码提示
Opt("WinTextMatchMode", 1) ;1=完全匹配, 2=快速匹配              ;文字匹配方式
Opt("WinTitleMatchMode", 1) ;1=开头, 2=子串, 3=完全, 4=高级     ;标题匹配方式
Opt("WinSearchChildren", 1) ;0=不搜索, 1=搜索子窗口             ;检测子窗口
Opt("WinDetectHiddenText", 1) ;0=不检测, 1=检测                 ;检测隐藏文字
;--------------------------------------------------------------;设置脚本参数
Opt("MouseCoordMode", 0)     ;相对激活窗口的坐标 

$WinTitle_1= "WPS Office 个人版"  
$Wintxt_1= "开始安装(&I)"
$Wintxt_2= "确定"
;--------------------------------------------------------------;窗口元素变量声明

TrayTip ( "温馨提示", "正在自动安装请不要动鼠标键盘"&@CRLF&"反馈http://www.joz7.com",5,4) 
;--------------------------------------------------------------;右下角气泡提示

$Exe = 'WPS2010_setup.exe'
If ProcessExists($Exe) Then ProcessClose($Exe)
If Run($Exe) = 0 Then ShellExecute($Exe)

Do
        Sleep(10);
Until WinExists($Wintitle_1)
;WinMove($Wintitle_1, "", -1000, -1000)
;--------------------------------------------------------------;程序启动,显示界面

WinWaitActive($WinTitle_1, $Wintxt_1)
ControlClick($WinTitle_1, $Wintxt_1, "Button2")   ;开始安装(&I)

WinWaitActive($WinTitle_1, $Wintxt_2)
ControlClick($WinTitle_1, $Wintxt_2, "TTntButton.UnicodeClass1")   ;确定


;[查杀进程]
If ProcessExists("IEXPLORE.EXE") Then 
   ProcessClose("IEXPLORE.EXE")
EndIf ;--------查杀进程--------


If ProcessExists("wps.exe") Then 
   ProcessClose("wps.exe")
EndIf ;--------查杀进程--------


;[删除文件]
FileDelete ("C:\Documents and Settings\All Users\桌面\WPS文字.lnk") ;--------删除文件--------
FileDelete ("C:\Documents and Settings\All Users\桌面\WPS表格.lnk") ;--------删除文件--------
FileDelete ("C:\Documents and Settings\All Users\桌面\WPS演示.lnk") ;--------删除文件--------

楼上风云

好像不很实用哦

wurich614

回复 2# 楼上风云


    额 哪里出错了啊

312671084

3123123123

fangbaiyu

好好学习 天天向上  
收藏下

lgs0540

我也收藏下，谢谢

yangyg.cq

楼主在辛苦一下，做一下WPS的2012版本贡献一下