论坛 › 『 软件安装 』 › 飞信2009安装脚本发布

pjydsj 发表于 2009-11-12 20:24:10

飞信2009安装脚本发布

本帖最后由 pjydsj 于 2009-11-12 20:36 编辑

FileInstall('Fetion2009.exe',@TempDir & '\Fetion2009.exe')
Run(@TempDir & '\Fetion2009.exe')
$A='Fetion2008 安装'
$B='Fetion2008 解除安装'
If        WinWaitActive($A,'您已经安装了一个相同的版本',1) Then
        ControlClick($A,'您已经安装了一个相同的版本','Button2')
        WinWaitActive($A,'安装程序将首先卸载已经安装的版本')
        ControlClick($A,'安装程序将首先卸载已经安装的版本','Button1')
        WinWaitActive($B,'即将卸载')
        Send('!N')
        WinWaitActive($B,'卸载 Fetion2008')
        Send('!U')
        WinWaitActive($B,'已从您的计算机卸载')
        Send('!F')
        WinWaitActive($A,'选择安装位置')
        ControlSetText($A,'选择安装位置','Edit1','D:\Program Files\China Mobile\Fetion')
        Send('!I')
        WinWaitActive($A,'已经成功安装')
        ControlCommand($A,'已经成功安装','Button4','Uncheck')
        ControlCommand($A,'已经成功安装','Button8','Uncheck')
        ControlCommand($A,'已经成功安装','Button9','Uncheck')
        Send('!F')
EndIf
If WinWaitActive($A,'欢迎使用Fetion2008',1) Then
        ControlClick($A,'欢迎使用Fetion2008','Button2')
        WinWaitActive($A,'选择安装位置')
        ControlSetText($A,'选择安装位置','Edit1','D:\Program Files\China Mobile\Fetion')
        Send('!I')
        WinWaitActive($A,'已经成功安装')
        ControlCommand($A,'已经成功安装','Button4','Uncheck')
        ControlCommand($A,'已经成功安装','Button8','Uncheck')
        ControlCommand($A,'已经成功安装','Button9','Uncheck')
        Send('!F')
EndIf

lovenana81 发表于 2009-11-18 17:55:22

支持一下学习了

eneirabbit 发表于 2009-11-30 19:56:43

:face (13):晕之

35598253 发表于 2009-12-1 09:01:09

学习一下····················

bearpc 发表于 2009-12-14 23:33:23

啥时候出2009了，官方怎么没见有

btking 发表于 2009-12-21 09:22:43

支持一下学习了

btking 发表于 2009-12-21 09:25:02

购买了,但下不了.

lianfayong 发表于 2009-12-24 04:37:37

赚够金币再过来买

xpboy 发表于 2009-12-25 10:51:41

代码有点复杂注意优化一下

tian023139 发表于 2010-1-29 23:50:21

还可以，支持下

查看完整版本: 飞信2009安装脚本发布