Run ( 'C:\Soft\PO.exe')
; открываем файл для записи логов
$file = FileOpen("C:\script\PO\log.txt", 1)
FileWriteLine($file, "Запустились")
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file C:\script\PO\log.txt.")
Exit
EndIf
FileWriteLine($file, "Запустились")
; Ожидаем открытия окна Setup - POmanager
$rez = WinWait ( 'Setup - POmanager' )
SendKeepActive ( 'Setup - POmanager' )
If $rez = 0 Then
FileWriteLine($file, "==ОШИБКА== Не могу дождаться окна Setup - POmanager. [Welcome to the POmanager]")
MsgBox(0, "Error", "Не могу дождаться окна Setup - POmanager. [Welcome to the POmanager]")
Exit
Else
FileWriteLine($file, "Дождались окна Setup - POmanager [Welcome to the POmanager]")
EndIf
; Определяем ID Setup - POmanager [Welcome to .....] окна для дальнейшего управления этим окном через ID
$handle = WinGetHandle("Setup - POmanager", "Welcome to the POmanager")
SendKeepActive($handle)
If $handle = "" Then
FileWriteLine($file, "==ОШИБКА==Не могу получить handler окна [Welcome to .....]")
MsgBox(4096, "Error", "Не могу получить handler окна [Welcome to .....]")
Exit
Else
FileWriteLine($file, "Получили HAndler окна [Welcome to the POmanager]")
If ControlClick($handle, '', '[CLASS:TNewButton; INSTANCE:1]') = 1 Then
;If ControlSend($handle, "","", "{ENTER}") = 1 Then
FileWriteLine($file, "Нажали Далее в окне [Welcome to the POmanager]")
Else
FileWriteLine($file, "==ОШИБКА== НЕ Нажали Далее в окне [Welcome to the POmanager]")
Exit
EndIf
EndIf
;----------------
; Ожидаем открытия окна Setup - POmanager - License Agreement
FileWriteLine($file, "[License Agreement]")
$rez = WinWait ( 'Setup - POmanager' )
If $rez = 0 Then
MsgBox(0, "Error", "Не могу дождаться окна Setup - POmanager. [Welcome to the POmanager]")
Exit
Else
FileWriteLine($file, "Дождались окна Setup - POmanager [License Agreement]")
EndIf
; Определяем ID Setup - POmanager [License Agreement] окна для дальнейшего управления этим окном через ID
$handle = WinGetHandle("Setup - POmanager", "License Agreement")
If $handle = "" Then
MsgBox(4096, "Error", "Не могу получить handler окна [License Agreement]")
FileWriteLine($file, "==ОШИБКА==Не могу получить handler окна [License Agreement]")
Exit
Else
FileWriteLine($file, "Получили HAndler окна [License Agreement]")
sleep(1000)
If ControlClick($handle, '', '[CLASS:TNewRadioButton; INSTANCE:1]') = 1 AND ControlClick($handle, '', '[CLASS:TNewButton; INSTANCE:2]') = 1 Then
FileWriteLine($file, "Согласились с лицензией и нажали ДАЛЕЕ в [License Agreement]")
Else
MsgBox(4096, "Error", "==ОШИБКА== НЕ Нажали RadioButton (Сгласен) или ДАЛЕЕ в окне [License Agreement]")
FileWriteLine($file, "==ОШИБКА== НЕ Нажали RadioButton (Сгласен) или ДАЛЕЕ в окне [License Agreement]")
Exit
EndIf
EndIf
Exit
