hi @ all
weil hier ja die scribte vorgestellt werden, stelle ich mal mein Schachprogramm vor, es laeuft auch mit fritz 10, da ich beide habe installier ich jedoch nur die deep fritz version!
hersteller: chessbasse gmbh
info: info@chessbase.com
webseite: https://autoit.de/www.chessbase.com
Spoiler anzeigen
Scriptsource
; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.2.4.9
; Author: d2po88
;
; Script Function:
; Installiert Deep Fritz 10--MultiProcessor Version--Schach--
;
; ----------------------------------------------------------------------------
; 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
wer es gebrauchen kann werden wohl wenige sein
d2po88