- Offizieller Beitrag
hi!
hab nochmal ein kleines update für Install-O-Matic
Installiert TuneUp 2006, was übrigends richtig klasse is *werbungmach*:D
New Gen ist so gemeint das es schöner aussieht
Code
$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
Alles anzeigen
edit: Guil geupdatet