Interception screen text

[friendfox]

Aqua is a good tool for interception of screen text, help me to call its functions(TCaptureX.dll) use AutoIt3. Thank you.

I tried for a very long time, but failed.

My English is not good, sorry.

Download Aqua here

[JohnOne]

Its customary to post the code you have tried, it saves people who are likely to help you covering the same ground, and may be able just to see what you are doing wrong.

[friendfox]

$dll_file = "TCaptureX.dll"
$Dll      = DllOpen("TCaptureX.dll")
$winhand=  WinGetHandle('')
$string  = DllCall($dll,"str","GetTextFromRect","hwnd", $winhand,"long",0,"long",0,"long",400,"long",400)
MsgBox(0,'info',$string)
DllClose($dll)

"GetTextFromRect" method captures the text from the rectangle specified (left, top,

width, height) in screen coordinates, in the window specified by hwnd.

But the above code, $string returns null

[somdcomputerguy]

I think you're calling WinGetHandle incorrectly. You're not specifying which window to get a handle from..

[friendfox]

I think you're calling WinGetHandle incorrectly. You're not specifying which window to get a handle from..

Not this reason, thank you.

[friendfox]

It's also a good idea to search the forum thoroughly before posting.

This post does not solve the problem, the end result of this post the same problem with my

Thank you

[JohnOne]

Can you confirm that this "$winhand= WinGetHandle('')" causes the function to use the full desktop as its source.

[friendfox]

Can you confirm that this "$winhand= WinGetHandle('')" causes the function to use the full desktop as its source.

HotKeySet("a", "testfunc")

$wTitle = "Notepad"

While 1
   Sleep(10)
wend

func testfunc()
    $ocr = _rectOCR($wTitle,0,0,200,200)
    MsgBox(0,"OCR", $ocr)
EndFunc

Func _rectOCR($wTitle, $rX, $rY, $rWidth, $rHeight)
    $xy = WinGetPos($wTitle)
    $Title = WinGetTitle($wTitle)
    $hwnd = Dec(StringTrimLeft(WinGetHandle($Title), 2))
    $obj = ObjCreate("TCaptureX.TextCaptureX")
    $results = $obj.GetTextFromRect($hwnd, $xy[0]+$rX, $xy[1]+$rY, $rWidth, $rHeight)
    return $results
EndFunc

This code still can not get the right result, I really need help

[JohnOne]

To get the window handle like that you will need to employ WinTitleMatchMode option <- helpfile.

[somdcomputerguy]

Add this line to top of script,

Opt("WinTitleMatchMode",  2)      ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to  -4=Nocase

This helps?

edit: Ya, what he said..

Edited January 1, 2011 by somdcomputerguy

[friendfox]

Add this line to top of script,

Opt("WinTitleMatchMode",  2)      ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to  -4=Nocase

This helps?

edit: Ya, what he said..

Thank you, now you can extract the text in Notepad, but still can not extract the text in IE