Hallo zusammen, ich werde wahnsinnig ;o)
ich versuche mit AutoIT ein Programm zu installieren. Die erste Installation funktioniert ohne Probleme, doch nach einem Deinstallieren, funktioniert das anschließende Installieren nicht 100%, da das letze Fenster ein anderes ist. OK, nun hab ich eine Funktion gebastelt, aber es funzt nicht.
Er springt zwar wie gewollt in die Funktion 2, aber beendet einfach das Skript ohne mir das Fenster mit "ENTER" zu beenden. Vielleicht seht ihr ja mein Fehler. Bin für jeden Tip dankbar.
Grüße
CrazyER
Code
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('\\WAK029\configurator$\Packages\Inteco\Primavera\5.2\Patches\Sp2\setup.exe')
WinWait("Primavera 5.0 Service Pack 2 - InstallShield Wizard","The InstallShield Wi")
If Not WinActive("Primavera 5.0 Service Pack 2 - InstallShield Wizard","The InstallShield Wi") Then WinActivate("Primavera 5.0 Service Pack 2 - InstallShield Wizard","The InstallShield Wi")
WinWaitActive("Primavera 5.0 Service Pack 2 - InstallShield Wizard","The InstallShield Wi")
Send("{TAB}{TAB}{ENTER}")
WinWait("Primavera 5.0 Service Pack 2 - InstallShield Wizard","Select destination f")
If Not WinActive("Primavera 5.0 Service Pack 2 - InstallShield Wizard","Select destination f") Then WinActivate("Primavera 5.0 Service Pack 2 - InstallShield Wizard","Select destination f")
WinWaitActive("Primavera 5.0 Service Pack 2 - InstallShield Wizard","Select destination f")
Send("{ENTER}")
WinWait("Primavera 5.0 Service Pack 2 - InstallShield Wizard","Select common files ")
If Not WinActive("Primavera 5.0 Service Pack 2 - InstallShield Wizard","Select common files ") Then WinActivate("Primavera 5.0 Service Pack 2 - InstallShield Wizard","Select common files ")
WinWaitActive("Primavera 5.0 Service Pack 2 - InstallShield Wizard","Select common files ")
Send("{ENTER}")
WinWait("Primavera 5.0 Service Pack 2 - InstallShield Wizard","Setup has enough inf")
If Not WinActive("Primavera 5.0 Service Pack 2 - InstallShield Wizard","Setup has enough inf") Then WinActivate("Primavera 5.0 Service Pack 2 - InstallShield Wizard","Setup has enough inf")
WinWaitActive("Primavera 5.0 Service Pack 2 - InstallShield Wizard","Setup has enough inf")
Send("{ENTER}")
AdlibEnable ("Fenster1",500)
AdlibEnable ("Fenster2",500)
func Fenster1()
If WinExists("Primavera 5.0 Service Pack 2 - InstallShield Wizard","Yes, I want to resta") Then WinActivate("Primavera 5.0 Service Pack 2 - InstallShield Wizard","Yes, I want to resta")
Send("{DOWN}{ENTER}")
Exit
EndFunc
func Fenster2()
If WinExists("Primavera 5.0 Service Pack 2 - InstallShield Wizard","InstallShield Wizard Complete") Then WinActivate("Primavera 5.0 Service Pack 2 - InstallShield Wizard","InstallShield Wizard Complete")
Send("{ENTER}")
Exit
EndFunc
Alles anzeigen