Что нового

Автоматизация работы с KeyGen. Подробнее на каринке

Статус
Закрыто для дальнейших ответов.

Alex1989

Новичок
Сообщения
6
Репутация
1
Версия AutoIt: v3. , скачано из этой темы

Описание: Задача состоит в том, что нужно автоматизировать выполнение действий, описанных на скрине с приложенным exe файлом.
сам exe файл
Код для вставки должен использоваться из буфера обмена, но для проб скрипта пока установил конкретное вставляемое значение.
Если ручками вставлять, то кот Hardware ID такой: C9A284C0929794D9544F44F222

Вроде бы что-то вышло.
Код:
ClipPut ( "C9A284C0929794D9544F44F222" )

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
WinWait("Axara Video Converter v3.4.8.749 keygen - F4CG","")
If Not WinActive("Axara Video Converter v3.4.8.749 keygen - F4CG","") Then WinActivate("Axara Video Converter v3.4.8.749 keygen - F4CG","")
WinWaitActive("Axara Video Converter v3.4.8.749 keygen - F4CG","")
MouseMove(68,3)
MouseDown("left")
MouseUp("left")
MouseMove(271,168)
MouseDown("left")
MouseUp("left")

Send(ClipGet())


WinWaitActive("Axara Video Converter v3.4.8.749 keygen - F4CG", "Gen License File")
ControlClick("Axara Video Converter v3.4.8.749 keygen - F4CG","Gen License File","Button5")

WinWaitActive("Axara Video Converter v3.4.8.749 keygen - F4CG", "Gen License File")
ControlClick("Axara Video Converter v3.4.8.749 keygen - F4CG","Gen License File","Button1")

WinWaitActive("Select Axara application's directory", "&Имя файла:")

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
WinWait("Select Axara application's directory","")
If Not WinActive("Select Axara application's directory","") Then WinActivate("Select Axara application's directory","")
WinWaitActive("Select Axara application's directory","")
MouseMove(417,20)
MouseDown("left")
MouseUp("left")
MouseMove(412,46)
MouseDown("left")
MouseMove(412,48)
MouseUp("left")

ClipPut ( "C:\Program Files\Axara\VideoConverter" )
Send(ClipGet())
Send("{ENTER}")
WinWaitActive("Select Axara application's directory", "&Имя файла:")
Send("!о")

WinWaitActive("Info", "License file successfully created")
Send("{ENTER}")
WinWaitActive("Axara Video Converter v3.4.8.749 keygen - F4CG", "Gen License File")
ControlClick("Axara Video Converter v3.4.8.749 keygen - F4CG","Gen License File","Button4")
Но есть проблема. При выполнении пункта 3 надо прописать определённый путь в окне сохранения. этого не выходит. Точнее у меня на ПК выходит, а на виртуалочке нет. Как бы исправить, не пойму.

Примечания: Сори если что не так, я новичёк как в самой тематике AutoIT, так и на этом сайте. Зарание спасибо
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,673
Репутация
2,486
Ссылка на Keygen удалена, тема закрыта.
Читайте правила форума.
 
Статус
Закрыто для дальнейших ответов.
Верх