Art Money Pro 7.33

[Creat0R]

Подскажите пожалуйста, как вызвать прогу из "%ProgramFiles%\ArtMoney\artmoney733.exe", затем вставить пароль в окно (скрин1), нажать OK (скрин2), согласиться с лицензией(скрин3),нажать OK (скрин4), и выйти из проги (убить процесс artmoney733.exe).Т.е автоматизировать процесс регистрации.Пишу т.к не силён в AutoIT.



Спасибо.Концовку сам доделал:



Код:

Код: Выделить всё

$sPassword = "XXXX"
...........
ControlClick($sAbout_Title, "", "TTeButton3")
Sleep(50)
If ProcessExists("artmoney733.exe") Then ProcessClose("artmoney733.exe")

Вложения

[Расширение png было запрещено, вложение больше недоступно.]

Вложения

[Расширение png было запрещено, вложение больше недоступно.]

Вложения

[Расширение png было запрещено, вложение больше недоступно.]

Вложения

[Расширение png было запрещено, вложение больше недоступно.]

[Creat0R]

Код:

Код: Выделить всё

$sPassword = "MyPass"
$sRegister_Title = "[CLASS:TForm18;TITLE:Регистрация]"
$sAbout_Title = "[CLASS:TForm10;TITLE:О программе]"
Run(@ProgramFilesDir & "\ArtMoney\artmoney733.exe")
WinWait($sRegister_Title, "", 5)
If Not BitAND(WinGetState($sRegister_Title), 2) Then Exit
ControlSetText($sRegister_Title, "", "TEdit1", $sPassword)
ControlClick($sRegister_Title, "", "TBitBtn2")
WinWait($sAbout_Title, "", 5)
If Not BitAND(WinGetState($sAbout_Title), 2) Then Exit
ControlCommand($sAbout_Title, "", "TTeCheckBox1", "Check")
ControlClick($sAbout_Title, "", "TTeButton3")