飞信2009安装脚本发布

pjydsj

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

支持一下  学习了

eneirabbit

晕之

35598253

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

bearpc

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

btking

支持一下  学习了

btking

购买了,但下不了.

lianfayong

赚够金币再过来买

xpboy

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

tian023139

还可以，支持下