; Узнаем hWnd текущего активного окна
$hWnd = WinActive("[ACTIVE]")
; Запуск блокнота
$hPID = Run('notepad.exe')
; Ожидание 5 секунд до появление окна блокнота
$hMyWnd = WinWait("[CLASS:Notepad]", "", 5)
If Not $hMyWnd Then Exit MsgBox(4096, 'Сообщение', 'Окно не найдено, завершаем работу скрипта')
; Пишем строку в блокноте
ControlSend($hMyWnd, "", "Edit1", "Эта строка выслана в элемент Edit")
; Делаем первое окно активным (перекрываем окно блокнота).
WinActivate($hWnd)
; Посылаем Ctrl+A
If MsgBox(36, '', 'Послать Ctrl+A в окно?') = 6 Then ControlSend($hMyWnd, "", "", "{CTRLDOWN}a{CTRLUP}")
; Делаем окно блокнота активным.
WinActivate($hMyWnd)
MsgBox(64, '', 'Готово.')
; Закрываем блокнот.
ProcessClose($hPID)
