| Eralex |
09-01-2005 23:56 287104 |
В приведённом ниже 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}")
|
