[morgan1991]

semiono, я тоже както маялся над этим вопросом, вот решение, только не факт что оно комуто покажется хорошим, я в Autoit ещё не мастер:

Код:

Global $InstallPath=@ProgramFilesDir & "\MediaStudio"
Blockinput(1)
; Тута не скажу что ставиться, секрет ;-
ShellExecute("****.exe", "/verysilent", "$ScriptDir")
Run("Ulead MediaStudio Pro 8.0.exe")

While 1 = 1
    $i = $i - 1
    $install = WinWaitActive("", "Welcome", 1)
    $deinstall = WinWaitActive("deinstall", "text", 1)
    If $install = 1 Then install()
    If $deinstall = 1 Then deinstall()
    If $i = 1 Then MsgBox(16, "", "error")
WEnd

Func deinstall()
    ;Удаление проги
EndFunc

Func install()
    ControlClick("", "", "[Class:Button; Instance:1]", "left", 1)
    WinWaitActive("", "License Agreement")
    ControlClick("", "", "[Class:Button; Instance:2]", "left", 1)
    WinWaitActive("", "Choose Destination Location")
    ControlClick("", "", "[Class:Button; Instance:3]", "left", 1)
    Send($InstallPath)
    Sleep(800)
    ControlClick("", "", "[Class:Button; Instance:1]", "left", 1)
    Sleep(800)
    ControlClick("", "", "[Class:Button; Instance:1]", "left", 1)
    Sleep(800)
    Send("{BS 32}")
    Send($InstallPath & "\Preview")
    Sleep(800)
    ControlClick("", "", "[Class:Button; Instance:3]", "left", 1)
    Sleep(800)
    ControlClick("", "", "[Class:Button; Instance:6]", "left", 1)
    Sleep(200)
    ControlClick("", "", "[Class:Button; Instance:9]", "left", 1)
    Sleep(800)
    ControlClick("", "", "[Class:Button; Instance:2]", "left", 1)
    Sleep(800)
    ControlClick("", "", "[Class:Button; Instance:1]", "left", 1)
    WinWaitActive("", "InstallShield Wizard Complete")
    ControlClick("", "", "[Class:Button; Instance:4]", "left", 1)
EndFunc

Blockinput(0)

Не забудь тыкнуть спасибо

можно распаковать установщик тем же винраром и вытащить отдельно файл справки (в крайнем случае 7zip'ом) »

Не хочет ни тот ни другой распаковывать говорит это не архив(((