Script für Software Pro_Medico

Opt('MustDeclareVars', 1)
#include <WinAPISysInternals.au3>
#include <WindowsConstants.au3>

Global Const $ExeName = 'PMWIN.EXE'

WinClose(FindWindowHandle())         ;Laufendes Programm schließen ohne Force. Eine Meldung vom Programm sollte das schließen verhindern und den Dialog zeigen
sleep(5000)                            ;Warten umdem Programm zeit zum schließen zu geben
if ProcessExists($ExeName) Then        ;Prüfen ob das Programm noch läuft, denn dann ist der Dialog hoch gekommen.
    Send("{ENTER}")                    ;Den Dialog mit Enter bestätigen
    ;hier müsste der Code zum Starten der Datensicherung rein, ist ja scheinbar nicht direkt über den Dialog startbar.
    ;Die Information zum starten der Datensicherung müsstest du nachreichen, da ich das Programm selber nicht habe ginge das nur über Tastatureingaben durchs Menü hangeln
    ;Wird nach dem Abschluss der Datensicherung das Programm selbstständig beendet?
    While ProcessExists($ExeName)    ;Warten bis das Programm beendet wurde.
        Sleep(60000)                ;Jede Minute prüfen ob Datensicherung bzw. der Prozess noch läuft, basierend auf deiner Annahme das dies über das Programm selber läuft.
    WEnd
EndIf
Shutdown($SD_SHUTDOWN)


Func FindWindowHandle()
Local $i, $hWnd
Local Const $ProcessList = ProcessList()
    For $i = 1 to $ProcessList[0][0]
        if StringInStr($ProcessList[$i][0], $ExeName) Then
;~             $PID = $ProcessList[$i][1]
            $hWnd = _WinGetByPID($ProcessList[$i][1], 1)
            If BitAND(WinGetState($hWnd), $WIN_STATE_EXISTS) then ExitLoop
        EndIf
    Next
    if $hWnd = "" then
        Return -1
    Else
        Return $hWnd
    EndIf
EndFunc

;from https://www.autoitscript.com/forum/topic/136271-solved-wingethandle-from-wingetprocess/
Func _WinGetByPID($iPID, $iArray = 1) ; 0 Will Return 1 Base Array & 1 Will Return The First Window.
    Local $aError[1] = [0], $aWinList, $sReturn
    If IsString($iPID) Then
        $iPID = ProcessExists($iPID)
    EndIf
    $aWinList = WinList()
    For $A = 1 To $aWinList[0][0]
        If WinGetProcess($aWinList[$A][1]) = $iPID And BitAND(WinGetState($aWinList[$A][1]), 2) Then
            If $iArray Then
                Return $aWinList[$A][1]
            EndIf
            $sReturn &= $aWinList[$A][1] & Chr(1)
        EndIf
    Next
    If $sReturn Then
        Return StringSplit(StringTrimRight($sReturn, 1), Chr(1))
    EndIf
    Return SetError(1, 0, $aError)
EndFunc   ;==>_WinGetByPID