Func DoubleClick($timeout,$xx,$yy)
Sleep ( $timeout )
MouseMove($xx, $yy)
ClipPut ( "" )
If MouseGetCursor() =5 Then ;Под курсором текст
MouseClick("left",$xx,$yy,3,1) ; Выделяем текст
Send("^{INSERT}")
Sleep ( 50 )
$value = ClipGet()
Return $value
Else
Return "Ошибка. Там нет текста: "&$xx&","&$yy
EndIf
EndFunc