_WinWaitOwner() - Ожидание окна дочернего к заданному

;Opt('WinWaitDelay', 0)

Run('Notepad.exe')
If Not WinWait('Untitled - Notepad', '', 3) Then
	Exit
EndIf
Send('^s')
If Not WinWait('Save As', '', 3) Then
	Exit
EndIf
$hWnd = _WinWaitOwner('Save As', '', 'Untitled - Notepad', 3)
If $hWnd Then
	WinMove($hWnd, '', 10, 10)
EndIf

Func _WinWaitOwner($sTitle, $sText = '', $sOwner = 0, $iTimeOut = 0)

	Local $hWnd, $List, $Ret, $Timer = TimerInit()

	$iTimeOut = Round($iTimeOut * 1000)

	While 1
		$List = WinList($sTitle, $sText)
		If $List[0][0] Then
			If Not $sOwner Then
				$hWnd = $List[1][1]
				ExitLoop
			Else
				$hWnd = WinGetHandle($sOwner)
				If IsHWnd($hWnd) Then
					For $i = 1 To $List[0][0]
						$Ret = DllCall('user32.dll', 'hwnd', 'GetWindow', 'hwnd', $List[$i][1], 'uint', 4)
						If (Not @error) And ($Ret[0] = $hWnd) Then
							$hWnd = $List[$i][1]
							ExitLoop 2
						EndIf
					Next
				EndIf
			EndIf
		EndIf
		If ($iTimeOut) And (TimerDiff($Timer) > $iTimeOut) Then
			Return 0
		EndIf
		Sleep(10)
	WEnd
	Sleep(Opt('WinWaitDelay'))
	Return $hWnd
EndFunc   ;==>_WinWaitOwner

#include <WinAPI.au3>

Run('Notepad.exe')
If Not WinWait('[REGEXPCLASS:.*Notepad.*]', '', 3) Then Exit 1

Send('^s')
If Not WinWait('[REGEXPTITLE:^(?i)(Сохранить как|Save As)$]', '', 3) Then Exit

$hWnd = _WinWaitOwner('[REGEXPTITLE:^(?i)(Сохранить как|Save As)$]', '', '[REGEXPCLASS:.*Notepad.*]', 10)
If IsHWnd($hWnd) Then WinMove($hWnd, '', 10, 10)

Func _WinWaitOwner($sTitle, $sText = '', $sOwner = 0, $iTimeOut = 0)
    Local $hWnd, $hOwner, $WaitRet, $Parent, $Timer = TimerInit()
	
	$hOwner = WinGetHandle($sOwner)
    $iTimeOut = Round($iTimeOut * 1000)
	
	While 1
		$WaitRet = WinWait($sTitle, $sText, 1)
		$hWnd = WinGetHandle($sTitle, $sText)
		
		If $WaitRet And $sOwner <> '' Then
			$Parent = _WinAPI_GetParent($hWnd)
			If $Parent = $hOwner Then Return $hWnd
		ElseIf $WaitRet Then
			Return $hWnd
		EndIf
		
		If $iTimeOut And TimerDiff($Timer) > $iTimeOut Then Return 0
	WEnd
	
	Return 0
EndFunc

Run('notepad.exe')
Sleep(500)
Send('^s')
Sleep(500)
Run('mspaint.exe')
Sleep(500)
Send('^s')
Sleep(500)

$hWnd = _WinWaitOwner('Save As', '', 'Untitled - Notepad', 1)
If $hWnd Then 
	WinMove($hWnd, '', 10, 10)
EndIf

DllCall('user32.dll', 'hwnd', 'GetWindow', 'hwnd', $hWnd, 'uint', $GW_OWNER)

Func _WinWaitOwner($sTitle, $sText = '', $sOwner = 0, $iTimeOut = 0)
	Local $hWnd, $List, $Ret, $WWDelay_Opt, $Timer
	
	$WWDelay_Opt = Opt("WinWaitDelay")
	$Timer = TimerInit()
	$iTimeOut = Round($iTimeOut * 1000)
	
	While 1
		If $iTimeOut And TimerDiff($Timer) > $iTimeOut Then Return 0
		
		$List = WinList($sTitle, $sText)
		If @error Then ContinueLoop
		
		If Not $sOwner Then Return SetExtended(Number(Sleep($WWDelay_Opt) = 0), $List[1][1])
		
		$hWnd = WinGetHandle($sOwner)
		If Not IsHWnd($hWnd) Then ContinueLoop
		
		For $i = 1 To $List[0][0]
			$Ret = DllCall('user32.dll', 'hwnd', 'GetWindow', 'hwnd', $List[$i][1], 'uint', 4)
			If Not @error And $Ret[0] = $hWnd Then Return SetExtended(Number(Sleep($WWDelay_Opt) = 0), $List[$i][1])
		Next
		
		Sleep(1)
	WEnd
EndFunc