Имитация нажатия кнопки в чужом окне(форме)...

[Agasferat]

Как имитировать нажатие кнопки в чужом окне (форме)?
Есть какая нить функция, команда или процедура, которая бы позволяла это делать???

[medved_68]

Цитата: Сообщение от Agasferat Как имитировать нажатие кнопки в чужом окне (форме)? Есть какая нить функция, команда или процедура, которая бы позволяла это делать???

Для начала необходимо получить дескриптор данного окна. Можно для этого использовать FindWindow....затем функцией EnumChildeWindow....получить дескрипторы дочерних контролов, после этого проверить соответствие каждого контрола нужному классу и если найден нужный дескриптор - отправить ему сообщение о нажатии и отпускании кнопки мыши:

      //Находим дескриптор окна процесса распаковки
              Okno:=FindWindow(nil,'Самораспаковывающийся архив WinRAR');
              if Okno <> 0 then
                begin //Это процесс архиватора
                  SL.Clear;
                  EnumChildWindows(Okno, @EnumChildProc, Longint(SL));
                  //После окончания Han = дескриптору контрола
                  //который необходимо "программно нажать"
                  if Han <> 0 then PostMessage(Han, BM_CLICK, 0, 0);

Функция callback вот ее вторая часть:

//КаллБэк функция поиска дочерних контролов
function EnumChildProc(Wnd: hWnd; SL: TStrings): BOOL; stdcall;
var
  ax:string;
begin
  Result := Wnd <> 0;
  if Result then
    begin
      Len:=GetClassName(Wnd,Buff,MAX_PATH);
      if Len > 0 then
        begin
          ax:=string(Buff);
          if ax = 'Button' then
            begin
              Len:=GetWindowText(Wnd,Buff,MAX_PATH);
              if (string(Buff)) = 'Извлечь' then Han:=Wnd;
            end;
        end;
      EnumChildWindows(Wnd, @EnumChildProc, Longint(SL));
    end;
end;

В данном случае я программно запускал самораспаковывающийся архив винрара и нажимал кнопку извлечь. Архив распаковывался и процесс "склеивал ласты".

[Agasferat]

Дескриптор окна есть, есть дескриптор кнопки! Мне вот что не понятно это как вот послать сообщение как ты говоришь о нажатие вот это момент меня интересует, можно подробнее ! А то шо то мусолю и мусолю ни как не доганю!

[medved_68]

Цитата: Сообщение от Agasferat Дескриптор окна есть, есть дескриптор кнопки! Мне вот что не понятно это как вот послать сообщение как ты говоришь о нажатие вот это момент меня интересует, можно подробнее ! А то шо то мусолю и мусолю ни как не доганю!

Либо SendMessage, либо PostMessage. Тем более, что дескриптор кнопки ты уже отловил. Вот ему и отправляй:

PostMessage(Дескриптор кнопки, BM_CLICK, 0, 0);

Есть правда кнопки, которые не понимают сообщение BM_CLICK - тогда приходится окну-родителю посылать нажатие/отпускание кнопки мыши с координатами контрола кнопки (делаем предварительно "лишние телодвижения", получая координаты контрола на форме). Даже если кнопка просто нарисована (т.е. это не контрол, а область формы (но это ИМХО не твой случай) - такой вариант прокатит на ура и форма обработает последовательность сообщений от якобы мыши.

[Agasferat]

А есть какая нить функция которая бы показала все Контролы какие есть в конкретном окне, дескриптор окна есть????
Ну то есть чтобы знать типы контролов

[medved_68]

Цитата: Сообщение от Agasferat А есть какая нить функция которая бы показала все Контролы какие есть в конкретном окне, дескриптор окна есть???? Ну то есть чтобы знать типы контролов

Нет, такой функции нет. Но есть программы. Одна из них входит в пакет MVS 2005 и называется Spy++. Есть и другие аналоги, например http://softsearch.ru/programs/61-526...download.shtml называется WieW 1.90. Работать просто - запускаешь программу, запускаешь "жертву", наводишь мышь и в программе (окне) отображается информация о контроле под указателем мыши, начиная от текущего дескриптора до имени класса, под которым данный контрол скомпилирован.

[Agasferat]

А вот есть функция такая FindWindow(), ескриптор возвращает,
а где вот взять результат True или False т.е. не сам дескриптор а нашел или не нашел окно ????

[medved_68]

Цитата: Сообщение от Agasferat А вот есть функция такая FindWindow(), ескриптор возвращает, а где вот взять результат True или False т.е. не сам дескриптор а нашел или не нашел окно ????

Смотрим описание функции:

Цитата: Если функция завершилась успешно, возвращаемое значение - дескриптор окна, которое имеет определенное имя класса и имя окна. Если функция терпит неудачу, возвращаемое значение - ПУСТО (NULL). Чтобы получить дополнительные данные об ошибках, вызовите GetLastError.

Соотвественно, проверка на 0 и будет ответом выполнена функция или нет. Ну а GetLastError выдаст код ошибки (объяснение) - почему функция не была выполнена. Разве этого не достаточно для анализа?

[Agasferat]

1. Как найти окно в заголовке(или в названии) которого есть слово кот тебе нужно.?? Я имею ввиду есть какой нить поиск типа : *word*, по краям звездочки в место любого текста???
(так как нить можно :FindWindow('*word*',0,0,nil) )

2. А как можно считать текст в окне на картинке (с изображения), или покрайне мере какие функции или процедурц в этом помогут???
(какой нить принт скрин окна есть в буфер, и )
огромное пасибо!!! )

[medved_68]

Цитата: Сообщение от Agasferat А как можно считать текст в окне на картинке (с изображения),

Если интересует обход капчи - то лучше забей - овчинка выделки не стоит (слишком проблематично организовать выборки пикселей и привязку соответствия к тексту). А если еще и есть перечеркнутые полосы или тоновые переходы, которые глаз воспринимает как контуры текста, а программа будет воспринимать просто переходы - вообще труба.

Цитата: Сообщение от Agasferat 1. Как найти окно в заголовке(или в названии) которого есть слово кот тебе нужно.??

Окно верхнего уровня?

[Agasferat]

Окно, да главное;

А изображение нормальное просто текст считать в виде картинке?
Какие нить функции типа принт скрин экрана или окна есть?

[medved_68]

Цитата: Сообщение от Agasferat Какие нить функции типа принт скрин экрана или окна есть?

Конечно. Есть класс TBitmap в нем есть методы работы с регионами. У формы есть Canvas. На ней выделяй регион (нужную область) и переписывай в TBitmap (или TImage) по желанию. Соответственно, у данного объекта есть методы обработки пикселей, вообщем работы с изображением, вплоть до сохранения в формате bmp, jpeg.