Name=Tweak XP
Kategorie=Tools
Autor=Totalidea Software
Beschreibung=Beschleunigung von Windows XP
Homepage=http://www.totalidea.com
Spoiler anzeigen
;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
;| Installation von: Tweak XP
;|
;| Autor: Jens Ottersberg (mit Erweiterung von Xenobiologist)
;|
;| Getestet mit: txp4trial.exe
;|___________________________________________________________________________________________________________________________________
#RequireAdmin
#NoTrayIcon
#include "..\..\funktionen.au3"
#include <File.au3>
; 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")
Func _activateWindow($name, $text)
WinWait($name, $text)
WinActivate($name, $text)
WinWaitActive($name, $text)
EndFunc ;==>_activateWindow