[sanalex]

cleric1985_n,
автоматическое обновление при установке должно отключаться, если подвисает, то скрипт еще обрабатывает окно - жди.
на компах без инета ставится.

из этого файла (.exe) сам скрипт (.au3) не извлечешь. Раньше была утилита извлечение исходников, однако на новых версиях она не работает.

исходник по вашим просьбам

читать дальше »

; Автоустановка Dr.Web 5.0
; by *Sanalex*Group*
; http://samforum.ws/
; http://samlab.ws

If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
#requireadmin
#include <GUIConstants.au3>
Opt("TrayIconDebug",1)

;нельзя блокировать клавиатуру при находящемся в памяти Punto Switcher-е - не будет работать установка
AutoItSetOption("TrayIconDebug", 1)
AutoItSetOption("SendKeyDelay", 15)
If ProcessExists ( "ps.exe" )<>0 Then
ProcessClose ( "ps.exe" )
ProcessWaitClose ( "ps.exe" )
EndIf

;блокируем мышь и клаву - указать BlockInput (1)
If @OSType="WIN32_NT" Then BlockInput (0)
;в конце скрипта обязательно ставим BlockInput(0) !!!


$key_temp = (@TempDir & "\*.key")
FileSetAttrib ($key_temp, "-A-R")

Run ("drweb-500-win.exe")

WinActive ("Выбор языка", "Русский")
WinWait("Выбор языка", "Русский")
WinSetOnTop ( "Выбор языка", "Русский", 1 )
WinActivate ("Выбор языка", "Русский")
ControlClick ("Выбор языка", "Русский", "[CLASS:Button; INSTANCE:1]")

WinActive ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Программа InstallShield(R) Wizard выполнит")
WinWait("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Программа InstallShield(R) Wizard выполнит")
WinSetOnTop ( "Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Программа InstallShield(R) Wizard выполнит", 1 )
WinActivate ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Программа InstallShield(R) Wizard выполнит")
ControlClick ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Программа InstallShield(R) Wizard выполнит", "[CLASS:Button; INSTANCE:1]")

WinActive ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "принимаю условия лицензионного соглашения")
WinWait("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "принимаю условия лицензионного соглашения")
WinSetOnTop ( "Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "принимаю условия лицензионного соглашения", 1 )
WinActivate ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "принимаю условия лицензионного соглашения")
ControlClick ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "принимаю условия лицензионного соглашения", "[CLASS:Button; INSTANCE:3]")
Sleep (500)
ControlClick ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "принимаю условия лицензионного соглашения", "[CLASS:Button; INSTANCE:5]")

WinActive ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка Dr.Web anti-virus for Windows 5.0 на")
WinWait("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка Dr.Web anti-virus for Windows 5.0 на")
WinSetOnTop ( "Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка Dr.Web anti-virus for Windows 5.0 на", 1 )
WinActivate ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка Dr.Web anti-virus for Windows 5.0 на")
ControlClick ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка Dr.Web anti-virus for Windows 5.0 на", "[CLASS:Button; INSTANCE:4]")
Sleep (500)
ControlClick ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка Dr.Web anti-virus for Windows 5.0 на", "[CLASS:Button; INSTANCE:2]")

WinActive ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Указать путь к действующему ключевому файлу")
WinWait("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Указать путь к действующему ключевому файлу")
WinSetOnTop ( "Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Указать путь к действующему ключевому файлу", 1 )
WinActivate ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Указать путь к действующему ключевому файлу")
ControlClick ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Указать путь к действующему ключевому файлу", "[CLASS:Button; INSTANCE:7]")

WinActive ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка по умолчанию (рекомендуется)")
WinWait("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка по умолчанию (рекомендуется)")
WinSetOnTop ( "Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка по умолчанию (рекомендуется)", 1 )
WinActivate ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка по умолчанию (рекомендуется)")
ControlClick ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка по умолчанию (рекомендуется)", "[CLASS:Button; INSTANCE:5]")

WinWait("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Служба Планировщика заданий Windows",3)
If WinExists ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Служба Планировщика заданий Windows") then
WinActive ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Служба Планировщика заданий Windows")
WinSetOnTop ( "Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Служба Планировщика заданий Windows", 1 )
WinActivate ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Служба Планировщика заданий Windows")
ControlClick ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Служба Планировщика заданий Windows", "[CLASS:Button; INSTANCE:2]")
EndIf

WinActive ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "В ходе установки запустится Сканер")
WinWait("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "В ходе установки запустится Сканер")
WinSetOnTop ( "Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "В ходе установки запустится Сканер", 1 )
WinActivate ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "В ходе установки запустится Сканер")
ControlClick ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "В ходе установки запустится Сканер", "[CLASS:Button; INSTANCE:1]")

ProcessWait ( "drwebupw.exe" )
If ProcessExists ( "drwebupw.exe" )<>0 Then
ProcessClose ( "drwebupw.exe" )
ProcessWaitClose ( "drwebupw.exe" )
EndIf


ProcessWait ( "drweb32w.exe", 15 )

WinWait("Dr.Web Сканер", "",45)
If WinExists ("Dr.Web Сканер", "") then
WinSetOnTop ("Dr.Web Сканер", "",1)
WinActivate ("Dr.Web Сканер", "")
sleep (2000)
Send ("!x")
sleep (2000)
WinSetOnTop ("Dr.Web Сканер", "",0)
If WinExists ("Dr.Web® Сканер", "") then
WinSetOnTop ("Dr.Web® Сканер", "",1)
WinActivate ("Dr.Web® Сканер", "")
sleep (2000)
Send ("{TAB}")
sleep (2000)
Send ("{ENTER}")
sleep (3000)
EndIf
sleep (2000)
EndIf

If WinExists ("Dr.Web Сканер", "") then
WinSetOnTop ("Dr.Web Сканер", "",1)
WinActivate ("Dr.Web Сканер", "")
sleep (2000)
Send ("!x")
sleep (2000)
WinSetOnTop ("Dr.Web Сканер", "",0)
If WinExists ("Dr.Web® Сканер", "") then
WinSetOnTop ("Dr.Web® Сканер", "",1)
WinActivate ("Dr.Web® Сканер", "")
sleep (2000)
Send ("{TAB}")
sleep (2000)
Send ("{ENTER}")
sleep (3000)
EndIf
sleep (2000)
EndIf

WinActive ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Программа InstallShield Wizard успешно установила")
WinWait("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Программа InstallShield Wizard успешно установила")
WinSetOnTop ( "Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Программа InstallShield Wizard успешно установила", 1 )
WinActivate ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Программа InstallShield Wizard успешно установила")
ControlClick ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Программа InstallShield Wizard успешно установила", "[CLASS:Button; INSTANCE:1]")

WinActive ("Сведения о программе установки Dr.Web anti-virus for Windows 5.0", "Для учета изменений в настройках")
WinWait("Сведения о программе установки Dr.Web anti-virus for Windows 5.0", "Для учета изменений в настройках")
WinSetOnTop ( "Сведения о программе установки Dr.Web anti-virus for Windows 5.0", "Для учета изменений в настройках", 1 )
WinActivate ("Сведения о программе установки Dr.Web anti-virus for Windows 5.0", "Для учета изменений в настройках")
ControlClick ("Сведения о программе установки Dr.Web anti-virus for Windows 5.0", "Для учета изменений в настройках", "[CLASS:Button; INSTANCE:2]")

BlockInput(0)