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 - файлы русификации