Probleme mit AIDA64 Automatisierung

  • Hi,

    ich habe folgendes problem.
    Ich würde gerne automatisch einen AIDA64 Bericht erstellen. Einen einfachen. Dafür gibt es ein Wizzard bei dem man einfach nur auf Weiter klicken muss. Das funktioniert alles eigentlich auch schon, nur hin und wieder wenn der Wizzard den Fokus verliert funktioniert Controlklick nicht. Leider kann ich auch das Handle von dem Fenster nicht bekommen. Ich bekomme immer das Fenster der Hauptform zurück.

    Hier mein Script:

    Spoiler anzeigen
    [autoit]

    #RequireAdmin
    #include <SendMessage.au3>
    #include <WindowsConstants.au3>

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

    Opt("WinTitleMatchMode", 2)

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

    ShellExecute("AIDA64beta.exe")
    WinWait("AIDA64 Extreme Edition")
    $hwnd_Aida64 = WinGetHandle("AIDA64 Extreme Edition")

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

    Do

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

    Sleep(200)
    Until IsVisible($hwnd_Aida64) = 2

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

    ControlClick($hwnd_Aida64, "", "[CLASS:TToolBar; INSTANCE:2]", "left", 1, 2)

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

    Local $hwnd_bericht_assi = WinGetHandle("[CLASS:TForm_ReportWizard1];[INSTANCE:2]", "")
    WinSetOnTop($hwnd_bericht_assi, "", 1)

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

    Do
    WinActivate($hwnd_bericht_assi)
    Sleep(200)
    Until IsVisible($hwnd_bericht_assi) = 2
    WinActivate($hwnd_bericht_assi)
    ControlClick($hwnd_bericht_assi, "", "[CLASS:TButton; INSTANCE:2]", "left", 2)

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

    Do
    WinActivate($hwnd_bericht_assi)
    Sleep(200)
    Until IsVisible($hwnd_bericht_assi) = 2
    WinActivate($hwnd_bericht_assi)
    ControlClick($hwnd_bericht_assi, "", "[CLASS:TButton; INSTANCE:2]", "left", 2)

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

    Do
    WinActivate($hwnd_bericht_assi)
    Sleep(200)
    Until IsVisible($hwnd_bericht_assi) = 2
    WinActivate($hwnd_bericht_assi)
    ControlClick($hwnd_bericht_assi, "", "[CLASS:TButton; INSTANCE:4]", "left", 2)

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

    Do
    WinActivate($hwnd_bericht_assi)
    Sleep(200)
    Until IsVisible($hwnd_bericht_assi) = 2
    WinActivate($hwnd_bericht_assi)
    ControlClick($hwnd_bericht_assi, "", "[CLASS:TButton; INSTANCE:2]", "left", 2)

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

    Sleep(500)

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

    $hwnd_bericht = WinGetHandle("Bericht - AIDA64")

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

    Do
    Sleep(100)
    Until ControlGetText($hwnd_bericht, "", "[CLASS:TStatusBar; INSTANCE:1]") = "Fertig"
    Sleep(200)

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

    ControlClick($hwnd_bericht, "", "[CLASS:TToolBar; INSTANCE:1]", "left", 1, 26, 10)

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

    $hwnd_save_dialog = WinGetHandle("[CLASS:#32770; TITLE:Bericht speichern]")

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

    Do
    WinActivate($hwnd_save_dialog)
    Sleep(200)
    Until IsVisible($hwnd_save_dialog) = 2

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

    Sleep(1500)

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

    ControlSetText($hwnd_save_dialog, "", "[CLASS:Edit; INSTANCE:1]", @ScriptDir & "\" & @ComputerName)

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

    ControlClick($hwnd_bericht_assi, "", "[CLASS:Button; INSTANCE:1]", "left", 2)

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

    Sleep(1000)
    ControlClick("Erfolgreich", "", "[CLASS:Button; INSTANCE:1]", "left", 2)

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

    ProcessClose("aida64beta.exe")

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

    Func IsVisible($handle)
    Return BitAND(WinGetState($handle), 2)
    EndFunc ;==>IsVisible

    [/autoit]

    Gibt es noch etwas zuverlässigeres zur Fenster bestimmung? Oder besserer Hintergrund Klick. Oder sonst etwas um durch das Wizzard zu navigieren?
    Lg
    Douky