autoit3 脚本自动安装实例

软件自动安装的相关实例！贴出来用于参考，并部分相关语法与示例

#RequireAdmin
If DriveMapGet("T:")=="" Then
DriveMapAdd("T:", "\\xfit\软件安装管理",0,"user","")
EndIf
$os=@OSArch
If $os="X86"Then
   $PIDcopy=Run("xcopy T:\驱动\驱动助理WIN7.X86 c:\驱动\ /e/h/y")
   ProcessWaitClose($PIDcopy)
   Run("c:\驱动\WanDrv6(Win7.x86).exe")
EndIf
If $os="X64"Then
   $PIDcopy=Run("xcopy T:\驱动\驱动助理WIN7.X64 c:\驱动\ /e/h/y")
   ProcessWaitClose($PIDcopy)
   Run("c:\驱动\WanDrv6(Win7.x64).exe")
EndIf

   $handle_qd="万能驱动助理"
   WinWaitActive($handle_qd,"驱动列表")
   ControlClick ($handle_qd,"驱动列表",103)
   WinWaitActive("信息","确定要继续")
   ControlClick ("信息","确定要继续",1)
   WinWaitActive("信息","需要重新启动计算机")
   ControlClick ("信息","需要重新启动计算机",2)
DirRemove ("C:\驱动\",1)
DirRemove ("C:\Drivers\",1)


   
   $PIDerp=Run ("T:\生产软件\ERP\fjs-gdcax-2.32.08-build4273.30-w32vc90.exe")
   ProcessWaitClose($PIDerp)

   Run("T:\输入法\QQWubi_Setup_2.2.334.400.exe")
   $handle="QQ五笔输入法2.2安装向导"
   WinWait($handle)
   
   If StringInStr(WinGetText($handle),"向导将指引")Then
   WinWaitActive($handle,"向导将指引")
   ControlClick ($handle,"向导将指引",1)
   WinWaitActive($handle,"授权协议")
   ControlClick ($handle,"授权协议",1)
   WinWaitActive($handle,"目标文件夹")
   ControlClick ($handle,"目标文件夹",1)
   WinWaitClose($handle,"正在安装")
   WinWaitActive($handle,"属性设置")
   ControlCommand ($handle,"属性设置",1006,"SelectString",'9')
   ControlClick ($handle,"属性设置",1)
   WinWaitActive($handle,"安装完成")
   ControlClick ($handle,"安装完成",1)
   Else
   WinWaitActive($handle,"已经安装")
   ControlClick ($handle,"已经安装",7)    
   EndIf
   
   
   Run("T:\输入法\搜狗拼音传统版8.2a(8853)去广告精简优化版.exe")
   $handle1="搜狗拼音输入法8.2a(8853)正式版"
   WinWait($handle1)
   
   If StringInStr(WinGetText($handle1),"向导将指引")Then
   WinWaitActive($handle1,"向导将指引")
   ControlClick ($handle1,"向导将指引",1)
   WinWaitActive($handle1,"选择组件")
   ControlClick ($handle1,"选择组件",1)
   WinWaitActive($handle1,"要安装的文件夹")
   ControlClick ($handle1,"要安装的文件夹",1)
   WinWaitClose ($handle1,"正在安装")
   If StringInStr(WinGetText($handle1),"需要重新启动")Then
   WinWaitActive($handle1,"需要重新启动")
   ControlClick ($handle1,"需要重新启动",1204)
   ControlClick ($handle1,"需要重新启动",1)
   EndIf
   WinWaitActive($handle1,"已安装")
   ControlClick ($handle1,"已安装",1)
   Else
   WinWaitActive($handle1,"已经安装")
   ControlClick ($handle1,"已经安装",7)    
   EndIf
   
   
   
   
   Run("T:\大型软件\AdobePDF\Adobe Acrobat X Pro 10.1.0免激活\Setup.exe")
   $handle3="Adobe Acrobat X Pro - ChineseS (10.1.0)－安装"
   WinWaitActive($handle3,"InstallShield")
   ControlClick ($handle3,"InstallShield",13994)
   WinWaitActive($handle3,"输入以下信息")
   ControlClick ($handle3,"输入以下信息",13994)
   WinWaitActive($handle3,"安装类型")
   ControlClick ($handle3,"安装类型",13994)
   WinWaitActive($handle3,"目的地文件夹")
   ControlClick ($handle3,"目的地文件夹",13994)
   WinWaitActive($handle3,"准备开始安装")
   ControlClick ($handle3,"准备开始安装",14035)
   WinWaitClose ($handle3,"正在安装")
   WinWaitActive($handle3,"已成功安装")
   ControlClick ($handle3,"已成功安装",13985)
   
   Run("T:\其它软件\WinRAR 3.40 beta 1 简体中文版.exe")
   $handle4="WinRAR 3.40 Beta 1 简体中文版"
   WinWaitActive($handle4,"目标文件夹")
   ControlClick ($handle4,"目标文件夹",1)
   WinWaitActive("WinRAR 简体中文版安装","WinRAR 关联文件")
   ControlClick ("WinRAR 简体中文版安装","WinRAR 关联文件",1)
   WinWaitActive("WinRAR 简体中文版安装","已经成功")
   ControlClick ("WinRAR 简体中文版安装","已经成功",1)
   
If $os="X86"Then
   FileCopy("T:\杀毒\远程\nod32-v4.2-chs.exe","C:\",9)
   Run("c:\nod32-v4.2-chs.exe")
EndIf
If $os="X64"Then
   FileCopy("T:\杀毒\远程\nod64-v4.2-chs.exe","C:\",9)
   Run("c:\nod64-v4.2-chs.exe")
EndIf
   
   $handle5="ESET NOD32 Antivirus"
   WinWaitActive($handle5,"欢迎使用")
   ControlClick ($handle5,"欢迎使用",2282)
   WinWaitActive($handle5,"许可协议")
   ControlClick ($handle5,"许可协议",2309)
   ControlClick ($handle5,"许可协议",2282)
   WinWaitActive($handle5,"安装模式")
   ControlClick ($handle5,"安装模式",2282)
   WinWaitActive($handle5,"自动更新")
   ControlClick ($handle5,"自动更新",2836)
   ControlClick ($handle5,"自动更新",2282)
   WinWaitActive($handle5,"预警系统")
   ControlClick ($handle5,"预警系统",2282)
   WinWaitActive($handle5,"不受欢迎的应用程序")
   WinWaitActive($handle5,"不受欢迎的应用程序")
   Opt("MouseCoordMode", 2)
   MouseClick("left",123,165)
   MouseClick("left",123,185)
   ControlClick ($handle5,"不受欢迎的应用程序",2282)
   WinWaitActive($handle5,"准备安装")
   ControlClick ($handle5,"准备安装",2775)
   WinWaitClose ($handle5,"请稍后")
   ControlClick ($handle5,"退出安装",2443)
   
   Run("T:\杀毒\sijia_agent.exe")
   $handle6="安装 - 客户端"
   WinWaitActive($handle6,"向导将指引")
   ControlClick ($handle6,"向导将指引",1)
   WinWaitActive($handle6,"安装程序即将安装")
   ControlClick ($handle6,"安装程序即将安装",1)
   WinWaitActive($handle6,"安装完成")
   Opt("MouseCoordMode", 2)
   MouseClick("left",202,173)
   ControlClick ($handle6,"安装完成",1)
   
   $PID=Run("T:\大型软件\Office\Office2007\setup.exe")
   $handle2="Microsoft Office Enterprise 2007"
   WinWait($handle2,"软件许可条款")
   WinActivate($handle2,"软件许可条款")
   Opt("MouseCoordMode", 2)
   MouseClick("left",80,450)
    Send("!c")
    WinWait($handle2,"")
   WinActivate($handle2,"")
   Sleep(10000)
   Send("!i")
   While 1
   WinWait($handle2,"")
   WinActivate($handle2,"")
   Send("!c")                ;安装完成，点击关闭按钮
   If ProcessExists($PID) = 0 Then ExitLoop
   Sleep(10000)
   WEnd
   
   DriveMapDel("T:")

View Code