Func _WinGetTitleEx($sWindowTitle, $sWindowText = Default)
	Local $aList = WinList(), $aReturn[0]

	For $i = 1 To UBound($aList) - 1
		If $sWindowText = Default and StringInStr($aList[$i][0], $sWindowTitle) Then
			ReDim $aReturn[UBound($aReturn) + 1]
			$aReturn[UBound($aReturn) - 1] = $aList[$i][0]
		ElseIf StringInStr($aList[$i][0], $sWindowTitle = "" ? $aList[$i][0] : $sWindowTitle) and StringInStr(WinGetText($aList[$i][1]), $sWindowText) Then
			ReDim $aReturn[UBound($aReturn) + 1]
			$aReturn[UBound($aReturn) - 1] = $aList[$i][0]
		EndIf
	Next

	Return $aReturn
EndFunc