|
|
这烦人的adobe,当初写了个autoit结果有个/s参数,现在又不行了。附件是己编绎的autoit安装程序,你可以用iexpress或者7zip之类的生成可执行程序进行批量安装
- ; Script Start - Add your code below here
- #include <Misc.au3>
- _Singleton("Adobe? Flash? Player ActiveX Installer")
- $bt11="安装 Adobe Flash Player"
- $prg11="flashplayer10_1_rc_activex_040510.exe"
- opt("mousecoordmode",0)
- Opt("MouseClickDelay", 500) ;10 毫秒
- Opt("MouseClickDownDelay", 500)
- Opt("WinTitleMatchMode", 4)
- Dim $primary
- Dim $secondary
- ;检查用户是否已切换了左右按钮
- $k = RegRead("HKEY_CURRENT_USER\Control Panel\Mouse", "SwapMouseButtons")
- ; 这里不必检查 RegRead 函数是否正常执行
- If $k = 1 Then
- $primary = "right"
- $secondary = "left"
- Else ;正常情况(无法读注册表也将执行下面的语句)
- $primary = "left"
- $secondary = "right"
- EndIf
- run($prg11)
- WinWait($bt11)
- if WinExists($bt11) then WinActive($bt11)
- ControlCommand($bt11,"此程序将安装 Adobe?","Button4", "check", "")
- sleep(500)
- ControlCommand($bt11,"此程序将安装 Adobe?","Button3", "check", "")
- sleep(3000) ;延时处理等待安装结束
- ControlCommand($bt11,"N","Button3", "check", "")
- ;WinClose($bt11)
复制代码 |
|