AutoIt DivX6.8installer script didn´t run!

[Jolli]

In new DivX 6.8 installer are changes!

I tested it in VMWare. WinXP SP2

AutoIt Script runs only to first Window!? Any one tried out and get the same prop?

Script here in German.

Opt("WinTitleMatchMode", 2)

Run("DivX6.8installer.exe")

WinWait("Sprachenauswahl", "Bitte wählen Sie die Sprache aus")
ControlClick("Sprachenauswahl", "Bitte wählen Sie die Sprache aus" , "Button1")

WinWait("DivX for Windows Installation", "Willkommen zum Setup Programm")
ControlClick("DivX for Windows Installation", "&Weiter >" , "Button2")

WinWait("DivX for Windows Installation", "Lizenzabkommen")
ControlClick("DivX for Windows Installation", "Ich &akzeptiere das Lizenzabkommen." , "Button4")
ControlClick("DivX for Windows Installation", "&Weiter >" , "Button2")

ControlFocus("DivX for Windows Installation", "Komponenten auswählen", "SysTreeView321")
ControlSend("DivX for Windows Installation", "Komponenten auswählen", "SysTreeView321", "{RIGHT}" & "{DOWN 2}" & "{SPACE}" & "{DOWN 4}" & "{SPACE}" & "{DOWN 2}" & "{SPACE}" & "{DOWN}" & "{SPACE}" & "{DOWN}" & "{SPACE}")
ControlClick("DivX for Windows Installation", "&Weiter >" , "Button2")

WinWait("DivX for Windows Installation", "Zielverzeichnis auswählen")
ControlClick("DivX for Windows Installation", "&Weiter >" , "Button2")

WinWait("DivX for Windows Installation", "Gratis Yahoo! Toolbar für Firefox hinzufügen")
ControlClick("DivX for Windows Installation", "Yahoo! Toolbar nicht installieren" , "Button5")
ControlClick("DivX for Windows Installation", "&Weiter >" , "Button2")

WinWait("DivX for Windows Installation", "Einrichtung abgeschlossen")
ControlClick("DivX for Windows Installation", "&Beenden" , "Button2")

Any help appreciated.

Jolly

[radix]

Try this script (with english installation):

Opt("TrayIconDebug", 1)
Opt("SendKeyDelay", 200)
; Executable file name
$EXECUTABLE = "DivXInstaller.exe"
; Installation folder
$INSTALLLOCATION = @ProgramFilesDir & "\DivX"

If FileExists(@ProgramFilesDir & "\DivX\DivXBundleUninstall.exe") Then
	MsgBox(0x40010, @ScriptName, "Please uninstall previous version of DivX and delete remaining DivX installation folder before using this script", 4)
	Exit
EndIf

; Run the installer
Run($EXECUTABLE)

; Select your language preference
WinWaitActive("Language selection", "Select your language preference")
Send("{ENTER}")

; Welcome
WinWaitActive("DivX for Windows Setup", "Welcome")
Send("!n")

; License Agreement
WinWaitActive("DivX for Windows Setup", "License Agreement")
Send("!a")
Send("!n")

; Choose Components
WinWaitActive("DivX for Windows Setup", "Choose Components")
Send("{RIGHT}")
Send("{DOWN 2}")
Send("{SPACE}")
Send("{DOWN 4}")
Send("{SPACE}")
Send("{DOWN 2}")
Send("{SPACE}")
Send("{DOWN}")
Send("{SPACE}")
Send("{DOWN}")
Send("{SPACE}")
Send("!n")

; Choose Install Location
WinWaitActive("DivX for Windows Setup", "Choose Install Location")
ControlSetText("DivX for Windows Setup", "", "Edit1", "")
Sleep(1000)
ControlSetText("DivX for Windows Setup", "", "Edit1", $INSTALLLOCATION)
Send("{ENTER}")

; Do not install the Yahoo! Toolbar
WinWaitActive("DivX for Windows Setup", "Do not install the Yahoo! Toolbar")
ControlCommand("DivX for Windows Setup", "", "Button5", "Check", "")
Sleep(500)
Send("!n")

; Please wait while DivX for Windows is being installed
WinWait("DivX for Windows Setup", "Installing")
WinSetTitle("DivX for Windows Setup", "", "Codec")

; Disable the default internet browser (to prevent DivX installer to open it at the end of installation)
$REG = RegRead("HKCR\HTTP\shell\open\command\", "")
RegDelete("HKCR\HTTP\shell\open\command\", "")

; Installation Complete
WinWaitActive("DivX for Windows Setup", "")
Send("!n")
Sleep(1000)
Send("!c")

Sleep(2000)

; Registration
RegWrite("HKLM\Software\S3R521\GGYYJME5B2E76KTNVNW7", "BRW6", "REG_DWORD", "0")
RegWrite("HKLM\Software\S3R521\NEYWFKCPJB466UQU937P", "BRW6", "REG_DWORD", "0")
RegWrite("HKLM\Software\S3R521\R6BXJB2B3A2HZCYV4646", "BRW6", "REG_DWORD", "47769647")

; Restore the default internet browser
RegWrite("HKCR\HTTP\shell\open\command\", "", "REG_SZ", $REG)

; Delete Desktop icons
FileDelete(@DesktopCommonDir & "\Buy DivX for Windows.lnk")
FileDelete(@DesktopCommonDir & "\DivX Converter.lnk")
FileDelete(@DesktopDir & "\DivX Movies.lnk")
FileDelete(@DesktopCommonDir & "\DivX Player.lnk")

Edited December 18, 2007 by radix

[Jolli]

Hi radix

Did you tried the script by yourself?

Same with yours as befor, stops at first window!

When i click either through the menu or try with the shortcut it runs,

but with the compiled Autoitscript didn´t run.

So what´s wrong?

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=4
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Opt("TrayIconDebug", 1)
Opt("SendKeyDelay", 200)

Run("DivX6.8setup.exe")

WinWaitActive("Sprachenauswahl", "Bitte wählen Sie die Sprache aus")
Send("{ENTER}")

WinWaitActive("DivX for Windows Installation", "Willkommen zum Setup Programm")
Send("!n")

WinWaitActive("DivX for Windows Installation", "Lizenzabkommen")
Send("!a")
Send("!n")

WinWaitActive("DivX for Windows Installation", "Komponenten auswählen")
Send("{RIGHT}")
Send("{DOWN 2}")
Send("{SPACE}")
Send("{DOWN 4}")
Send("{SPACE}")
Send("{DOWN 2}")
Send("{SPACE}")
Send("{DOWN}")
Send("{SPACE}")
Send("{DOWN}")
Send("{SPACE}")
Send("!n")

WinWaitActive("DivX for Windows Installation", "Zielverzeichnis auswählen")
Send("{ENTER}")

WinWaitActive("DivX for Windows Installation", "Gratis Yahoo! Toolbar für Firefox hinzufügen")
ControlCommand("DivX for Windows Installation", "", "Button5", "Check", "")
Sleep(500)
Send("!n")

Sleep(1000)

#include "process.au3"
_RunDOS("taskkill /f /im DivXComponent.exe")
_RunDOS("taskkill /f /im DivXInstaller.exe")

RegWrite("HKLM\Software\S3R521\", "BRW6", "REG_DWORD", "")
RegWrite("HKLM\Software\S3R521\", "BRW6", "REG_DWORD", "")

FileDelete(@DesktopCommonDir & "\DivX Converter.lnk")
FileDelete(@DesktopDir & "\DivX Movies.lnk")

Jolly

Edited December 16, 2007 by Jolli

[radix]

Man! My installer has english language set by default!

Download the english version and try again.

Edited December 15, 2007 by radix

[Jolli]

OK, now it runs.

So you have an english OS and i an german, look:

i had similiar with you only click enter or button.

I made a little changes and it runs.

Opt("WinTitleMatchMode", 2)

Run("DivXInstaller.exe")

WinWait("Sprachenauswahl", "Wählen Sie Ihre Sprache.")
ControlClick("Sprachenauswahl", "Wählen Sie Ihre Sprache." , "Button1")
Sleep(200)

WinWait("DivX for Windows Installation", "Willkommen")
ControlClick("DivX for Windows Installation", "&Weiter >" , "Button2")

WinWait("DivX for Windows Installation", "Lizenzabkommen")
ControlClick("DivX for Windows Installation", "Lizenzabkommen" , "Button4")
ControlClick("DivX for Windows Installation", "&Weiter >" , "Button2")

ControlFocus("DivX for Windows Installation", "Komponenten auswählen", "SysTreeView321")
ControlSend("DivX for Windows Installation", "Komponenten auswählen", "SysTreeView321", "{RIGHT}" & "{DOWN 2}" & "{SPACE}" & "{DOWN 4}" & "{SPACE}" & "{DOWN 2}" & "{SPACE}" & "{DOWN}" & "{SPACE}" & "{DOWN}" & "{SPACE}")
ControlClick("DivX for Windows Installation", "&Weiter >" , "Button2")
Sleep(300)

WinWait("DivX for Windows Installation", "Zielverzeichnis auswählen")
ControlClick("DivX for Windows Installation", "&Weiter >" , "Button2")

WinWait("DivX for Windows Installation", "Gratis Yahoo! Toolbar für")
ControlClick("DivX for Windows Installation", "Yahoo! Toolbar nicht installieren" , "Button5")
ControlClick("DivX for Windows Installation", "&Weiter >" , "Button2")
Sleep(600)

WinWait("DivX for Windows Installation", "Einrichtung abgeschlossen")
ControlClick("DivX for Windows Installation", "&Beenden" , "Button2")
Sleep(500)

FileDelete (@DesktopDir & "\DivX Movies.lnk")
FileDelete (@DesktopCommonDir & "\DivX Converter.lnk")

Jolli

Edited December 16, 2007 by Jolli