Как активировать окно чтобы нажать на кнопку

ControlClick()

Opt("PixelCoordMode", 2)

Send("!n")
ControlClick ( "Блокнот", "&Да", CLASS:Button )

Send("!n")
WinWaitActive("Блокнот","&Да")
Opt("PixelCoordMode", 2)
ControlClick ( "Блокнот", "&Да" , CLASS:Button [, [, 1 [, 0 [, 0]]]] )

Opt("PixelCoordMode", 2)		;Чтение пикселей внутри клиентской части окна
Opt("MouseCoordMode", 2)		;Координаты мыши внутри клиентской части окна

Run("notepad.exe");запускаем Блокнот
$hWnd = WinWait("[CLASS:Notepad]", "", 5);ждем появления его окна
ControlSend($hWnd, "", "Edit1", "Эта строка выслана в элемент Edit");вводим некий текст
WinClose($hWnd);закрываем Блокнот
WinWait($hWnd, "[CLASS:Button; INSTANCE:1]", 5);ждем появления окна о сохранении
ControlClick ("Блокнот", "&Да", "[CLASS:Button; INSTANCE:1]");жмем на кнопку "Да"

$iPID = Run('notepad.exe');запускаем Блокнот
$hWnd = WinWait('[CLASS:Notepad]', '', 3);ждем появления его окна
If WinGetProcess($hWnd) <> $iPID Then Exit 13
ControlSend($hWnd, '', 'Edit1', 'Эта строка выслана в элемент Edit');вводим некий текст
WinClose($hWnd);закрываем Блокнот
Sleep(100)
$aList = WinList('[Class:#32770]')
For $i = 1 To $aList[0][0]
	If Not BitAND(WinGetState($aList[$i][1]), 2) Then ContinueLoop
	If WinGetProcess($aList[$i][1]) = $iPID Then
		ControlClick($aList[$i][1], '', '[CLASS:Button; INSTANCE:1]')
		ExitLoop
	EndIf
Next

$iPID = Run('notepad.exe');запускаем Блокнот
MsgBox(0, "Переменная ($iPID)", $iPID)
WinSetOnTop ( "Переменная ($iPID)",  1 )
$hWnd = WinWait('[CLASS:Notepad]', '', 3);ждем появления его окна
MsgBox(0, "Переменная ($hWnd)", $hWnd)
WinSetOnTop ( "Переменная ($hWnd)",  1 )