yamhpsxn 发表于 2010-1-12 18:27:38

Adobe Flash Player ActiveX 10自动安装脚本

run("install_flash_player_ax.exe")
WinWait("Adobe Flash Player ActiveX 安装: 正在安装","")
WinWaitActive("Adobe Flash Player ActiveX 安装: 已完成","已完成")
Send("!D")
Send("!l")
exit

cjmbbbbb 发表于 2010-1-18 14:13:09

我狂汗，这个是有静默安装参数的好不好.........

yamhpsxn 发表于 2010-1-28 11:19:07

回复 2# cjmbbbbb


安装时喜欢看的过程！

boyhong 发表于 2010-1-28 11:42:46

如何判断是否安装过？如何判断，若在脚本目录没有install_flash_player_ax.exe而给用户的提示。等等。。
人性化很重要，而这些。AUTOIT都能搞定。

shmilds 发表于 2010-4-24 16:44:43

嗯 对 加上判断是否已经安装过就好了、、、

basketballkun 发表于 2010-8-8 12:50:34

10.1的沒靜默安裝參數,我都不知道怎麼寫

lzymbz 发表于 2010-8-15 00:14:03

其实加不加判断根本没有区别
我用自动安装一般都是新电脑安装软件
有那么多提示再去自己点
还不如直接自己手动装

当然本着学习的目标，做判断倒是无可厚非

719931662 发表于 2011-8-6 10:17:19

强啊   还有这样的牛人

ahkang 发表于 2011-8-10 06:49:06

本帖最后由 ahkang 于 2011-8-10 06:52 编辑

这个，加入了判断的（注意：代码中包含了本人收集和自定义的一个 UDFS 函数集，此函数集包括了判断是否 WinPE 系统、刷新程序关联图标等）：
#RequireAdMin

Opt('WinTitleMatchMode', 2)
Opt('TrayIconDeBug', 1)

#InClude <Udfs.Au3>

TraySetIcon(@AutoItExe)
;--------------------------------------------------------------------------------------
If _IsWinPE()<>1 Then
        $OcxDir=@SystemDir&'\Macromed\Flash'
Else
        MsgBox(262144+48,'警告: 当前操作系统是 Win_PE!','当前操作系统是 Win_PE, 无法检测已安装的 Flash 控件版本信息!',5)
EndIf
;--------------------------------------------------------------------------------------
If DirGetSize($OcxDir)<>0 Then
        $Find_Ocx=FileFindFirstFile($OcxDir&'\*.Ocx')
Else
        _AutoSetup()
EndIf
;--------------------------------------------------------------------------------------
If $Find_Ocx<>0 Then $Flash_Ocx=@SystemDir&'\Macromed\Flash\'&FileFindNextFile($Find_Ocx)
; MsgBox(262144+64,'当前 Flash 控件是:',$Flash_Ocx)
$Flash_Ver=FileGetVersion($Flash_Ocx)
; MsgBox(262144+64,'当前 Flash 控件版本是: '&$Flash_Ver,'您已安装的 Flash 控件版本号是: '&$Flash_Ver&' ',8)
;--------------------------------------------------------------------------------------
$S=FileFindFirstFile('Install*Flash*Player*.eXe')
If $S<>0 Then $Set_Flash=FileFindNextFile($S)
; MsgBox(262144+64,'要安装的 Flash 控件程序是:'&$Set_Flash,'即将安装的 Flash 控件程序是: '&$Set_Flash)
$Set_Ver=FileGetVersion($Set_Flash)
;--------------------------------------------------------------------------------------
If $Set_Ver<1 Then
        MsgBox(262144+48,'当前目录中找不到要安装的 Flash 播放器插件程序!','当前目录中找不到要安装的 Flash 播放器插件程序! 请下载更高版本安装...',8)
        Exit
EndIf
;--------------------------------------------------------------------------------------
If $Flash_Ver<$Set_Ver Then
        _AutoSetup()
ElseIf $Flash_Ver=$Set_Ver Then
        If MsgBox(262144+52+256,'当前已安装的 Flash 控件版本'&$Flash_Ver&' ＝ '&$Set_Ver&' 版本!','您已安装的 Flash 控件版本 '&$Flash_Ver&' ＝ '&$Set_Ver&' 版本! 您确定继续安装吗?',10)<>6 Then Exit
        _AutoSetup()
Else
        MsgBox(262144+48,'当前已安装的 Flash 控件版本'&$Flash_Ver&' 比即将安装的 '&$Set_Ver&' 版本还要新!','您已安装的 Flash 控件版本 '&$Flash_Ver&' 比即将安装的 '&$Set_Ver&' 版本新! 请下载更高版本安装...',10)
        Exit
EndIf
;--------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------
Func _AutoSetup()
        Run($Set_Flash)
        $WinInfo=''
        $TextInfo='http://www.adobe.com/cn'
        WinWait($WinInfo,$TextInfo)
        ControlClick($WinInfo,$TextInfo,'Button4')
        ControlClick($WinInfo,$TextInfo,'Button3')
        WinWait($WinInfo,'')
        WinActivate($WinInfo,'')
        While 1
                If WinActivate($WinInfo,'') Then
                        ControlClick($WinInfo,'','Button3')
                Else
                        ExitLoop
                EndIf
        WEnd
        ;---------------------------- 刷新文件关联图标 ----------------------------
                _ReFreshIconMsg()
        ;--------------------------------------------------------------------------
EndFunc
页: [1]
查看完整版本: Adobe Flash Player ActiveX 10自动安装脚本