Beiträge von Moombas

;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

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <MsGBoxConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Witron-Start", 245, 140, 339, 192)

$Input1 = GUICtrlCreateInput("Benutzername", 24, 16, 193, 21)
$Input2 = GUICtrlCreateInput("Passwort", 24, 40, 193, 21)


$Button1 = GUICtrlCreateButton("Start", 24, 64, 193, 33)
$Beenden = GUICtrlCreateButton("Beenden", 24, 104, 193, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Beenden
            Exit
        Case $Button1
            $user = GUICtrlRead($Input1)
            $pwd  = GUICtrlRead($Input2)
            if ($user <> '') and ($pwd <> '') Then
                if not RunProg("X:\bin\wvs.exe", "Welcome to", "WVS") Then MsgBox(1, 'Fehler', 'Das Programm WVS konnte nicht gestartet werden oder das Fenster wurde nicht gefunden!')
                if not RunProg("X:\bin\cps.exe", "Welcome to", "Car Picking System - CPS Administration 2.1.0") Then MsgBox(1, 'Fehler', 'Das Programm CPS konnte nicht gestartet werden oder das Fenster wurde nicht gefunden!')
                if not RunProg("X:\bin\lbs.exe", "Welcome to", "Logistic Bus System - LBS Administration 3.2.121") Then MsgBox(1, 'Fehler', 'Das Programm LBS konnte nicht gestartet werden oder das Fenster wurde nicht gefunden!')
                if not RunProg("X:\bin\.pcoview", "PCO View Login", "bwms-app") Then MsgBox(1, 'Fehler', 'Das Programm PCO View konnte nicht gestartet werden oder das Fenster wurde nicht gefunden!')
                if not RunProg("X:\bin\pro_vb32.exe", "Welcome to", "Protocol-Diagnosis-Information-System - Administration") Then MsgBox(1, 'Fehler', 'Das Programm PDIS konnte nicht gestartet werden oder das Fenster wurde nicht gefunden!')
                if not RunProg("X:\bin\qfiview.exe", "QFI View Login", "QFIView") Then MsgBox(1, 'Fehler', 'Das Programm QFI View konnte nicht gestartet werden oder das Fenster wurde nicht gefunden!')

                if not RunProg("X:\bin\mfc.exe", "Welcome to", "Car Picking System - CPS Administration 2.1.0") Then MsgBox(1, 'Fehler', 'Das Programm MFC konnte nicht gestartet werden oder das Fenster wurde nicht gefunden!')

                if not RunProg("X:\bin\AMS.exe", "Log on AMS", "AMS V2.10.7") Then MsgBox(1, 'Fehler', 'Das Programm AMS konnte nicht gestartet werden oder das Fenster wurde nicht gefunden!')
                if not RunProg("X:\bin\BMIS.exe", "Log on BMIS", "BMIS V2.15.0") Then MsgBox(1, 'Fehler', 'Das Programm BMIS konnte nicht gestartet werden oder das Fenster wurde nicht gefunden!')
                if not RunProg("X:\bin\AMdiShell.exe", "Login", "*MdiShell V2.1.485.0") Then MsgBox(1, 'Fehler', 'Das Programm AMDiShell konnte nicht gestartet werden oder das Fenster wurde nicht gefunden!')
                MsgBox($MB_SYSTEMMODAL, "Autostart", "Fertig!", 5)
            Else
                MsgBox(1, 'Falsche Eingabe', 'Benutzername oder Passwort war leer!')
            EndIf
    EndSwitch
WEnd

;------------------------------------------------------

Func RunProg($Prog, $TitleLogin, $TitleRun); normalerweise würde ich $user und $pwd mit übergeben lassen, da dies hier aber (unschöner weise) eine globale variable ist lasse ich das
Local $break = 0

    Run($Prog)
    if @error then 
        MsgBox(1, 'Fehler', _WinAPI_GetLastErrorMessage())
        Return False
    EndIf

    while Not WinExists($TitleLogin)
        if $break > 100 then Return False    ;maximal 10Sekunden warten
        sleep(100)
        $break += 1
    WEnd

    $break = 0
    while Not WinActive($TitleLogin)
        if $break > 100 then Return False    ;maximal 10Sekunden warten
        WinActivate($TitleLogin)
        sleep(100)
        $break += 1
    WEnd

    send($user)
    send("{TAB}")
    Send($pwd)
    Sleep(1000)                             ;ich hätte hier 500 gewählt kann das aber nicht einschätzen da ich die Programme etc. nicht kenne
    Send("{ENTER}")

    $break = 0
    while Not WinExists($TitleRun)
        if $break > 100 then Return False    ;maximal 10Sekunden warten
        sleep(100)
        $break += 1
    WEnd

    Return True
EndFunc

Schleife $i = 25
Select
    Case $_readR = 1
         if $i = 25 then
            MouseClick("left" , 417,527, 1)
            sleep(3000)
         endif
    Case $_readR = 2 ; Englisch
         MouseClick("left" , 408,555, 1)
         sleep(3000)
    Case Else
         sleep(300)
EndSelect

Func WorkingArea($ExeName)
Local $i, $PID, $hWnd
Local Const $ProcessList = ProcessList()
Local Const $Space = 0 ;Pixelfreiraum zwischen den Fenstern

    if not ProcessExists($ExeName & '.exe') then Return -1
    For $i = 1 to $ProcessList[0][0]
        if StringInStr($ProcessList[$i][0], $ExeName) Then
            $PID = $ProcessList[$i][1]
            $hWnd = _WinGetByPID($PID, 1)
            if WinGetTitle($hWnd) <> "" then ExitLoop
        EndIf
    Next
    if ($PID = "") or ($hWnd = "") then Return -1
    if WinGetTitle($hWnd) = '' then Return -2

    ;Arbeitsplatzerkennung und anpassen der Fenster
    ;...    

    Return 1
EndFunc

Func WorkingArea($ExeName, $Monitor)
Local $i, $PID, $hWnd
Local Const $ProcessList = ProcessList()
Local Const $Space = 0 ;Pixelfreiraum zwischen den Fenstern

    if not ProcessExists($ExeName & '.exe') then Return -1
    For $i = 1 to $ProcessList[0][0]
        if StringInStr($ProcessList[$i][0], $ExeName) Then
            $PID = $ProcessList[$i][1]
            $hWnd = _WinGetByPID($PID, 1)
            if (WinGetTitle($hWnd) <> "") and ($PID <> "") and ($hWnd <> "") then 
                ProcessClose($PID)
            Endif
        EndIf
    Next

    Return 1
EndFunc

$ExeName = 'chrome'
For $i = 1 to $ProcessList[0][0]
    if StringInStr($ProcessList[$i][0], $ExeName) Then
        $PID = $ProcessList[$i][1]
        $hWnd = _WinGetByPID($PID, 1)
        If BitAND(WinGetState($hWnd), $WIN_STATE_EXISTS) then 
            ProcessClose($PID)
            Exitloop
        Endif
    EndIf
Next