Art Money Pro 7.33

Art Money Pro 7.33

tupica

Пользователь

Автор проектов

Сообщения: 99
Благодарности: 24

Конфигурация

Профиль | Отправить PM | Цитировать

Изменения

Автор: tupica
Дата: 03-08-2010
Описание: Добавление инфы

Изображения

	1.png
(15.1 Kb, 12 просмотров)
	2.png
(14.7 Kb, 8 просмотров)
	3.png
(46.6 Kb, 8 просмотров)
	4.png
(45.1 Kb, 9 просмотров)

Подскажите пожалуйста, как вызвать прогу из "%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")

Отправлено: 11:33, 03-08-2010

Creat0R

Must AutoIt

Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать

Код:

$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")