VPF::Найти кнопку в чужом приложении

pomogite

Дата 31.10.2010, 16:40 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

Репутация: нет
Всего: нет

Подскажите пожалуйста как найти кнопку "запустить" в приложенной программе?
Мой код не находит =( Хотя WinSpy показывает что это кнопка -

Код


procedure TForm1.Button2Click(Sender: TObject);
var h1,h2:hwnd;
begin
  h1:=0;
  h2:=0;
  h1 := FindWindow (nil, 'Moswar Assistant v1.1.0');
  if h1 <> 0 then
  begin
    h2 :=FindWindowEx(h1, 0, nil, 'Запустить');
    SendMessage(h2, BM_CLICK, 0, 0);
    label1.Caption:=('HWND главного окна - '+inttostr(h1));
    label2.Caption:=('HWND кнопки - '+inttostr(h2));
    if h1=0 then showmessage('Не найдено окно');
    if h2=0 then showmessage('Не найдена кнопка');
    end;
    end;

Это сообщение отредактировал(а) pomogite - 31.10.2010, 16:40

Присоединённый файл ( Кол-во скачиваний: 6 )

ma.rar 93,25 Kb

Rennigth

Дата 1.11.2010, 00:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 8
Всего: 76

pomogite,
Конечно через одно место ))), но до кнопки вроде добрался. Пойдет?

Код


const
  C_MAIN_MA_WINDOW_NAME: string = 'Moswar Assistant v1.1.0';
  C_BTN_START_WINDOW_NAME: string = 'Запустить';
  C_BTN_CLASS_ATOM_TYPE: Cardinal = $C321;
  C_PRNT_BTN_CLASS_NAME: string = 'WindowsForms10.Window.8.app.0.33c0d9d';

procedure lEnumWindowsProc(WND: hwnd; lParam: LPARAM); stdcall;
var
  WI: tagWINDOWINFO;
  pBuf: PAnsiChar;
begin
  GetWindowInfo(WND, WI);
  if WI.atomWindowType = C_BTN_CLASS_ATOM_TYPE then
  begin
    pBuf := GetMemory(MAXCHAR);
    try
      SendMessage(WND, WM_GETTEXT, MAXCHAR, Integer(pBuf));
      if pBuf =  C_BTN_START_WINDOW_NAME then
      begin
        if SetActiveWindow(WND) = 0 then
          RaiseLastOSError
        else
          SendMessage(WND, BM_CLICK, 0, 0);
      end;
    finally
      FreeMemory(pBuf);
    end;
  end;
end;

procedure TForm6.Button1Click(Sender: TObject);
var
  hMainMAWnd, hSubBtnWnd, hBtnWnd: HWND;

begin
  hMainMAWnd := FindWindow(nil, PAnsiChar(C_MAIN_MA_WINDOW_NAME));
  if hMainMAWnd <> 0 then
  begin
    hSubBtnWnd := FindWindowEx(hMainMAWnd, 0,
      PAnsiChar(C_PRNT_BTN_CLASS_NAME), nil);
    if hSubBtnWnd <> 0 then
      EnumChildWindows(hMainMAWnd, @lEnumWindowsProc, 0);
  end;
end;

Добавлено через 1 минуту и 52 секунды
Проверку на atomWindowType можно убрать, не к чему, забыл убрать. smile

--------------------

(* Honesta mors turpi vita potior *)

Rennigth

Дата 1.11.2010, 01:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 8
Всего: 76

upd))) Без ненужной бредятины smile

Код


const
  C_MAIN_MA_WINDOW_NAME: string = 'Moswar Assistant v1.1.0';
  C_BTN_START_WINDOW_NAME: string = 'Запустить';

procedure lEnumWindowsProc(hWND: hwnd; lParam: LPARAM); stdcall;
var
  pBuf: PAnsiChar;
begin
  pBuf := GetMemory(MAXCHAR);
  try
    SendMessage(hWND, WM_GETTEXT, MAXCHAR, Integer(pBuf));
    if pBuf =  C_BTN_START_WINDOW_NAME then
    begin
      SetActiveWindow(hWND);
      SendMessage(hWND, BM_CLICK, 0, 0);
    end;
  finally
    FreeMemory(pBuf);
  end;
end;

procedure TForm6.Button1Click(Sender: TObject);
var
  hMainMAWnd: HWND;
begin
  hMainMAWnd := FindWindow(nil, PAnsiChar(C_MAIN_MA_WINDOW_NAME));
  if hMainMAWnd <> 0 then
    EnumChildWindows(hMainMAWnd, @lEnumWindowsProc, 0);
end;

--------------------

(* Honesta mors turpi vita potior *)

pomogite

Дата 1.11.2010, 05:38 (ссылка)

(голосов:1)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

Репутация: нет
Всего: нет

Rennigth,
Спасибо вроде всё получилось, не мог бы ты прокомментировать свой код чтобы я разобралась в нём?

Rennigth

Дата 1.11.2010, 11:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 8
Всего: 76

pomogite, У кнопки "Запустить" парент это не основное окно которое ты находишь так:

Код


  h1 := FindWindow (nil, 'Moswar Assistant v1.1.0');

а другое окно(что-то вроде панели) у которого ClassName "'WindowsForms10.Window.8.app.0.33c0d9d'".
т.е. Нужно было найти сначала это окно а на нем уже искать кнопку. Вобщем код должен был быть примерно таким:

Код


const
  C_MAIN_MA_WINDOW_NAME: string = 'Moswar Assistant v1.1.0';
  C_PRNT_BTN_WINDOW_CLASSNAME: string = 'WindowsForms10.Window.8.app.0.33c0d9d';
  C_BTN_START_WINDOW_NAME: string = 'Запустить';

procedure TForm6.Button1Click(Sender: TObject);
var
  hMainMAWnd, hPrntBtnWnd, hBtnWnd: HWND;
begin
  hMainMAWnd := FindWindow(nil, PAnsiChar(C_MAIN_MA_WINDOW_NAME));
  if hMainMAWnd <> 0 then
  begin
    hPrntBtnWnd := FindWindowEx(hMainMAWnd, 0, PAnsiChar(C_PRNT_BTN_WINDOW_CLASSNAME), nil);
    if hPrntBtnWnd <> 0 then
    begin
      hBtnWnd := FindWindowEx(hPrntBtnWnd, 0, nil, PAnsiChar(C_BTN_START_WINDOW_NAME));
      if hBtnWnd <> 0 then
      begin
        SetActiveWindow(hWND);
        SendMessage(hWND, BM_CLICK, 0, 0);
      end;
    end;
  end;
end;

Но у меня (пока не могу понять почему) вот это:

Код


      hBtnWnd := FindWindowEx(hPrntBtnWnd, 0, nil, PAnsiChar(C_BTN_START_WINDOW_NAME));

вызывало отказ в доступе. Может какие-то особенности Win7... так что пришлось перебирать все дочерние окна функцией:

Код


EnumChildWindows

На 2000/XP скорее всего можно и без этого обойтись. smile

--------------------

(* Honesta mors turpi vita potior *)

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »