Code
; Setup starten
Run("DrvgenPro53.EXE")
; Willkommen zum Setup-Assistenten
WinWait("Setup - Driver Genius Professional Edition 2005")
WinActivate("Setup - Driver Genius Professional Edition 2005")
WinWaitActive("Setup - Driver Genius Professional Edition 2005")
Send("W")
; Lizenzvereinbarung
WinWait("Setup - Driver Genius Professional Edition 2005")
WinActivate("Setup - Driver Genius Professional Edition 2005")
WinWaitActive("Setup - Driver Genius Professional Edition 2005")
ControlClick("Setup - Driver Genius Professional Edition 2005", "Ich &akzeptiere die Vereinbarung", "TRadioButton1")
Send("W")
; Ziel-Ordner wählen
WinWait("Setup - Driver Genius Professional Edition 2005")
WinActivate("Setup - Driver Genius Professional Edition 2005")
WinWaitActive("Setup - Driver Genius Professional Edition 2005")
Send("!W")
; Komponenten auswählen
WinWait("Setup - Driver Genius Professional Edition 2005")
WinActivate("Setup - Driver Genius Professional Edition 2005")
WinWaitActive("Setup - Driver Genius Professional Edition 2005")
Send("!W")
; Startmenü-Ordner auswählen
WinWait("Setup - Driver Genius Professional Edition 2005")
WinActivate("Setup - Driver Genius Professional Edition 2005")
WinWaitActive("Setup - Driver Genius Professional Edition 2005")
Send("!W")
; Zusätzliche Aufgaben auswählen
WinWait("Setup - Driver Genius Professional Edition 2005")
WinActivate("Setup - Driver Genius Professional Edition 2005")
WinWaitActive("Setup - Driver Genius Professional Edition 2005")
Send("W")
; Installation durchführen
WinWait("Setup - Driver Genius Professional Edition 2005")
WinActivate("Setup - Driver Genius Professional Edition 2005")
WinWaitActive("Setup - Driver Genius Professional Edition 2005")
Send("!I")
; Installiere...
; Beenden des Setup-Assistenten
WinWait("Setup - Driver Genius Professional Edition 2005", "Beenden des Driver Genius Professional Edition 2005 Setup-Assistenten")
WinActivate("Setup - Driver Genius Professional Edition 2005", "Beenden des Driver Genius Professional Edition 2005 Setup-Assistenten")
WinWaitActive("Setup - Driver Genius Professional Edition 2005", "Beenden des Driver Genius Professional Edition 2005 Setup-Assistenten")
Send("F")
; Driver Genius Professional Edition 2005 registieren
WinWait("Unregistrierte Version")
WinActivate("Unregistrierte Version")
WinWaitActive("Unregistrierte Version")
ControlClick("Unregistrierte Version", "Jetzt ®istrieren...", "ThunderRT6CommandButton4")
; Driver Genius Professional Edition 2005 - Registration
WinWait("Driver Genius Professional Edition 2005 - Registration")
WinActivate("Driver Genius Professional Edition 2005 - Registration")
WinWaitActive("Driver Genius Professional Edition 2005 - Registration")
; Gebe Registriernamen ein
ControlClick("Driver Genius Professional Edition 2005 - Registration", "", "ThunderRT6TextBox1")
Send("XXXXXXXX")
; Gebe Registriercode ein
ControlClick("Driver Genius Professional Edition 2005 - Registration", "", "ThunderRT6TextBox4")
Send("XXXXX")
ControlClick("Driver Genius Professional Edition 2005 - Registration", "", "ThunderRT6TextBox2")
Send("XXXXXXXXXXXXXXX")
ControlClick("Driver Genius Professional Edition 2005 - Registration", "&Registrieren", "ThunderRT6CommandButton2")
; Registrierung erfolgreich beendet
WinWait("DriverGenius")
WinActivate("DriverGenius")
WinWaitActive("DriverGenius")
ControlClick("DriverGenius", "OK", "Button1")
; Driver Genius
; Driver Genius startet
; Tipp des Tages
; Tipp des Tages öffnet sich
WinWait("Tipp des Tages")
WinActivate("Tipp des Tages")
WinWaitActive("Tipp des Tages")
ControlClick("Tipp des Tages", "Tipp des Tages beim Start anzeigen", "ThunderRT6CheckBox1")
; Tipp des Tages beenden
ControlClick("Tipp des Tages", "OK", "ThunderRT6CommandButton2")
WinWait("Driver Genius Professional Edition 2005")
WinActivate("Driver Genius Professional Edition 2005")
WinWaitActive("Driver Genius Professional Edition 2005")
; Driver Genius beenden
WinClose("Driver Genius Professional Edition 2005")
WinWaitClose("Driver Genius Professional Edition 2005")
Alles anzeigen