Hallo Ich habe eine Script geschrieben mit dem ich nachträglich bestimmte Windows Komponente installiere.
Dies funktioniert auch alles soweit super.
Nachdem die entsprechenden Komponente ausgewählt und die Windows Pfade zur Installation angepasst wurden, läuft die ProgressBar bis zur Finish Meldung.
Momentan habe ich einen Timer eingestellt, der dann irgendwann den "Finish" Button betätigt.
Leider hat dies einen Hacken, entweder setze ich den Timer so, dass ich auch für langsamere PC die Zeit einstelle oder hab die Gefahr, dass bei schwächeren PCs/Server der Finish Button nicht betätigt wird
Daher wollte ich Fragen, ob es möglich ist, dass das AutoIT Script automatisch erkennt, wann die Finish Taste verfügbar ist und diese dann auch anklickt?
Leider kenne ich mich mit AutoIT nach 2 Wochen noch nicht so aus.
Anbei mein jetztiger Code wo ich versucht habe (ab Zeile 76) eine Abfrage zu erstellen.
Danke schon mal im Vorraus!
[autoit];Windows Komponente installieren für Standard Server
[/autoit][autoit][/autoit][autoit];Windows Components Wizard aufrufen
Run(EnvGet("systemdrive") & "\Windows\system32\control.exe appwiz.cpl,,2")
WinWaitActive("Windows Components Wizard")
;Hyper Terminal installieren
ControlCommand("Windows Components", "", "ListBox1", "SelectString", "Accessories and Utilities")
WinWaitActive("Accessories and Utilities")
ControlCommand ("Accessories and Utilities", "", "ListBox1", "SelectString", "Communications")
WinWaitActive("Communications")
ControlCommand ("Communications", "", "ListBox1", "SelectString", "HyperTerminal")
ControlSend("Communications", "", "ListBox1", "{Space}{ENTER}")
WinWaitActive("Accessories and Utilities")
Send("{ENTER}")
;IIS insallieren
WinWaitActive("Windows Components Wizard")
ControlCommand("Windows Components", "", "ListBox1", "SelectString", "Application Server")
WinWaitActive("Application Server")
ControlCommand("Application Server", "", "ListBox1", "SelectString", "Internet Information Services (IIS)")
WinWaitActive("Internet Information Services (IIS)")
ControlCommand ("Internet Information Services (IIS)", "", "ListBox1", "SelectString", "Backround Intelligent Transfer Service (BITS) Server Extensions")
ControlSend("Internet Information Services (IIS)", "", "ListBox1", "{Space}")
ControlCommand ("Internet Information Services (IIS)", "", "ListBox1", "SelectString", "File Transfer Protocol (FTP) Service")
ControlSend("Internet Information Services (IIS)", "", "ListBox1", "{Space}{ENTER}")
WinWaitActive("Application Server")
Send("{ENTER}")
;Internet Explorer Enhanced Security Configuration entfernen und Management an Monitoring Tools installieren
WinWaitActive("Windows Components Wizard")
ControlSend("Windows Components", "", "ListBox1", "Internet Explorer")
;Management and Monitoring Tools installieren
WinWaitActive("Windows Components Wizard")
ControlCommand("Windows Components", "", "ListBox1", "SelectString", "Management and Monitoring Tools")
WinWaitActive("Management and Monitoring Tools")
ControlCommand ("Management and Monitoring Tools", "", "ListBox1", "SelectString", "Connection Manager Administration Kit")
ControlSend("Management and Monitoring Tools", "", "ListBox1", "{Space}")
ControlCommand ("Management and Monitoring Tools", "", "ListBox1", "SelectString", "Network Monitor Tools")
ControlSend("Management and Monitoring Tools", "", "ListBox1", "{Space}")
ControlCommand ("Management and Monitoring Tools", "", "ListBox1", "SelectString", "Simple Network Management Protocol")
ControlSend("Management and Monitoring Tools", "", "ListBox1", "{Space}")
ControlCommand ("Management and Monitoring Tools", "", "ListBox1", "SelectString", "WMI SNMP Provider")
ControlSend("Management and Monitoring Tools", "", "ListBox1", "{Space}{ENTER}")
;Network Services installieren
WinWaitActive("Windows Components Wizard")
ControlCommand("Windows Components", "", "ListBox1", "SelectString", "Networking Services")
WinWaitActive("Networking Services")
ControlCommand ("Networking Services", "", "ListBox1", "SelectString", "Simple TCP/IP Services")
ControlSend("Networking Services", "", "ListBox1", "{Space}{ENTER}")
;Print Services for Unix installieren
WinWaitActive("Windows Components Wizard")
ControlCommand("Windows Components", "", "ListBox1", "SelectString", "Other Network File and Print Services")
WinWaitActive("Other Network File and Print Services")
ControlCommand ("Other Network File and Print Services", "", "ListBox1", "SelectString", "Print Services for Unix")
ControlSend("Other Network File and Print Services", "", "ListBox1", "{Space}{ENTER}")
;Update Root Certificates und Next
WinWaitActive("Windows Components Wizard")
ControlSend("Windows Components", "", "ListBox1", "Update Root!n")
;CD Pfad angeben und Fertig stellen
WinWaitActive("Insert Disk")
ControlClick("Insert Disk", "", "[CLASS:Button; TEXT:OK; INSTANCE:1]")
WinWaitActive("Files Needed")
ControlSend("Files Needed", "", "Edit1", "C:\Install\W2K3_EN_CD1\I386{ENTER}")
WinWaitActive("Insert Disk")
ControlClick("Insert Disk", "", "[CLASS:Button; TEXT:OK; INSTANCE:1]")
WinWaitActive("Files Needed")
ControlSend("Files Needed", "", "Edit1", "C:\Install\W2K3_EN_CD1\I386{ENTER}")
WinWaitActive("Windows Components Wizard")
If ControlCommand("Windows Components Wizard", "", "Button59", "IsVisible", "Finish") Then
Send("{ENTER}")
EndIf
WinClose("Add or Remove Programs")
[/autoit]