[Creat0R]

Код:

$sTitleRus = 'Добро пожаловать - ACDSee Pro';заголовок окна ввода ключа русский.
$sTitle1Rus = 'Регистрация - ACDSee Pro';заголовок окна ввода ключа русский.
$sTitle1EnRus = 'ACDSee Pro';заголовок окна с текстом "Для завершения регистрации

$sSerial = IniRead(@ScriptDir & '\Serial.ini', 'Data', 'Key', 'XXXXXX-XXXXXX-XXXXXX-XXXXXX-XXXXXX-XXXXXX-XXXXXX')

If _Singleton(@ScriptName, 1) = 0 Then
    Exit;запрещение запуска второй копии программы
EndIf

Run(@ScriptDir & '\ACDSeePro5.exe');запускаем ACDSeePro5.exe из той же папки, где лежит скрипт
BlockInput(1);блокируем клавиатуру
WinWait($sTitleRus);ждем окно ввода пароля.
If Not WinActive($sTitleRus) Then WinActivate($sTitleRus)
WinWaitActive($sTitleRus);ждем его активации.
ControlCommand($sTitleRus, '', '[CLASS:Edit; INSTANCE:1]', "EditPaste", $sSerial)
ControlClick($sTitleRus, '', '[CLASS:Button; INSTANCE:3]')
WinWait($sTitle1Rus);ждем окно регистрации программы.
If Not WinActive($sTitle1Rus) Then WinActivate($sTitle1Rus)
ControlClick($sTitle1Rus, '', '[CLASS:SysLink; INSTANCE:2]');нажимаем на ссылку "Зарегистрироваться позже"
WinWait($sTitle1EnRus);ждем окно с текстом "Для завершения регистрации необходим перезапуск программы..."
If Not WinActive($sTitle1EnRus) Then WinActivate($sTitle1EnRus)
ControlClick($sTitle1EnRus, '', '[CLASS:Button; INSTANCE:1]') ;нажимаем на кнопку ДА, и программа сама перезапускается.
BlockInput(0);снимаем блокировку клавиатуры.

Содержание Serial.ini:

Код:

[Data]
Key=XXXXXX-XXXXXX-XXXXXX-XXXXXX-XXXXXX-XXXXXX-XXXXXX