AutoIt3 自动化工具

最新推荐文章于 2025-07-07 12:30:58 发布

willsion_liu

最新推荐文章于 2025-07-07 12:30:58 发布

阅读量2.2k

点赞数 1

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/willsion_liu/article/details/74504745

自动化专栏收录该内容

1 篇文章

订阅专栏

本文介绍使用AutoIt3进行自动化安装的过程，包括设置系统环境变量、配置IE浏览器及自动安装与卸载插件的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

AutoIt3 实现自动化安装

Au3脚本是AutoIt3 Windows自动安装脚本语言，AutoIt 是一种自动控制工具。它可以被用来自动完成任何基于 Windows 或 DOS 的简单任务。它最初被设计用来自动完成安装那些其它方法不能自动安装的软件。

（1）.AutoIt3 设置系统环境变量

代码块

Func setEnv($logFileName) 
    $path=RegRead($regenv, "path")
    if stringinstr($path,"System32")==0 then
    _FileWriteLog($logFileName,"正在添加系统的环境变量……")
    $path = $path & ";C:\Windows\System32"
    RegWrite($regenv,"path","REG_EXPAND_SZ",$path) 
    MsgBox(4096, "Path variable should be %USERPROFILE%\Local Settings\TempChange:", "环境变量设置成功:"&RegRead($regenv, "path"))
    _FileWriteLog($logFileName,"添加系统的环境变量成功……")
    EnvUpdate()
    Else
    _FileWriteLog($logFileName,"系统不需要添加环境变量……")
    endif
    $path=RegRead($regenv, "path")
EndFunc

（2）.AutoIt3 设置IE

代码块

    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2","1609","reg_dword" ,"0x00000000")

    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TabbedBrowsing","PopupsUseNewWindow","REG_DWORD","2")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\CommandBar","ShowCompatibilityViewButton","REG_DWORD","1")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2","Flags","reg_dword","0x00000043")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\134.128.*.*","http","REG_DWORD","2")

（3）.AutoIt3 自动安装插件

自动安装代码块

Func installIE($logFileName)
    $file_e=@ScriptDir & "\tools\" & "高拍仪控件下载.exe"
    $e="WinRAR 自解压文件"
    _FileWriteLog($logFileName,"开始安装IE高拍仪驱动【高拍仪控件下载.exe】……")
    If FileExists($file_e) Then
    Run($file_e)
    WinwaitActive($e,"")
    ControlSetText($e, "目标文件夹(&D)", "Edit1", "C:\gaopaiyi_ie" ) 
    Send("{ENTER}")
    Send("!I")
    ;WinwaitActive($e,"安装完毕")
    ;WinActivate($e,"安装完毕")
    Sleep(2000)
    ControlClick("RegSvr32","确定","Button1")
    _FileWriteLog($logFileName,"IE高拍仪驱动安装成功！")
    MsgBox(0, "提示信息", "IE高拍仪驱动安装成功",2)
    Else
       MsgBox(0, "提示信息", "未找到安装文件，安装失败！",1)
       _FileWriteLog($logFileName,"未找到安装文件，安装失败！")
    EndIf
EndFunc

自动卸载代码块

Func uninstallIE($logFileName)
    $autoItDir = "C:\gaopaiyi_ie"
    $filelist = _FileListToArray ($autoItDir)
    if $filelist==0 then
        _FileWriteLog($logFileName,"系统还未安装【IE高拍仪驱动】")
    else
        DirRemove($autoItDir,1)
        _FileWriteLog($logFileName,"IE高拍仪驱动文件已删除！")
    endif
EndFunc

记录日志


#include <file.au3>
$logFileName=@ScriptDir & "/" & "InstallLog.txt"
$osversion=@OsVersion

If FileExists( $logFileName ) Then
   FileDelete($logFileName)
EndIf

_FileWriteLog($logFileName,"开始卸载所有驱动……")