#region AutoIt Options.

; Set AutoIt Options - 
; MouseCoordMode so that the MouseClick commands are relative to the application
; WiTitleMatchMode so that any part of the title will be matched.
AutoItSetOption ( "MouseCoordMode", 0 )
AutoItSetOption ( "WinTitleMatchMode", 2 )

#endregion

#region User Information.

; Enter the time for the Delay between Actions. This can be changed if you have a slower computer.
$DelayTime = 500

; Hide program CAB extraction window
$HideWindow = 1

; Enter the Excecuteable Filename.
$FileName = 'Nero-7.2.0.3b_nld_no_yt.exe'

; Enter your Info and Serial Number.
$UserName = ''
$CompanyName = ''
$SerialNo = ''

; Choose components to install (y) or exclude (n).
$Opt1 = "n"; NeroStartSmart
$Opt2 = "y"; NeroBurningRom
$Opt3 = "n"; NeroHome
$Opt4 = "n"; NeroVision
$Opt5 = "n"; NeroShowTime
$Opt6 = "n"; NeroRecode
$Opt7 = "n"; NeroMediaHome
$Opt8 = "n"; NeroBackItUp
$Opt9 = "n"; NeroCoverDesigner
$Opt10 = "n"; NeroPhotoSnap
$Opt11 = "n"; NeroWaveEditor
$Opt12 = "n"; NeroSoundTrax
$Opt13 = "y"; Extra
$Opt14 = "n"; NeroImageDrive
$Opt15 = "n"; InCD
$Opt16 = "y"; SpecialFeatures

; Add Nero to the AutoPlay Options
$SOpt1 = "y"; Add Nero to the AutoPlay Options
$SOpt2 = "n"; Create StartSmart Desktop Shortcut
$SOpt3 = "n"; Create StartSmart QuickLaunch Shortcut
$SOpt4 = "n"; Create Nero Home QuickLaunch Shortcut

; Enable prompt to save unsaved project/compilation when exiting?
$ProjectSavingState = 0
; Enable DVD overburning?
$EnableDVDOverSize = 1
; Enable show real recorder write speed while burning?
$ShowSingleRecorderSpeed = 1
; Disable NeroFilterCheck startup process (nerocheck.exe)?
$DisableNeroFilterCheck = 1
; Enable Short Lead-Out?
$ShortLeadOut = 0
; Prevent the CD/DVD from ejecting after burning is complete?
$EjectTheCDLater = 0

#endregion

#region Initial Installation Section.

; Run Nero Installer.
$PID = Run(@ScriptDir & '\' & $FileName)

If $HideWindow = 1 Then
	WinWait('Nero 7', 'Extraction progress')
	WinSetState('Nero 7', 'Extraction progress', @SW_HIDE)
	WinWaitClose('Nero 7', 'Extraction progress')

	WinWait('WaitForDialog', 'Nero ProductSetup')
	WinSetState('WaitForDialog', 'Nero ProductSetup', @SW_HIDE)
	WinWaitClose('WaitForDialog', 'Nero ProductSetup')
EndIf

; Wait for Introduction Page & Click Next.
WinWait("Installatiewizard", "De installatiewizard installeert")
Sleep( 3000 ); this is needed to allow the Window to refresh. 3 seconds should be enough for most PC's.
WinActivate("Installatiewizard", "De installatiewizard installeert")
ControlClick ("Installatiewizard", "De installatiewizard installeert", 861 )

; Wait for EULA, Click Accept & Next.
WinWait("Installatiewizard", "Licentieovereenkomst")
Sleep( $DelayTime )
WinActivate("Installatiewizard", "Licentieovereenkomst")
ControlClick ("Installatiewizard", "Licentieovereenkomst", 10009 )
Sleep( $DelayTime )
ControlClick ("Installatiewizard", "Licentieovereenkomst", 10004 )

; Wait for User Information Page, Enter Serial Number & Click Next.
WinWait("Installatiewizard", "Klantgegevens")
Sleep( $DelayTime )
WinActivate("Installatiewizard", "Klantgegevens")
If $UserName <> "" Then
	Send( $UserName )
	Sleep( $DelayTime )
EndIf
Send ("{TAB}")
If $CompanyName <> "" Then
	Send( $CompanyName )
	Sleep( $DelayTime )
EndIf
Send("{TAB}")
If $SerialNo <> "" Then
	Send( $SerialNo )
	Sleep( $DelayTime )
EndIf
Sleep( $DelayTime )
ControlClick ("Installatiewizard", "Geef de benodigde gebruikersgegevens op.", 861 )

; Wait for Setup Type Page, Select Custom & Click Next.
WinWait("Installatiewizard", "Installatietype")
WinActivate("Installatiewizard", "Installatietype")
Sleep( $DelayTime )
ControlClick ("Installatiewizard", "Installatietype", 1553 )
Sleep( $DelayTime )
ControlClick ("Installatiewizard", "installatietype", 861 )

; Wait for Language Selection & Click Next.
WinWait("Installatiewizard", "Taalselectie")
WinActivate("Installatiewizard", "Taalselectie")
Sleep( $DelayTime )
ControlClick ("Installatiewizard", "Taalselectie", 10004 )

#endregion

#region Customisation Options.

; Wait for Customisation Options & Make Selections
WinWait("Installatiewizard", "Aangepaste installatie")
WinActivate("Installatiewizard", "Aangepaste installatie")

; De-Select Nero StartSmart
If StringUpper( $Opt1 ) = "N" Then 
	Sleep( $DelayTime )
	MouseClick ( "left" , 62 , 142 , 1 , 1 )
	MouseClick ( "left" , 62 , 206 , 1 , 1 )
EndIf

; De-Select Nero Burning ROM
If StringUpper( $Opt2 ) = "N" Then 
	Sleep( $DelayTime )
	MouseClick ( "left" , 62 , 158 , 1 , 1 )
	MouseClick ( "left" , 62 , 222 , 1 , 1 )
EndIf

; De-Select Nero Home
If StringUpper( $Opt3 ) = "N" Then 
	Sleep( $DelayTime )
	MouseClick ( "left" , 62 , 174 , 1 , 1 )
	MouseClick ( "left" , 62 , 238 , 1 , 1 )
EndIf

; De-Select Nero Vision
If StringUpper( $Opt4 ) = "N" Then 
	Sleep( $DelayTime )
	MouseClick ( "left" , 62 , 190 , 1 , 1 )
	MouseClick ( "left" , 62 , 254 , 1 , 1 )
EndIf

; De-Select Nero ShowTime
If StringUpper( $Opt5 ) = "N" Then 
	Sleep( $DelayTime )
	MouseClick ( "left" , 62 , 206	, 1 , 1 )
	MouseClick ( "left" , 62 , 270 , 1 , 1 )
EndIf

; De-Select Nero Recode
If StringUpper( $Opt6 ) = "N" Then 
	Sleep( $DelayTime )
	MouseClick ( "left" , 62 , 222 , 1 , 1 )
	MouseClick ( "left" , 62 , 286 , 1 , 1 )
EndIf

; De-Select Nero MediaHome
If StringUpper( $Opt7 ) = "N" Then 
	Sleep( $DelayTime )
	MouseClick ( "left" , 62 , 238 , 1 , 1 )
	MouseClick ( "left" , 62 , 302 , 1 , 1 )
EndIf

; De-Select Nero BackItUp
If StringUpper( $Opt8 ) = "N" Then 
	Sleep( $DelayTime )
	MouseClick ( "left" , 62 , 254 , 1 , 1 )
	MouseClick ( "left" , 62 , 318 , 1 , 1 )
EndIf

; De-Select Nero CoverDesigner
If StringUpper( $Opt9 ) = "N" Then 
	Sleep( $DelayTime )
	MouseClick ( "left" , 62 , 270 , 1 , 1 )
	MouseClick ( "left" , 62 , 334 , 1 , 1 )
EndIf

; De-Select Nero PhotoSnap
If StringUpper( $Opt10 ) = "N" Then 
	Send ("{PGDN 2}"); Page down to get to next options
	Sleep( $DelayTime )
	MouseClick ( "left" , 62 , 174 , 1 , 1 )
	MouseClick ( "left" , 62 , 237 , 1 , 1 )
EndIf

; De-Select Nero WaveEditor
If StringUpper( $Opt11 ) = "N" Then 
	Send ("{PGDN 2}"); Page down to get to next options
	Sleep( $DelayTime )
	MouseClick ( "left" , 62 , 190 , 1 , 1 )
	MouseClick ( "left" , 62 , 253 , 1 , 1 )
EndIf

; De-Select Nero SoundTrax
If StringUpper( $Opt12 ) = "N" Then 
	Send ("{PGDN 2}"); Page down to get to next options
	Sleep( $DelayTime )
	MouseClick ( "left" , 62 , 206 , 1 , 1 )
	MouseClick ( "left" , 62 , 269 , 1 , 1 )
EndIf

; De-Select Nero Extra
If StringUpper( $Opt13 ) = "N" Then 
	Send ("{PGDN 2}"); Page down to get to next options
	Sleep( $DelayTime )
	MouseClick ( "left" , 62 , 222 , 1 , 1 )
	MouseClick ( "left" , 62 , 285 , 1 , 1 )
EndIf

; De-Select ImageDrive
If StringUpper( $Opt14 ) = "N" Then 
	Send ("{PGDN 2}"); Page down to get to next options
	Sleep( $DelayTime )
	MouseClick ( "left" , 62 , 238 , 1 , 1 )
	MouseClick ( "left" , 62 , 281 , 1 , 1 )
EndIf

; De-Select Nero InCD
If StringUpper( $Opt15 ) = "N" Then 
	Send ("{PGDN 2}"); Page down to get to next options
	Sleep( $DelayTime )
	MouseClick ( "left" , 62 , 254 , 1 , 1 )
	MouseClick ( "left" , 62 , 317 , 1 , 1 )
EndIf

; De-Select Special Features
If StringUpper( $Opt16 ) = "N" Then 
	Send ("{PGDN 2}"); Page down to get to next options
	Sleep( $DelayTime )
	MouseClick ( "left" , 62 , 270 , 1 , 1 )
	MouseClick ( "left" , 62 , 333 , 1 , 1 )
EndIf

; Click Next to Complete Customisation.
ControlClick ("Installatiewizard", "Aangepaste installatie", 10007 )

#endregion

#region Finishing Installation.

; Wait for Completed Customisation Page & Click Next.
WinWait("Installatiewizard", "Gereed voor de installatie van het programma")
WinActivate("Installatiewizard", "Gereed voor de installatie van het programma")
Sleep( $DelayTime )
ControlClick ("Installatiewizard", "Gereed voor de installatie van het programma", 958 )

;Hide Installation window
if $HideWindow = 1 Then
	WinWait('Installatiewizard', 'De geselecteerde programmaonderdelen worden nu')
	WinSetState('Installatiewizard', 'De geselecteerde programmaonderdelen worden nu', @SW_HIDE)
	WinWaitClose('Installatiewizard', 'De geselecteerde programmaonderdelen worden nu')
EndIf

; Wait for Other Options Page.
WinWait("Installatiewizard", "Instellingen")
Sleep( $DelayTime )
WinActivate("Installatiewizard", "Instellingen")

; De-Select Add Nero to the AutoPlay Options
If StringUpper( $Opt1 ) = "N" Then 
	MouseClick ( "left" , 28 , 186 , 1 , 1 )
	Sleep( $DelayTime )
EndIf

; Click Next
ControlClick ("Installatiewizard", "Instellingen", 10004 )

; Wait for Installation Complete & Click Finish.
WinWait("Installatiewizard", "Installatiewizard voltooid")
Sleep( $DelayTime )
WinActivate("Installatiewizard", "Installatiewizard voltooid")
ControlClick ("Installatiewizard", "Installatiewizard voltooid", 884 )

; Wait for Restart Warning & Click No.
$Hang = 0
$Hang = WinWait("Informatie over", "Klik op Ja als u de computer nu opnieuw wilt opstarten",5)
If $Hang = 1 then
	Sleep( $DelayTime )
	WinActivate("Informatie over", "Klik op Ja als u de computer nu opnieuw wilt opstarten")
	ControlClick ("Informatie over", "Klik op Ja als u de computer nu opnieuw wilt opstarten", 20 )
EndIf

#endregion

#region Final Options.

; Program configuration section.
$RunRegPath = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Run'
$NeroRegPath = 'HKCU\SOFTWARE\Ahead\Nero - Burning Rom'

If $ProjectSavingState = 0 Then RegWrite($NeroRegPath & '\General', 'ProjectSavingState', 'REG_DWORD', '0')
If $EnableDVDOverSize = 1 Then RegWrite($NeroRegPath & '\General', 'EnableDVDOverSize', 'REG_DWORD', '1')
If $ShowSingleRecorderSpeed = 1 Then RegWrite($NeroRegPath & '\Recorder', 'ShowSingleRecorderSpeed', 'REG_DWORD', '1')
If $DisableNeroFilterCheck = 1 Then RegDelete('HKLM\' & $RunRegPath, 'NeroFilterCheck')
If $ShortLeadOut = 1 Then RegWrite($NeroRegPath & '\Recorder', 'ShortLeadOut', 'REG_DWORD', '375')
If $EjectTheCDLater = 1 Then RegWrite($NeroRegPath & '\General', 'EjectTheCDLater', 'REG_DWORD', '1')
If StringUpper( $Opt3 ) = "N" Then RegDelete('HKCU\' & $RunRegPath, 'BgMonitor_{79662E04-7C6C-4d9f-84C7-88D8A56B10AA}')
RegWrite($NeroRegPath & '\Settings', 'WorkingDir', 'REG_SZ', @TempDir)

; Remove desktop and Quicklaunch Icons
If StringUpper( $SOpt2 ) = "N" Then FileDelete( @DesktopCommonDir & "\Nero StartSmart.lnk" )
If StringUpper( $SOpt3 ) = "N" Then FileDelete( @AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\Nero StartSmart.lnk" )
If StringUpper( $SOpt4 ) = "N" Then FileDelete( @AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\Nero Home.lnk" )

; Unregister Nero Scout, Get rid of the Search Bar & delete the Shortcut.
RunWait('regsvr32 /u /s "' & @CommonFilesDir & '\Ahead\Lib\MediaLibraryNSE.dll"')
RunWait('regsvr32 /u /s "' & @CommonFilesDir & '\Ahead\Lib\NeroSearchBar.dll"')
FileChangeDir( @ProgramsCommonDir )
$search = FileFindFirstFile( "Nero*" )  
$file = FileFindNextFile( $search ) 
FileDelete ( @ProgramsCommonDir & "\" & $file & "\Nero Scout.lnk" )
FileClose( $search )

#endregion