Tweak XP

[autoit]

;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
;| Installation von: Tweak XP
;|
;| Autor: Jens Ottersberg
;|
;| Getestet mit: txp4trial.exe
;|___________________________________________________________________________________________________________________________________

[/autoit] [autoit][/autoit] [autoit]

#RequireAdmin
#NoTrayIcon

[/autoit] [autoit][/autoit] [autoit]

#include "..\..\funktionen.au3"
#include<File.au3>

[/autoit] [autoit][/autoit] [autoit]

; Hauptprogramm
$parameter = ''
$search = FileFindFirstFile(@ScriptDir & "\*.exe")
$datei = FileFindNextFile($search)
FileClose($search)
ShellExecute(@ScriptDir & "\" & $datei, $parameter)
$windowname = 'Tweak-XP Pro'
;Willkommensbildschirm
_activateWindow($windowname, "Welcome")
ControlClick($windowname, "Welcome", "Button1")
;Disclaimer
_activateWindow($windowname, "Disclaimer")
ControlClick($windowname, "Disclaimer", "Button5")
ControlClick($windowname, "Disclaimer", "Button1")
;Lizenzvereinbarung
_activateWindow($windowname, "Agreement")
ControlClick($windowname, "Agreement", "Button5")
ControlClick($windowname, "Agreement", "Button1")
;Zielverzeichnis
_activateWindow($windowname, "Installation Folder")
ControlClick($windowname, "Installation Folder", "Button1")
;Zusatzfunktionen
_activateWindow($windowname, "Screensaver")
;Bildschirmschoner installieren
;ControlClick($windowname,"Screensaver","Button5")
;Bildschirmschoner als Standard
;ControlClick($windowname,"Screensaver","Button6")
ControlClick($windowname, "Screensaver", "Button1")
;Sprache
_activateWindow($windowname, "language")
;Deutsch
ControlClick($windowname, "language", "Button6")
ControlClick($windowname, "language", "Button1")
;Eintrag im Startmenü
_activateWindow($windowname, "Shortcut Folder")
ControlClick($windowname, "Shortcut Folder", "Button1")
;Installation starten
_activateWindow($windowname, "Ready to Install")
ControlClick($windowname, "Ready to Install", "Button1")
;Installation beenden
_activateWindow($windowname, "Select Exit Options")
;Programm starten
;ControlClick($windowname,"Select Exit Options","Button5")
ControlClick($windowname, "Select Exit Options", "Button1")
_activateWindow($windowname, "Successfully")
ControlClick($windowname, "Successfully", "Button1")

[/autoit] [autoit][/autoit] [autoit]

Func _activateWindow($name, $text, $time = 10)
If WinWait($name, $text, $time) = 0 Then _log('WinWait')
If WinActivate($name, $text) = 0 Then _log('WinActivate')
If WinWaitActive($name, $text, $time) = 0 Then _log('WinWaitActive')
EndFunc ;==>_activateWindow

[/autoit] [autoit][/autoit] [autoit]

; Weglassen/ändern oder erweitern, wie du willst
Func _log($text)
_FileWriteLog(@ScriptDir & '\' & @ScriptName & '.log', $text & ' failed.')
EndFunc ;==>_log

[/autoit]