Клик мышью в свернутом окне ПВ

[pw.assistant]

Иногда приходится сталкиваться с ситуацией, когда нужно что-то сделать, а найти инжект очень сложно. Например - тот же крафт. Никак не получается программно нажать на нужные пункты, что бы при крафте не вышибло клиент. В этом случае помогла бы эмуляция нажатия мышки. Стандартные SendMessage, PostMessage не проходят в свернутое окно. Точнее ПВ на них не реагирует. mouse_event работает только с экраном, там нет привязки к окну и как результат, так же в свернутом окне работать не будет. Может знает кто как средствами ПВ щелкнуть мышкой по заданым координатам?

[Kyroki]

Цитата: Стандартные SendMessage, PostMessage не проходят в свернутое окно

Они по идее должны работать, но окно должно быть размороженным

[Kitsune]

Unfreeze + PostMessage всегда работали.

[Ginrey]

если именно для PW, то вроде работа с GUI всегда заканчивалась хорошо, все нажатия и тд

[pw.assistant]

хм... координаты же в PostMessage задаются относительно окна? 0, 0 - это левый верхний угол окна?

PostMessage(hWnd, WM_LBUTTONUP, 0, MAKELPARAM(Point.x, Point.y));
PostMessage(hWnd, WM_LBUTTONDOWN, 0, MAKELPARAM(Point.x, Point.y));

Добавлено через 8 минут
хм... действительно работает, но не со всем, например на сундук не нажать. Это потому что сундук является контролом и нужен его handle? у ПВшних элементов тоже есть свои handle которые ловят PostMessage?

[Smertig]

Нет, пвшные элементы - это картинки, и все нажатия обрабатываются собственным движком

[pw.assistant]

Вот. Как нажать на них мышкой? Должен же быть инжект или что-то подобное?

[Desmond Hume]

Заправляем штаны и переходим в таком случае на UOPilot, он прекрасно кликает.

[Kitsune]

Цитата: Вот. Как нажать на них мышкой? Должен же быть инжект или что-то подобное?

Нет, handle и прочее нужно только если нажимать на элементы управления через инжект.
Нужно просто навести мышку на нужные координаты и послать сообщение в окно с типом левая кнопка нажата.

[pw.assistant]

Да, действительно было дело в смещении на заголовок и размер бордюров. Я просто не попадал по координатам. PostMessage работает. Спасибо за помощь! Сам бы еще долго репу чесал - думал бы что не работает.

Добавлено через 50 минут
Может кому пригодится

Получение положения и размера рабочей области открытого окна ПВ

function GetWorkRect(hWin: HWND): TRect;
var
  wr, cr: TRect;
  bw: integer;
begin
  GetWindowRect(hWin, wr);
  GetClientRect(hWindow, cr);
  bw := (wr.Width - cr.Width) div 2;
  Result := Rect(wr.Left + bw, wr.Bottom - bw - cr.Height, wr.Right - bw, wr.Bottom - bw);
end;

получение координаты относительно открытого окна ПВ

function WinMousePos(hWin: HWND): TPoint;
var
  pt: TPoint;
  r: TRect;
begin
   getcursorpos(pt);
   r := GetWorkRect(hWin);
   Result.X := (pt.X - R.Left);
   Result.Y := (pt.Y - R.Top);
end;

эмуляция нажатия на левую кнопку мышки

procedure DoMouseDown(hWin: HWND; hProc: THandle; MousePos: TPoint);
begin
  unfreeze(hProc);
  PostMessage(hWin, WM_LBUTTONDOWN, 0, MAKELPARAM(MousePos.x, MousePos.y));
  PostMessage(hWin, WM_LBUTTONUP, 0, MAKELPARAM(MousePos.x, MousePos.y));
end;

размораживание окна

procedure unfreeze(hProc: THandle);
const
  unfreeze_addr = $C9EC00; // для руоф
var
  BytesCountOfWrite: NativeUInt;
  unfreeze_flag: Byte;
begin
   unfreeze_flag := 1;
   WriteProcessMemory(hProc, ptr(unfreeze_addr), @unfreeze_flag, 1, BytesCountOfWrite); // unfreeze
end;