Hallo Leute,
Kann mir einer sagen warum dieser Code keine gültige PID ausspuckt 
#include <Inet.au3>
#include <Array.au3>
$Pid = _INetMail("","","")
$var = ProcessList()
msgbox(0,"",$Pid)
_ArrayDisplay($var)
Ich bin dabei eine func zu schreiben die darauf wartet bis der Mail-Client im Fenster aktiv ist um dem Fenster per Send(^v) eine Dateianlage zu übergeben...
Wieso ungültig? 
#include <Inet.au3>
#include <Process.au3>
MsgBox(0, "", _ProcessGetName(_INetMail("", "", "")))
[/autoit]
In der MsgBox steht bei mir: "thunderbird.exe".
Warum taucht die PID in dem von ProcessList() erstelltem Array nicht auf?
Weiß ich nicht, aber du wolltest doch die Fenster des Prozesses oder?
#include <Inet.au3>
#include <Process.au3>
#include <Array.au3>
$Process = _ProcessGetName(_INetMail("", "", ""))
MsgBox(0, "", $Process)
$aResult = _ProcessGetWindows($Process)
_ArrayDisplay($aResult)
Func _ProcessGetWindows($sProcessName)
$aWinList = WinList()
$sWindowsFound = ""
If IsInt($sProcessName) Then
For $i = 1 To $aWinList[0][0]
If WinGetProcess($aWinList[$i][0]) = $sProcessName And $aWinList[$i][0] <> "" Then $sWindowsFound &= $aWinList[$i][0] & '|'
Next
Else
For $i = 1 To $aWinList[0][0]
If _ProcessGetName(WinGetProcess($aWinList[$i][0])) = $sProcessName And $aWinList[$i][0] <> "" Then $sWindowsFound &= $aWinList[$i][0] & '|'
Next
EndIf
If $sWindowsFound = "" Then Return -1
Return StringSplit(StringTrimRight($sWindowsFound, 1), "|", 2)
EndFunc ;==>_ProcessGetWindows
Das zeigt mir alle Thunderbird Fenster an. 
Warum taucht die PID in dem von ProcessList() erstelltem Array nicht auf?
Weil du ProcessList() schon VOR _INetMail() aufrufst welche erst das Mailprogramm startet?
Weil du ProcessList() schon VOR _INetMail() aufrufst welche erst das Mailprogramm startet?
Oh, das ist mir gar nicht aufgefallen. 
Window-Handles wären wohl besser als Fenstertitel: >>Klickmich<<
Ich brauche den Titel um mit WinWaitActive () darauf zuzugreifen...
Hat jemand eine Idee, den in der Hilfe gibt es keine fertigen Funktionen um über die PId oder Hwnd an den Fenstertitel zu kommen...?
Lern lesen.... 
Weiß ich nicht, aber du wolltest doch die Fenster des Prozesses oder?
Spoiler anzeigen
[autoit]#include <Inet.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <Process.au3>
#include <Array.au3>$Process = _ProcessGetName(_INetMail("", "", ""))
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "", $Process)$aResult = _ProcessGetWindows($Process)
[/autoit] [autoit][/autoit] [autoit]
_ArrayDisplay($aResult)Func _ProcessGetWindows($sProcessName)
[/autoit]
$aWinList = WinList()
$sWindowsFound = ""
If IsInt($sProcessName) Then
For $i = 1 To $aWinList[0][0]
If WinGetProcess($aWinList[$i][0]) = $sProcessName And $aWinList[$i][0] <> "" Then $sWindowsFound &= $aWinList[$i][0] & '|'
Next
Else
For $i = 1 To $aWinList[0][0]
If _ProcessGetName(WinGetProcess($aWinList[$i][0])) = $sProcessName And $aWinList[$i][0] <> "" Then $sWindowsFound &= $aWinList[$i][0] & '|'
Next
EndIf
If $sWindowsFound = "" Then Return -1
Return StringSplit(StringTrimRight($sWindowsFound, 1), "|", 2)
EndFunc ;==>_ProcessGetWindows
Das zeigt mir alle Thunderbird Fenster an.
Lern lesen....
Und nun ein beispielscript, damit du mich verstehst auf was ich hinaus will.
#include <Inet.au3>
#include <Array.au3>
Global $aResult[1]
$var =_INetMail("", "", "")
$pid_name = ProcessList ()
$handle_name = WinList ()
For $i = 1 to $pid_name[0][0]
ReDim $aResult[UBound($aResult) + 1][4]
$aResult[Ubound($aResult) - 1][0] = $handle_name[$i][0]
$aResult[UBound($aResult) - 1][1] = $pid_name[$i][0]
$aResult[UBound($aResult) - 1][2] = $handle_name[$i][1]
$aResult[UBound($aResult) - 1][3] = $pid_name[$i][1]
Next
_ArrayDisplay($aResult)
Nun möchte ich aber noch das die bezüge zu den einzelnen Fenstertiteln und Prozessen inkl. hWnd und PId im Array stimmen....
Ich hoffe das war nun verständlich...
Ich hoffe das war nun verständlich...
Nein. 
Wozu ließt du alle laufenden Prozesse aus wenn du die PID des gesuchten Prozesses hast?
Tadaaa ^^.
#include <Inet.au3>
#include <Process.au3>
#include <Array.au3>
$Process = _ProcessGetName(_INetMail("", "", ""))
MsgBox(0, "", $Process)
$aResult = _ProcessGetWindows($Process)
_ArrayDisplay($aResult)
Func _ProcessGetWindows($sProcessName)
$aWinList = WinList()
$sWindowsFound = ""
If IsInt($sProcessName) Then
For $i = 1 To $aWinList[0][0]
If WinGetProcess($aWinList[$i][0]) = $sProcessName And $aWinList[$i][0] <> "" Then $sWindowsFound &= $aWinList[$i][0] & '|'
Next
Else
For $i = 1 To $aWinList[0][0]
If _ProcessGetName(WinGetProcess($aWinList[$i][0])) = $sProcessName And $aWinList[$i][0] <> "" Then $sWindowsFound &= $i & '|'
Next
EndIf
If $sWindowsFound = "" Then Return -1
$aSplitTmp = StringSplit(StringTrimRight($sWindowsFound, 1), "|", 2)
Local $aReturn[UBound($aSplitTmp)][2]
For $i = 0 To UBound($aSplitTmp) - 1
$aReturn[$i][0] = $aWinList[$aSplitTmp[$i]][0]
$aReturn[$i][1] = $aWinList[$aSplitTmp[$i]][1]
Next
Return $aReturn
EndFunc ;==>_ProcessGetWindows
TaDaa ==> meins: 
#include <Array.au3>
#include <Process.au3>
Global $aResult[1]
$handle_name = WinList()
For $i = 1 To $handle_name[0][0]
ReDim $aResult[UBound($aResult) + 1][5]
$aResult[UBound($aResult) - 1][0] = _ProcessGetName(WinGetProcess($handle_name[$i][1]))
$aResult[UBound($aResult) - 1][1] = WinGetProcess($handle_name[$i][1])
$aResult[UBound($aResult) - 1][2] = $handle_name[$i][0]
$aResult[UBound($aResult) - 1][3] = $handle_name[$i][1]
Next
_ArraySort($aResult)
_ArrayDisplay($aResult)
