[D@nil]

DivX Pro 5.2.1

Код:

@echo off
start /wait DivXPro.exe /S
DEL "%AllUsersProfile%\Рабочий стол\DivX Movies.lnk
DEL "%AllUsersProfile%\Рабочий стол\DivX Player.lnk

[MonsterMax SPB]

А ключ в реестр как запинать?

[Eralex]

В приведённом ниже AUTOIT-скрипте происходит установка и регистрация divx.
В одной папке должны лежать DivXPro521.exe и ключегенератор.exe. (Здесь и далее "ключегенератор" заменил нехорошее английское слово ;-) /Vadikan

Код:

AutoItSetOption("SendKeyDelay", 50)
Opt("PixelCoordMode", 0)
Opt("CaretCoordMode", 0)
Opt("MouseCoordMode", 0)
Run("DivXPro521.exe")
WinWaitActive("Language selection")
Send("{ENTER}")
WinWaitActive("DivX Pro 5.2.1 Bundle Setup","Welcome to this quick setup program")
Send("{ENTER}")
WinWaitActive("DivX Pro 5.2.1 Bundle Setup","License Agreement")
Send("{TAB}")
Send("{SPACE}")
Send("{ENTER}")
WinWaitActive("DivX Pro 5.2.1 Bundle Setup ","Choose Components")
Send("{DOWN}")
Send("{DOWN}")
Send("{SPACE}")
Send("{DOWN}")
Send("{DOWN}")
Send("{SPACE}")
Send("{ENTER}")
WinWaitActive("DivX Pro 5.2.1 Bundle Setup","Choose Install Location")
Send("{ENTER}")
WinWaitActive("Register DivX Pro(tm) Software","Please enter your name")
MouseClick("left",134,228)
WinWaitActive("Generate Activation Code","Enter your product's Serial Number")
Run("ключегенератор.exe")
WinWaitActive("DivX Pro v5.2 ключегенератор by SSG")
$var = ControlGetText("DivX Pro v5.2 ключегенератор by SSG", "", "Edit1")
$var1 = StringMid($var, 1, 5)
$var2 = StringMid($var, 7, 5)
$var3 = StringMid($var, 13, 5)
$var4 = StringMid($var, 19, 5)
WinClose("Register DivX Pro(tm) Software","Please enter your name")
WinActivate("Generate Activation Code","Enter your product's Serial Number")
ControlSetText("Generate Activation Code", "Enter your product's Serial Number", "Edit1", $var1)
ControlSetText("Generate Activation Code", "Enter your product's Serial Number", "Edit2", $var2)
ControlSetText("Generate Activation Code", "Enter your product's Serial Number", "Edit3", $var3)
ControlSetText("Generate Activation Code", "Enter your product's Serial Number", "Edit4", $var4)
Sleep(500)
ControlClick("Generate Activation Code", "Enter your product's Serial Number", "Button1")
WinWaitActive("Generate Activation Code - Web")
ControlClick("Generate Activation Code - Web", "To generate an Activation Code using", "Button2")
WinWaitActive("Print Activation URL")
$prurl = ControlGetText("Print Activation URL", "", "Edit1")
ControlClick("Print Activation URL", "", "Button2")
WinActivate("Generate Activation Code - Web")
ControlClick("Generate Activation Code - Web", "", "Button3")
WinActivate("DivX Pro v5.2 ключегенератор by SSG")
ControlSetText("DivX Pro v5.2 ключегенератор by SSG", "", "Edit2", $prurl)
ControlClick("DivX Pro v5.2 ключегенератор by SSG", "", "Button1")
Sleep(500)
$acode = ControlGetText("DivX Pro v5.2 ключегенератор by SSG", "", "Edit3")
ControlClick("DivX Pro v5.2 ключегенератор by SSG", "", "Button2")
WinActivate("Generate Activation Code","Enter your product's Serial Number")
ControlClick("Generate Activation Code","Enter your product's Serial Number", "Button4")
WinWaitActive("Enter Activation Code")
ControlSetText("Enter Activation Code", "", "Edit1", $acode)
ControlClick("Enter Activation Code", "", "Button1")
Sleep(500)
WinWaitActive("DivX Pro 5.2.1 Bundle Setup","Click Finish to close this wizard")
Send("{ENTER}")

[Proektor]

Если кто-нибудь занимается установкой отдельно DivX (не в составе пакетов кодеков), выложите, pls, готовый скрипт AutoIT для версии DivX 6.25 и соответствующего кейгена.