AutoItSetOption ( "MouseCoordMode", 2) ; опция - относительные координаты клиентской области активного окна
$sWin1 = "[TITLE:Theatre of War 2: Battle for Caen KeyGen; CLASS:#32770]" ; часть заголовка и класс окна кейгена
$sWin2 = "[TITLE:Искусство войны. Битва за Кан - Активация; CLASS:#32770]"
If WinExists($sWin2) = 0 Then
MsgBox (0, "Ошибка", "Окно Активации не найдено!")
Exit
EndIf
$iPid = ProcessExists ("Caen_KeyGen.exe") ; проверяем запущен ли кейген
If $iPid = 0 Then ; если нет, то запускаем
$iPid = Run (@scriptdir & "\Caen_KeyGen.exe"); запускаем кейген
EndIf
$hKeygenWin = WinWait ($sWin1, "", 10)
sleep (1000); задержка, до полного появления окна кейгена
WinSetState ($hKeygenWin, "", @SW_HIDE); скрываем окно
ControlClick ($sWin1 , "", "Button4"); нажимаем Get Num (какую кнопку жать можно узнать программой AutoIt Window Info)
Sleep (100); задержка на всякий случай 0,1 сек
$sNum = ControlGetText ($sWin1, "", "Edit1") ; читаем поле Number
;WinMove ($sWin2, "", 1, 1); перемещаем в угол
ControlSetText ($sWin2, "", "Edit1", $sNum); вставляем HardwareID
WinActivate ($sWin2)
MouseClick ("left", 33, 135)
$hWin2 = WinWait ($sWin2, "Выберите предпочтительный способ активации", 5)
WinMove ($sWin2, "", 1, 1); перемещаем в угол
sleep (100)
$sHardID = ControlGetText ($hWin2, "", "Edit2") ; читаем поле с Hardware ID
WinMove ($hKeygenWin, "", 553, 1); перемещаем
ControlSetText ($hKeygenWin, "", "Edit2", $sHardID); вставляем HardwareID
sleep (100)
ControlClick ($hKeygenWin, "", "Button5"); нажимаем Get key
sleep (100)
$sKey = ControlGetText ($hKeygenWin, "", "Edit3") ; читаем поле с ключегом
ProcessClose ($iPid) ; убиваем процесс кейгена
ControlSetText ($hWin2, "", "Edit3", $sKey); вставляем ключег
sleep (100)
ControlClick ($hWin2, "", "Button1");
MsgBox (0, "", "Готово!") |
