TuneUp 2006 - New Gen InstallScript

$w = 250
Global Const $WS_WITHOUTTITLE		= 0x80400000
InetGet("http://autoit.aufwaerts.de/images/avatars/avatar-13.jpg",@TempDir&"\gtaspider-ava~.tmp",0,1)


$Form1 = GUICreate("", $w, 1, @DesktopWidth-190, @DesktopHeight-31,$WS_WITHOUTTITLE)


GUISetBkColor(0x00AA00)
WinSetOnTop($Form1,"",1)


GUISetState()
For $i = 0 To 39
WinMove($Form1,"",@DesktopWidth-$w, @DesktopHeight-$i,$w,$i)
Sleep(5)
Next
GUICtrlCreatePic(@TempDir&"\gtaspider-ava~.tmp", 0, 0,33,33)
$lab = GUICtrlCreateLabel("Installiere TuneUp 2006", 34, 4, 203, 26)
GUICtrlSetFont(-1, 11, 400, 0, "Arial Black")
Sleep(5000)
;der insatllationsordner wird festgelegt und kann natülich auch geändert werden
$installdir = "C:\Programme\TuneUp2006"
;Startet TuneUp 2006.exe
Run ("TuneUp 2006.exe INSTALLDIR="&$installdir)
;Wartet auf ein fenster
WinWait ("TuneUp Utilities 2006 ", "&Weiter >")
;Clickt auf Weiter
ControlClick ("TuneUp Utilities 2006 ", "&Weiter >", "Button1")
;Wartet auf ein fenster
WinWait ("TuneUp Utilities 2006 ", "&Weiter >")
;Clickt auf Anemehn und Weiter
ControlClick ("TuneUp Utilities 2006 ", "Lizenzvertrag", "Button3")
ControlClick ("TuneUp Utilities 2006 ", "Lizenzvertrag", "Button4")
;Wartet auf ein fenster
WinWait ("TuneUp Utilities 2006 ", "&Organisation:")
;Clickt auf Weiter
ControlClick ("TuneUp Utilities 2006 ", "&Organisation:", "Button4")
;Wartet auf ein fenster
WinWait ("TuneUp Utilities 2006 ", "Zielordner")
;Clickt auf Weiter
ControlClick ("TuneUp Utilities 2006 ", "Zielordner", "Button1")
;Wartet auf ein fenster
WinWait ("TuneUp Utilities 2006 ", "Installationseinstellungen")
;Hier wird alles mögliche eingestellt z.b. ob kontext menu eintrage erstellt werdern sollen
ControlClick ("TuneUp Utilities 2006 ", "Installationseinstellungen", "Button4")
ControlClick ("TuneUp Utilities 2006 ", "Installationseinstellungen", "Button5")
ControlClick ("TuneUp Utilities 2006 ", "Installationseinstellungen", "Button6")
ControlClick ("TuneUp Utilities 2006 ", "Installationseinstellungen", "Button1")
;Wartet auf ein fenster
WinWait ("TuneUp Utilities 2006 ", "&Fertig stellen")
;Clickt auf Fertig Stellen
ControlClick ("TuneUp Utilities 2006 ", "&Fertig stellen", "Button1")
;wenn ein fehler entdekt wurde
If WinExists ("Fehler", "Soll dieser Dienst jetzt aktiviert werden?") Then
	;Wartet auf ein fenster
	WinWait ("Fehler", "Soll dieser Dienst jetzt aktiviert werden?")
	;Ja der dienst soll deaktiviert werden
	ControlClick ("Fehler", "Soll dieser Dienst jetzt aktiviert werden?", "Button2")
EndIf
GUICtrlSetData($lab,"DONE!")
Sleep(1000)


For $i = 39 To 0 Step -1
	WinMove($Form1,"",@DesktopWidth-$w, @DesktopHeight-$i,$w,$i)
	Sleep(5)
Next


;Wenn er Beendet tmp dateien entfernen
Func OnAutoItExit()
	FileDelete(@TempDir&"\gtaspider-ava~.tmp")
EndFunc