Deep Fritz 10

[autoit]

Scriptsource
; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.2.4.9
; Author: d2po88
;
; Script Function:
; Installiert Deep Fritz 10--MultiProcessor Version--Schach--
;
; ----------------------------------------------------------------------------

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

; Script Start - Add your code below here

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

#RequireAdmin
$fritz = "Deep Fritz 10 - InstallShield Wizard"
Opt ("WinWaitDelay", 500)
ShellExecute ("K:\Setup.exe")
WinWait ("Fritz10 CD", "")
ControlClick ("Fritz10 CD", "Installieren", "Button2")
Sleep (1000)
WinWait ($fritz, "Wählen Sie eine Setup-Sprache aus", 2)
ControlClick ($fritz, "&Weiter >", "Button3")
WinWait ($fritz, "Willkommen bei InstallShield Wizard für Deep Fritz 10")
ControlClick ($fritz, "&Weiter >", "Button1")
WinWait ($fritz, "Zielpfad wählen")
ControlClick ($fritz, "&Weiter >", "Button1")
WinWait ($fritz, "Verzeichnis wählen")
ControlClick ($fritz, "&Weiter >", "Button1")
WinWait ($fritz, "Wählen Sie den gewünschten Setup-Typ aus und klicken Sie auf 'Weiter'.")
ControlClick ($fritz, "&Weiter >", "Button5")
WinWait ("Microsoft(R) DirectX(R) wird installiert", "Willkommen")
ControlClick ("Microsoft(R) DirectX(R) wird installiert", "&Ich stimme den Bedingungen des Vertrags zu", "Button1")
ControlClick ("Microsoft(R) DirectX(R) wird installiert", "&Ich stimme den Bedingungen des Vertrags zu", "Button4")
WinWait ("Microsoft(R) DirectX(R) wird installiert", "DirectX 9.0-Laufzeitinstallation:")
ControlClick ("Microsoft(R) DirectX(R) wird installiert", "&Weiter >", "Button4")
WinWait ("Microsoft(R) DirectX(R) wird installiert", "Installation abgeschlossen")
ControlClick ("Microsoft(R) DirectX(R) wird installiert", "Fertig stellen", "Button5")
WinWait ($fritz, "Fertig stellen")
ControlClick ($fritz, "Nein, Computer wird später neu gestartet.", "Button2")
ControlClick ($fritz, "Fertig stellen", "Button4")
;fritz starten
Sleep (1000)
$Nachname = "" ; dito
$Vorname = "" ; dito
$Ort = "" ;dito
$Comp = "" ; Copmputername
Run (@ProgramFilesDir&"\ChessBase\ChessProgram10\ChessProgram10.exe")
WinWait ("Visitenkarte und Info", "")
$text = ControlSetText ("Visitenkarte und Info","","Edit1",$Nachname)
$text1 = ControlSetText ("Visitenkarte und Info","","Edit2",$Vorname)
$text2 = ControlSetText ("Visitenkarte und Info","","Edit3",$Ort)
$text3 = ControlSetText ("Visitenkarte und Info","","Edit4",$Comp)
Send ($text)
Sleep (300)
Send ($text1)
Sleep (300)
Send ($text2)
Sleep (300)
Send ($text3)
Sleep (300)
WinActive ("Visitenkarte und Info", "")
ControlClick ("Visitenkarte und Info", "", "Button5")
ControlClick ("Visitenkarte und Info", "&OK", "Button10")
Sleep (1000)
;Serialnummer eingeben = <----
WinWait ("Seriennummer eingeben", "Die Seriennummer finden Sie auf dem Umschlag der Installationsanleitung.", 2)
$nu1 = ControlSetText ("Seriennummer eingeben","","Edit1", "") ; <----
$nu2 = ControlSetText ("Seriennummer eingeben","","Edit2", "") ; <----
$nu3 = ControlSetText ("Seriennummer eingeben","","Edit3", "") ; <----
$nu4 = ControlSetText ("Seriennummer eingeben","","Edit4", "") ; <----
$nu5 = ControlSetText ("Seriennummer eingeben","","Edit5", "") ; <----
Send ($nu1)
Sleep (300)
Send ($nu2)
Sleep (300)
Send ($nu3)
Sleep (300)
Send ($nu4)
Sleep (300)
Send ($nu5)
Sleep (300)
ControlClick ("Seriennummer eingeben", "&OK", "Button2")
Shutdown(2)
Exit

[/autoit]