на разных машинах разный ID.... для примера оставляю те методы которые я пробЫвал реализовать:
Код:
Код: Выделить всё
;Отображать текущую строку сценария с помощью индикатора системной панели в режиме отладки.
AutoItSetOption("TrayIconDebug", 1)
AutoItSetOption("SendKeyDelay", 20)
Opt("MouseCoordMode", 2)
Run("regedit /S reg.reg")
Run("setup.exe /pSKIPPRODUCTCHECK=1")
WinWait("Kaspersky Internet Security 2009","Вас приветствует мастер устано")
ControlClick("Kaspersky Internet Security 2009", "", "Button1", "left", 1)
WinWait("Kaspersky Internet Security 2009","")
ControlClick("Kaspersky Internet Security 2009", "", "Button2", "left", 1)
WinWait("Kaspersky Internet Security 2009","")
ControlClick("Kaspersky Internet Security 2009", "", "Button5", "left", 1)
WinWait("Kaspersky Internet Security 2009","")
ControlClick("Kaspersky Internet Security 2009", "", "Button2", "left", 1)
WinWait("Kaspersky Internet Security 2009","Папка назначения")
ControlClick("Kaspersky Internet Security 2009", "", "Button4", "left", 1)
WinWait("Kaspersky Internet Security 2009","Выборочная установка")
ControlClick("Kaspersky Internet Security 2009", "", "Button5", "left", 1)
WinWait("Kaspersky Internet Security 2009","Подготовка к установке")
ControlClick("Kaspersky Internet Security 2009", "", "Button1", "left", 1)
ControlClick("Kaspersky Internet Security 2009", "", "Button3", "left", 1)
Run("regedit /S reg.reg")
WinWait("Kaspersky Internet Security 2009","Завершение работы мастера установки")
ControlClick("Kaspersky Internet Security 2009", "", "Button2", "left", 1)
Opt("MouseCoordMode", 2)
WinActivate("Мастер настройки Kaspersky Internet Security","")
WinActivate("Мастер настройки Kaspersky Internet Security","")
WinWait("Мастер настройки Kaspersky Internet Security","")
WinWait("Мастер настройки Kaspersky Internet Security","")
WinWait("Мастер настройки Kaspersky Internet Security","")
Opt("MouseCoordMode", 2)
Opt("WinDetectHiddenText", 1)
Opt("WinSearchChildren", 1)
Opt("MouseCoordMode", 2)
WinWait("Мастер настройки Kaspersky Internet Security","")
;RunWait("Avtserver.cmd")
;ProcessClose("AVP.exe")
;send("{ENTER}")
WinActivate("Мастер настройки Kaspersky Internet Security","")
WinActivate("Мастер настройки Kaspersky Internet Security","") ;Начало
Send("!L")
Send("!д")
Send("!L") ;ключ
Send("!д")
WinActivate("Мастер настройки Kaspersky Internet Security","") ;режим защиты
WinWait("Мастер настройки Kaspersky Internet Security","")
;автоматический
MouseClick("left", 137, 304, 1)
WinActivate("Мастер настройки Kaspersky Internet Security","")
WinWait("Мастер настройки Kaspersky Internet Security","")
;вручную
;ControlClick ( "Мастер настройки Kaspersky Internet Security", "Включить защиту паролем", "AVP.Button8","left" ,1 )
MouseClick("left", 47, 227, 1)
Sleep(100)
;не обновляем
Send("!L")
Send("!д")
WinWait("Мастер настройки Kaspersky Internet Security","")
;включаем защиту паролем
WinActivate("Мастер настройки Kaspersky Internet Security","")
WinWait("Мастер настройки Kaspersky Internet Security","")
ControlClick ( "Мастер настройки Kaspersky Internet Security", "Включить защиту паролем", "AVP.Button9","left" ,1 )
;ControlEnable ( "Мастер настройки Kaspersky Internet Security", "Включить защиту паролем", "AVP.Button9")
;переходим в поле пароля
;ControlSend("Мастер настройки Kaspersky Internet Security", "Включить защиту паролем", "[CLASSNN:AVP.Button9]", "")
ControlSend("Мастер настройки Kaspersky Internet Security", "Включить защиту паролем", "[CLASSNN:Edit1]", "1")
ControlSend("Мастер настройки Kaspersky Internet Security", "Включить защиту паролем", "[CLASSNN:Edit2]", "1")
;ControlCommand ("Мастер дднастройки Kaspersky Internet Security", "Включить защиту паролем", edit2, "EditPaste" ,1)
;sleep(100)
;Send("{TAB}")
;Send("1")
;Send("{TAB}")
;sleep(10000)
;Send("1")
WinWait("Мастер настройки Kaspersky Internet Security","")
;далее
Sleep(100) ;вот с этого момента его несет... и зацепится незнаю за что....
Send("!L")
Send("!д")
Sleep(300)
;далее пропускаем виды угроз
;AVP.Progress1
Sleep(300)
Send("!L")
Send("!д")
Send("!J")
;далее
Sleep(3000)
Send("!L")
Sleep(3000)
;далее
Sleep(3000)
Send("!L")
Send("!д")
;перезагрузка
ControlClick ( "Мастер настройки Kaspersky Internet Security", "Я согласен принимать участие в Kaspersky Security Network",52885 , "left" ,1)
;отменяем перезагрузку
Sleep(3000)
Send("!L")
Send("!д")
Sleep(1000)
Send("!G")
Sleep(1000)
Send("!U")
Sleep(5000)
RunWait("Avtserver.cmd")kis8.0.0.506ru.exe сам антивирус после расспаковки msi и exe.... уже выдохся весь
+ поставленны более расширенные задачи... для етого и нужна программа