VPF::Клик по координатам окна - Форум программистов

lollollollol

Дата 23.8.2013, 22:14 (ссылка)

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

Загрузка ...

Опытный

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

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

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

Sanchezzz

Дата 23.8.2013, 22:54 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

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

Код


var Pt = TPoint;
...
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);

Этот ответ добавлен с нового Винграда - http://vingrad.com

lollollollol

Дата 24.8.2013, 07:03 (ссылка)

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

Загрузка ...

Опытный

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

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

Дак ведь оно просто кликнет на заданых координатах, а мне нужно кликнуть по части окна, которая за границей монитора, при этом не переместив курсор мышки.
И при этом клик отправить в конкретное окно(указав хендл), ведь окон может быть множество, в пределах одних координат

т.е. по сути меня интересует вопрос,
можно ли как-то окну сказать "Тебе нажли мышкой в таких-то координатах",
на смотря на то что в очередь событий с вводных устройств действия добавляться не будет?

Это сообщение отредактировал(а) lollollollol - 24.8.2013, 07:10

Sanchezzz

Дата 24.8.2013, 10:12 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

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

Кординаты передать нельзя(Вернее надо читать доку что бы узнать) а вот сказать можно например через FindWindowEx + SendMessage

Это сообщение отредактировал(а) Sanchezzz - 24.8.2013, 10:13

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

Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.

lollollollol

Дата 24.8.2013, 11:18 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


procedure ClickByWindow(aHWindow : HWND; aX : Word; aY : Word);
var
  Coordinates : Longword;
begin
  Coordinates := 0;
  Coordinates := aX or (aY shl 16);
  SendMessage(aHWindow, WM_LBUTTONDOWN, MK_LBUTTON, Coordinates);
  SendMessage(aHWindow, WM_LBUTTONUP, MK_LBUTTON, Coordinates);
end;

ClickByWindow($0022043C,300,42);

Хендл окна посмотрел через WinSpy++, проверил это именно то окно(подвигал его), но на клик никак не реагирует.

Poseidon

Дата 24.8.2013, 12:03 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

А 300 и 42 откуда взял? По-моему там надо передавать координаты относительно рабочего стола. Нужно глянуть msdn. А еще по-моему есть сообщение WM_Click

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

lollollollol

Дата 24.8.2013, 12:08 (ссылка)

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

Загрузка ...

Опытный

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

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

Я координаты и относительно раб стола передавал, и относительно окна где выполняю клик, мне кажется проблема в дочерних окнах, могу ошибаться.

Для примера, попробуй открыть 5 вкладок в браузере.
Потом почти полностью передвинуть его за пределы раб стола.
(предварительно получив координаты, куда будешь кликать, я с помощью скриншота окна и фотошопа получаю координаты)
После этого передать клик по коодинатам, чтобы браузер показал другую вкладку.

Это сообщение отредактировал(а) lollollollol - 24.8.2013, 12:09

Poseidon

Дата 24.8.2013, 14:20 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Я бы экспериментировал не с фотошопом, а с самой программой. Для начала проверь получает ли программа в принципе твое сообщение (вдруг все-таки окно определил не правильно), а потом уже разбирайся с координатами. Получать Handle чужого окна можно прямо из своего кода без Spy++. Копай в сторону FindWindow.

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

lollollollol

Дата 24.8.2013, 15:15 (ссылка)

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

Загрузка ...

Опытный

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

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

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

Poseidon

Дата 24.8.2013, 18:18 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Значит не верно координаты передаешь. Откуда этот код?

Код


Coordinates := aX or (aY shl 16);

MSDN читал?

Цитата

xPos
Value of the low-order word of lParam. Specifies the x-coordinate of the cursor, relative to the upper-left corner of the client area.

yPos
Value of the high-order word of lParam. Specifies the y-coordinate of the cursor, relative to the upper-left corner of the client area.

Попробуй так

Код


procedure ClickByWindow(aHWindow : HWND; aX : Word; aY : Word);
var
  Msg: TMessage;
begin
  Msg.LParamLo:= aX;
  Msg.LParamHi:= aY;
  SendMessage(aHWindow, WM_LBUTTONDOWN, MK_LBUTTON, Msg.LParam);
  SendMessage(aHWindow, WM_LBUTTONUP, 0, Msg.LParam);
end;

Это сообщение отредактировал(а) Poseidon - 24.8.2013, 18:20

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Чучмек

Дата 24.8.2013, 19:27 (ссылка)

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

Загрузка ...

НЭТ БИЛЭТ

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

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

Если там,куда хочешь кликнуть, находится дочернее окно (button/edit/panel итп) то сообщение нужно слать ему, а не главному окну.

Добавлено через 13 минут и 5 секунд

Цитата(Poseidon @ 24.8.2013, 18:18

)

Значит не верно координаты передаешь. Откуда этот код?
Выделить всёкод Pascal/Delphi
1:

Coordinates := aX or (aY shl 16);

MSDN читал?
Цитата

xPos
Value of the low-order word of lParam. Specifies the x-coordinate of the cursor, relative to the upper-left corner of the client area.

yPos
Value of the high-order word of lParam. Specifies the y-coordinate of the cursor, relative to the upper-left corner of the client area.

Да все правильно здесь. Так и написано x - младшая часть, y - старшая.

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

умную мысль держи при себе, а дурной - поделись с другими

lollollollol

Дата 25.8.2013, 07:55 (ссылка)

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

Загрузка ...

Опытный

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

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

А как Windows тогда это делает?
Вот например делаю я клик по координатам 100,100, как windows определяет какое там дочернее окно?

lollollollol

Дата 25.8.2013, 08:37 (ссылка)

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

Загрузка ...

Опытный

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

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

т.е вопрос формулируется так:
1. Как можно получить хендл дочернего окна, по указаным координатам.
(неужели придёися перебирать все дочерние окна, и смотреть их позции? Мжет быть в системе есть функция готовая?)
2. Координаты нужно указывать относитьно рабочего стола(даже за педелами разрешения монитора?) или относительно основного окна?

Это сообщение отредактировал(а) lollollollol - 25.8.2013, 08:58

Чучмек

Дата 25.8.2013, 10:37 (ссылка)

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

Загрузка ...

НЭТ БИЛЭТ

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

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

Есть WindowFromPoint, но она работает только в пределах экрана.

Цитата(lollollollol @ 25.8.2013, 07:55

)

А как Windows тогда это делает?

А так и делает, какое окно сверху тому и шлет сообщение.

Цитата(lollollollol @ 25.8.2013, 08:37

)

неужели придёися перебирать все дочерние окна, и смотреть их позции

Да скорей всего. Но ничего страшного здесь нет.
Кроме того, если ты хочешь кликнуть по нарисованной кнопке на web странице (клик обрабатывается через javascript), то прежде нужно послать WM_MOUSEMOVE.

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

умную мысль держи при себе, а дурной - поделись с другими

Чучмек

Дата 25.8.2013, 12:28 (ссылка)

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

Загрузка ...

НЭТ БИЛЭТ

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

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

Код


type
  TEnumData = record
    x,
    y:integer;
    result:cardinal;
  end;
function enumCBFunc(hwnd:hwnd;var EnumData:TEnumData):BOOL;stdcall;
var
  rct:TRect;
begin
  GetWindowRect(hwnd,rct);
  if (rct.Top<=EnumData.y)  and
     (rct.Bottom>EnumData.y)and
     (rct.Left<=EnumData.x) and
     (rct.Right>EnumData.x) and
     (GetWindowLong(hwnd,GWL_STYLE) AND WS_VISIBLE <>0)then
  begin
    EnumData.result:=hwnd;
    result:=false;
  end else result:=true;
end;
function MyWindowFromPoint(Point: TPoint):cardinal;
var
  EnumData:TEnumData;
  hwnd:cardinal;
begin
  EnumData.x:=Point.X;
  EnumData.y:=Point.Y;
  hwnd:=0;//dword(-1);
  EnumData.result:=hwnd;
  EnumWindows(@enumCBFunc,integer(@EnumData));
  while EnumData.result <> hwnd do
    begin
    hwnd:=EnumData.result;
    EnumChildWindows(EnumData.result,@enumCBFunc,integer(@EnumData));
    end;
  result:=hwnd;
end;

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

умную мысль держи при себе, а дурной - поделись с другими

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