Send() не работает, как надо, не отзывается на Ctrl

#include <WinAPIEx.au3>
#include <Misc.au3>

$path = FileReadLine(@ScriptDir & '\адрес программы.txt',1)
$send= FileReadLine(@ScriptDir & '\адрес программы.txt',2)
$path=StringReplace($path,'"','')
Run($path)
ConsoleWrite($path & @CRLF)
ConsoleWrite($send & @CRLF)
$prc_name = StringLower(StringRegExpReplace($path, '.+\\([^\\]+)$', '$1'))
sleep(7000)
ConsoleWrite($prc_name & @CRLF)
$winname = _WinGetForProc($prc_name)
WinActivate($prc_name)
sleep(1000)
_SendEx("{rctrl}o")


Func _SendEx($sSend_Data)
    Local $hUser32DllOpen = DllOpen("User32.dll")

    While _IsPressed("10", $hUser32DllOpen) Or _IsPressed("11", $hUser32DllOpen) Or _IsPressed("12", $hUser32DllOpen)
        Sleep(10)
    WEnd

    Send($sSend_Data)

    DllClose($hUser32DllOpen)
EndFunc

Func _WinGetForProc($sProcName)
	$alist = ProcessList($sProcName)
	For $i = 1 To $alist[0][0]
		$iProcPid = $alist[$i][1]
	Next
	$aData = _WinAPI_EnumProcessWindows($iProcPid, 0)
	$iWin = $aData[1][0]
	$sTitle = WinGetTitle($iWin)
	Return $sTitle
EndFunc   ;==>_WinGetForProc

_SendEx("^o")
_SendEx("{CTRLDOWN}o{CTRLUP}")

WinWaitActive("ABBYY")
 Sleep(1000);
 Send("^s")
 WinWait("Save")
 Sleep(500);

Const $FR_dir = "E:\Program Files\ABBYY FineReader 8.0 Professional Edition\"
Run($FR_dir&"FineReader.exe")
AutoItSetOption ( "WinTitleMatchMode" , 2 )
$search = FileFindFirstFile("*.pdf")
If $search = -1 Then
 MsgBox(0, "Error", "No pdf files")
 Exit
EndIf
While 1
 $file = FileFindNextFile($search)
 If @error Then ExitLoop
 $file_name= StringTrimRight($file, 4); имя файла без расширения ".pdf"
WinWaitActive("ABBYY")
SendKeepActive("ABBYY")
Send("^n", 0); новый пакет
Send("!f") ;
Send("v")
 WinWaitActive("Save")
 Sleep(500)
 ControlSetText ( "Save", "", "Edit1", @WorkingDir&"\"&$file_name ); создаем папку пакета
 Sleep(500)
 Send("{ENTER}")
 Sleep(500)
 Send("^o")
 Sleep(500)
 ControlSetText ( "Open", "", "Edit1", @WorkingDir&"\"&$file ); открытие и распознавание pdf файла
 Send("{ENTER}")
 WinWaitClose("Adding")
 Sleep(500)
 WinWaitActive("ABBYY")
 Sleep(500)
 Send("^+R")
 WinWaitClose("Reading")
 Sleep(500);
 WinWaitActive("ABBYY")
 Sleep(1000);
 Send("^s")
 WinWait("Save")
 Sleep(500);
 ControlSetText ( "Save", "", "Edit1", @WorkingDir&"\"&$file_name&"\"&$file_name ); сохраняем результаты распознавания в папку пакета
 Send("{ENTER}")
 Sleep(500);
 WinWaitClose("Saving")
 Send("!f")
 Send("c") ;Закрываем пакет
WEnd

FileClose($search)