MOBILedit

[mariolast]

Клевая прога для работы с телефонной книгой, картинками, мелодиями и т.п. для целой кучи 357 видов мобил

Скачать

http://download.mobiledit.com/mobiledit!/MOBILedit!.exe

Русик

http://msilab.net/show.php?rus=1033

Надо собственно, тихую установку...

[mariolast]

Наброски AutoIt скрипта





RegDelete("HKEY_CLASSES_ROOT\CLSID\{6e7110c0-ac8e-11ce-ad01-70aa0051e4a1}")

Run (@ScriptDir & '\Install.exe')



WinWaitActive ('COMPELSON Setup Wizard')

ControlClick ('COMPELSON Setup Wizard','','Button2')



WinWaitActive ('COMPELSON Setup Wizard','License Agreement')

ControlCommand ('COMPELSON Setup Wizard','License Agreement', 'Button5', 'Check', '' )

ControlClick ('COMPELSON Setup Wizard','License Agreement', 'Button2')



WinWaitActive ('COMPELSON Setup Wizard','Select Destination Directory')

ControlClick ('COMPELSON Setup Wizard','Select Destination Directory', 'Button2')



WinWaitActive ('COMPELSON Setup Wizard','Select Start Menu Folder')

ControlCommand ('COMPELSON Setup Wizard','Select Start Menu Folder', 'Button6', 'Check', '' )

ControlClick ('COMPELSON Setup Wizard','Select Start Menu Folder', 'Button2')



WinWaitActive ('COMPELSON Setup Wizard','Select Additional Tasks')

ControlClick ('COMPELSON Setup Wizard','Select Additional Tasks', 'Button2')



WinWaitActive ('COMPELSON Setup Wizard','Ready to install')

ControlClick ('COMPELSON Setup Wizard','Ready to install', 'Button2')







WinWaitActive ('COMPELSON Setup Wizard','Completing the MOBILedit! 2.3 Setup Wizard')

ControlCommand ('COMPELSON Setup Wizard','Completing the MOBILedit! 2.3 Setup Wizard','Button11', 'UnCheck', '' )

ControlClick ('COMPELSON Setup Wizard','Completing the MOBILedit! 2.3 Setup Wizard','Button4')



RunWait ("MOBILedit.exe")

RunWait ("1.exe")

Run (@ProgramFilesDir & "\MOBILedit!\MOBILedit!.exe")

If WinExists ('Начальная настройка Outlook 2007') Then

WinWaitActive ('Начальная настройка Outlook 2007','Начальная настройка Outlook 2007')

ControlClick ('Начальная настройка Outlook 2007','Начальная настройка Outlook 2007','Button4')

EndIf



WinWaitActive ('Начальная настройка Outlook 2007','Настройка Microsoft Office Outlook 2007 еще не завершена на вашем компьютере. Вы уверены, что следует прервать ее?')

ControlClick ('Начальная настройка Outlook 2007','Настройка Microsoft Office Outlook 2007 еще не завершена на вашем компьютере. Вы уверены, что следует прервать ее?','Button1')



If WinExists ('Обновление MOBILedit!...','Проверять наличие обновлений MOBILedit! через:') Then

WinWaitActive ('Обновление MOBILedit!...','Проверять наличие обновлений MOBILedit! через:')

ControlCommand ('Обновление MOBILedit!...','Проверять наличие обновлений MOBILedit! через:','Button6', 'Check', '' )

ControlClick ('Обновление MOBILedit!...','Проверять наличие обновлений MOBILedit! через:','Button1')

EndIf



WinExists ('MOBILedit! Settings...','Welcome to MOBILedit!')

WinWaitActive ('MOBILedit! Settings...','Welcome to MOBILedit!')

ControlClick ('MOBILedit! Settings...','Welcome to MOBILedit!','Button4')



Send ("!hc")



WinWaitActive ('MOBILedit! Activation...','Activation Key')

ControlSetText ( 'MOBILedit! Activation...','Activation Key','Edit1', 'ххххх')

ControlSetText ( 'MOBILedit! Activation...','Activation Key','Edit2', 'ххххх')

ControlSetText ( 'MOBILedit! Activation...','Activation Key','Edit3', 'ххххх')

ControlSetText ( 'MOBILedit! Activation...','Activation Key','Edit4', 'ххххх')

ControlSetText ( 'MOBILedit! Activation...','Activation Key','Edit5', 'ххххх')

ControlSetText ( 'MOBILedit! Activation...','Contact Information','Edit6', 'ххххххх')

ControlClick ('MOBILedit! Activation...','','Button1')





WinWaitActive ('MOBILedit! Activated...')

Send ("{enter}")

Send ('!{F4}')





Exit



Программу перед этим надо распаковать в какую либо директорию

1.exe - файлы русификации