#include <Constants.au3>
#include <ScreenCapture.au3>
#Include <Misc.au3>
#include <Array.au3>
#include <GDIPlus.au3>
$image = @MyDocumentsDir & "\aaa_teste.jpg"
ConsoleWrite(OCR($image))
Func OCR($Image)
Local $miDoc, $Doc
Local $str
Local $oWord
Local $sArray[500]
Local $as_Text = ""
$miDoc = ObjCreate("MODI.Document")
ConsoleWrite("ObjCreate - The error value is: " & @error & @CRLF)
$miDoc.Create(@TempDir & '\OCR_ImageResize.jpg')
ConsoleWrite("Create - The error value is: " & @error & @CRLF)
$miDoc.Ocr(9, False, False)
ConsoleWrite("Ocr - The error value is: " & @error & @CRLF)
If $Error = False Then
$i = 0
For $oWord in $miDoc.Images(0).Layout.Words
$str = $str & $oWord.text & @CrLf
ConsoleWrite($oWord.text & @CRLF)
$sArray [$i] = $oWord.text
$i += 1
Next
$as_Text = _ArrayToString($sArray," ",0)
$as_Text = StringReplace($as_Text, " ", "", 0)
ElseIf $Error = True Then
$Error = False
EndIf
$miDoc.Close(False)
Return $as_Text
EndFunc
#include <Constants.au3>
#include <ScreenCaptur