Конференция "WinAPI" » прочесть что написано в Label другого приложния [D7, WinXP]
 
  • ivanoff (25.08.09 16:06) [0]
    получаю так

    SendMessage(H, WM_GETTEXT, 256, LParam(@S[1]));



    ... но только с Edit, Button, Panel, ...
    как посмотреть что в Label написано, по его координатам
  • Медвежонок Пятачок © (25.08.09 16:10) [1]
    лабел не оконный, так что остается только ocr
  • Сергей М. © (25.08.09 16:48) [2]

    > остается только ocr


    Или внедрить туда свой код, перехватывающий TextOut()
  • ivanoff (25.08.09 17:11) [3]

    > Сергей М. ©   (25.08.09 16:48) [2]


    уже легче :)

    .... можно по подробней?
  • Сергей М. © (25.08.09 17:24) [4]
  • Игорь © (25.08.09 18:47) [5]
  • ivanoff (26.08.09 04:13) [6]
    вроде то, даже обрадовался

    переделал так
    function MyGetWndText(Wnd: HWND): PChar; stdcall; export;
    var
     Point: TPoint;
     Buffer: array[0..256] of char;
    begin
     GlobalData^.Wnd := Wnd;
     GlobalData^.cancapture := True;
     Point:= Mouse.CursorPos;

     Windows.ScreenToClient(Wnd, Point);

     if (Point.x < 0) or (Point.y < 0) then
       GetWindowText(Wnd, Buffer, SizeOf(Buffer) - 1);

     Result := Buffer;
    end;

    ...
    exports
     MyGetWndText name 'MyGetWndText';
    ...



    вызываю так

    ...
    function MyGetWndText(Wnd: HWND): PChar; stdcall; external 'TextCapture.dll';
    ...
    var
     Wnd: HWND;
    begin
     Wnd := WindowFromPoint(Mouse.CursorPos);
     Label1.Caption := MyGetWndText(Wnd);
    end;



    чтоб функция техт возвращала

    компилятор ругается, ОС плясать начинает
    Access violation at address 099CCCBE in module 'TextCapture.dll'. Read of address 00000000.

    просьба ткнуть носом - с dll полный профан я
  • Leonid Troyanovsky © (26.08.09 08:41) [7]

    > ivanoff   (26.08.09 04:13) [6]

    > вроде то, даже обрадовался

    Откуда это? По ссылке [5]? :(

    Во-первых, GetWindowText работает с окнами, TLabel окна не имеет.
    Во-вторых,  PChar должен указывать на буфер, распределенный
    в приложении, например, buf: array [0..255] of Char.
    И, в-третьих, при таких базовых знаниях можно смело полагать,
    что получить текст из чужого TLabel невозможно.

    --
    Regards, LVT.
  • Сергей М. © (26.08.09 09:17) [8]
    Sleep(INFINITE) - это сильно.
  • Leonid Troyanovsky © (26.08.09 09:43) [9]

    > Сергей М. ©   (26.08.09 09:17) [8]

    > Sleep(INFINITE) - это сильно.

    Поэзия :)

    Это тоже из [5]?

    --
    Regards, LVT.
  • Сергей М. © (26.08.09 12:19) [10]

    > Это тоже из [5]?


    Угу. Шедевр)
    Заглянул из любопытства, а там .. Черт ногу сломит как там понахреноверчено ..
  • ivanoff (26.08.09 13:22) [11]

    > > вроде то, даже обрадовался
    >
    > Откуда это? По ссылке [5]? :(
    >
    > Во-первых, GetWindowText работает с окнами, TLabel окна
    > не имеет.


    а ведь Label-то видит - вот и обрадовался, есть от чего плясать, тока там много всего разбираюсь чего надо, чего не надо .... но как говорил с DLL не работал

    - а я и не говорил что в этой области знания у меня большие
    - чтаю, просвесщаюсь, но пока недопер - вот и прошу чтоб нормальным а не литературным языком объяснили в чем трабл или как правельно делать надо
  • Leonid Troyanovsky © (26.08.09 13:57) [12]

    > ivanoff   (26.08.09 13:22) [11]

    > а ведь Label-то видит

    Значит, это не TLabel, а TStaticText. Класс окна выяснял?

    Ну, или там не GetWindowText.
    Хотя, исходный образчик, судя по всему, для дела не пригоден.

    > не литературным языком объяснили в чем трабл

    Нелитературным нельзя, забанят.

    > или как правельно делать надо

    Конкретно спрашивай, что осталось непонятым.

    --
    Regards, LVT.
  • Сергей М. © (26.08.09 13:59) [13]

    > а ведь Label-то видит


    Что значит "видит" ?
    Прошу чтоб нормальным а не литературным языком объяснили)

    И еще прошу,  чтоб нормальным а не литературным языком объяснили, зачем тут нужен глобальный хук, если известен конкретный процесс и конкретное окно с конкретным лейблом)
  • ivanoff (26.08.09 14:52) [14]
    есть прога которая принимает некоторые данные от своей серверной части в зашифрованном виде и визуализирует посредством Label

    задача получить и использовать инфу которую ставят в те самые Label

    "они" не хотят делится этой инфой поэтому надо выдергиватить из их проги


    > зачем тут нужен глобальный хук, если известен конкретный
    > процесс и конкретное окно с конкретным лейблом)

    а мне всеравно как лишь бы данные из Label получить

    > Что значит "видит" ?

    я сделал тестовую программу положил там Label
    ... так как брал текст из TEdit, к примеру из TLabel не берет
    ... с примером из [5] - берет


    > Конкретно спрашивай, что осталось непонятым.

    так как тока разбираюсь с DLL не пойму че не так испаравил дабы по [5] техт получить а не рисовать сверху

    цитата из нета
    "Выдрать текст из Label'a можно, но для этого придется перехватывать TextOutW, так как это так сказать последняя инстанция, когда текст ещё существует в своем состоянии текста"
  • Сергей М. © (26.08.09 15:44) [15]

    > ivanoff   (26.08.09 14:52) [14]
    >
    > есть прога


    Дельфийская ? Ты уверен в этом ? Ты уверен что это именно TLabel, а не какой-либо иного класса контрол ?


    > мне всеравно как лишь бы данные из Label получить


    Пример, который ты мусолишь, устанавливает хук во все GUI-процессы.
    Не исключено (и оч даже вероятно), что среди этих процессов может оказаться более чем один процесс с контролом интересующего класса.
    И тут к тебе возникает вопрос: как ты намерен идентифицировать нужный тебе процесс, если ты установилл глоб.хук, поскольку тебе "всеравно" ?
  • ivanoff (26.08.09 16:28) [16]

    > Дельфийская ? Ты уверен в этом ? Ты уверен что это именно
    > TLabel


    CBuilder


    > "всеравно"

    важно получить инфу с Label-а конкретного окна (от которого знаю заголовок) который находится на панелке (Panel), как - не важно главное чтоб правельно

    ...не заню с какой стороны подойти, вот и кидаюсь из стороны в сторону и мучаю всех вопросами
  • Сергей М. © (26.08.09 17:32) [17]
    Отсюда следует, что следует ставить локальный хук в процесс, создавший этот лейбл.


    > не заню с какой стороны подойти


    У тебя есть заголовок окна, в котором отрисовывается искомый лейбл.
    Для простоты положим, что текст этого заголовка уникален среди заголовков всех окон тек.десктопа.
    1. Ищешь хэндл окна по заданному заголовку.
    2. Получаешь ID треда, создавшего окно - см. GetWindowThreadProcessId
    3. Устанавливаешь локальный (!!!) хук на этот тред - см. SetWindowsHookEx, тип хука выбираешь, например, WH_GETMESSAGE
    4. Посылаешь окну сообщение WM_NULL - см. PostMessage()
    При этом в АП целевого процесса будет внедрена DLL, указанная в п.3
    В процедуре инициализации этой DLL перехватываешь ф-цию TexOut (до кучи и все прочие, выводящие текст, фигурирующие в [5])
    5. В теле подмененных ф-ций извещаешь любым удобным способом (например, SendMessage) свой процесс о том, что целевой процесс для вывода некоего текста вызвал такую-то перехваченную тобой ф-цию с такими-то параметрами, в частности с параметрами-координатами, с которыми выводится текст. Остается только сравнить координаты с теми, в которых расположен искомый лейбл - и все, задача решена.
  • Rouse_ © (26.08.09 17:53) [18]

    > так как тока разбираюсь с DLL не пойму че не так испаравил
    > дабы по [5] техт получить а не рисовать сверху

    Ну во первых заменить wParam: word; на правильное значение, во вторых убрать ненуный слип, втретьих убрать мемлик GDI ресурсов, разрушая в нужное время dtc, , в четвертых начать таки возвращать в MessageProc правильный результат, а не ноль, ну и заменить процедуры отрисовки
             dtc.Rectangle(300, 3, 900, 20);
             dtc.TextOut(305, 5, Copy(Str, 0, Count));



    На отправку строки Str своему приложению
  • Сергей М. © (26.08.09 21:00) [19]
    Сейчас последует "Вы, ...., не умничайте - вы код давайте !!"
 
Конференция "WinAPI" » прочесть что написано в Label другого приложния [D7, WinXP]
Есть новые Нет новых   [134434   +28][b:0][p:0.001]