wurich614 发表于 2011-5-6 14:34:21

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

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") ;--------删除文件--------

楼上风云 发表于 2011-5-6 16:57:49

好像不很实用哦

wurich614 发表于 2011-5-6 18:48:14

回复 2# 楼上风云


    额 哪里出错了啊

312671084 发表于 2011-5-17 15:44:54

3123123123

fangbaiyu 发表于 2011-10-24 10:31:56

好好学习 天天向上
收藏下
{:face (356):}

lgs0540 发表于 2011-10-28 11:14:58

我也收藏下，谢谢

yangyg.cq 发表于 2012-3-22 15:39:49

楼主在辛苦一下，做一下WPS的2012版本贡献一下
页: [1]
查看完整版本: i-Aotit 自动安装 WPS Office 抢鲜版V3.1