Что нового

[Автоматизация] Автоматическая установка Avast! 6 Free

Duero

Новичок
Сообщения
14
Репутация
3
AutoIt: 3.x
Версия: x

Категория: Администратирование, Автоматизация, Реестр, Окна и диалоги, Разное

Описание:
Скрипт Автоматической установки Avast! 6 Free

Скачайте с официального сайта последнюю версию Avast! 6 Free Antivirus
Поместите установочный файл в папку со скриптом и переименуйте его в setup_av_free.exe
Запустите AutoSetup.exe
Установка пройдет в автоматическом режиме.
Перед установкой пройдет предварительная конфигурация антивируса для оптимальной работы
А так же будет выполнена его регистрация до 2038г.

Если последние 2 пункта Вам не нужны - просто удалите или переименуйте папку Config

Автор скрипта: Работаев Антон. E-mail: [email protected]

Код/Пример:
Код:
#NoTrayIcon
;~ Скрипт Автоматической установки Avast! 6 Free
;~ Автор Работаев Антон aka Duero
;~ Можете писать мне на почту Спасибо. Мне будет приятно :)
;~ [email protected]
;~ http://Duero.tom.ru

;~ Проверка наличия ключа реестра для удаления Аваста. Если ключ есть - установка отменяется. Если его нет - можно ставить Аваст
 For $i = 1 To 10
    Local $var = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\avast\", $i)
    If @error <> 0 Then ExitLoop
    MsgBox(0+64, 'Скрипт Автоматической установки Avast! 6 Free', 'У Вас уже установлен Avast! 6!'  & @CR & 'Удалите предыдущую версию перед установкой!', 10)
	Exit
 Next


;~ Интеграция файлов настроек для Avast! 6 Free
;~ Данные беруться из папки Config
FileCopy('Config\*.ini', @AppDataCommonDir & '\AVAST Software\Avast\',1+8)
sleep(200)

;~ Установка ключа реестра с регистрацией Avast! 6 Free
;~ Ключ хранится в HKEY_LOCAL_MACHINE\SOFTWARE\AVAST Software\Avast\Registration
ShellExecuteWait('regedit.exe', '/s Registration.reg', @WorkingDir&'\Config')

;~ Конфигурация скрипта

;~ Имя исполняемого файла
$SetupFile='setup_av_free.exe'
Run($SetupFile)
;~ Заголовок инсталляционного окна
$SetupTitle='avast! Free Antivirus Setup'
;~ Настройка таймингов
$Sleep1=100
$Sleep2=200

WinWaitActive($SetupTitle,'Установка avast!')
Sleep($Sleep2) ; Обязательно нужна задержка!
ControlClick($SetupTitle,'','Button1')

;~ Настройка установки
WinWaitActive($SetupTitle,'Установка avast!')
Sleep($Sleep2) ; Обязательно нужна задержка!
ControlClick($SetupTitle,'','Button5') 
Sleep($Sleep1) ; Обязательно нужна задержка!
ControlClick($SetupTitle,'','Button3')
Sleep($Sleep1) ; Обязательно нужна задержка!
ControlClick($SetupTitle,'','Button1')

;~ Путь для установки
WinWaitActive($SetupTitle,'Расположение')
Sleep($Sleep2) ; Обязательно нужна задержка!
ControlClick($SetupTitle,'','Button1')
Sleep($Sleep1) ; Обязательно нужна задержка!

WinWaitActive($SetupTitle,'Конфигурация')
Sleep($Sleep2) ; Обязательно нужна задержка!
ControlClick($SetupTitle,'','Button1')

;~ Отмена установки Google Chrome, ожидается 5 секунд
WinWaitActive($SetupTitle,'Рекомендации avast!',5)
Sleep($Sleep2) ; Обязательно нужна задержка!
ControlClick($SetupTitle,'','Button3')
Sleep($Sleep1) ; Обязательно нужна задержка!
ControlClick($SetupTitle,'','Button1')

WinWaitActive($SetupTitle,'Информация об установке')
Sleep(500) ; Обязательно нужна задержка!
ControlClick($SetupTitle,'','Button1')

;~ Завершение установки
WinWaitActive($SetupTitle,'Установка завершена')
Sleep($Sleep2) ; Обязательно нужна задержка!
ControlClick($SetupTitle,'','Button1')

Файл: Скачать готовый скрипт

История версий:

Автор(ы): Duero
 
Автор
D

Duero

Новичок
Сообщения
14
Репутация
3
Хм... на версии Инсталлера Аваста до 13хх скрипт работает отлично! Но вот с выходом сегодняшней версии 13ххх они изменили инсталлер с рандомным окном выбора типа установки, у кого есть время - подкорректируйте мой скрипт. Либо ждите - когда у меня будет время дописать условия самому
 
Верх