Как отследить события чужого окна?

@nigri_lupus · Регистрация: 14.12.2020

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Помогите, пожалуйста в решении следующей задачи...
Есть окно цель которого "следить" за неким участком экрана, а точнее за тем, что происходит под ним.. .
Допустим, что окно следит за Paint-ом, браузером или word-ом и пользователь двигает(или скролит) этот самый Paint, word или браузер.
Окно должно двигаться вслед за действиями пользователя.
Т.е. окно должно как бы приклеится к "отслеживаемой поверхности".
Сделать это можно двумя способами:
Первый, отслеживать и анализировать графические изменения на экране.
Теоретически есть и второй способ.... (вероятно, более простой, если знать как это делать)
Определить hWnd отслеживаемого окна(находящегося под следящим окном) и отслеживать его события.
Если, не трудно подскажите, пожалуйста как это делается, а точнее...
Как получить hWnd окна находящегося под следящим окном?
И как отследить события окна по hWnd?
Заранее, Спасибо!

@nigri_lupus · 13.04.2021, 15:29 **[ТС]**

Сообщение от Pro_grammer

Верхнее видимое окно, выше уже писал об этой функции.

Спасибо, я видать пропустил со слепых глаз.
Pro_grammer,

Сообщение от nigri_lupus

Кстати, ( прошу прощения за небольшой офтоп)... Можно ли сделать скрин того, что под окном, не убирая при этом само окно с экрана?

@Pro_grammer · 13.04.2021, 17:40

Сообщение от nigri_lupus

Можно ли сделать скрин того, что под окном, не убирая при этом само окно с экрана?

Можно, если знаешь HWND нужного окна.
Запускаем калькулятор и скрываем его.
Выполняем этот код:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 Procedure MakeWinScreenshot(ImageNr,hWnd,Width,Height) 
   hImage = CreateImage(ImageNr,Width,Height) 
   hDC = StartDrawing(ImageOutput(ImageNr)) 
      BitBlt_(hDC,0,0,Width,Height,GetDC_(hWnd),0,0,#SRCCOPY) 
   StopDrawing() 
   ProcedureReturn hImage 
EndProcedure 
 
OpenWindow(1,0,0,300,300,"",#PB_Window_SystemMenu|#PB_Window_Invisible|#PB_Window_ScreenCentered) 
  hShotWindow = FindWindow_(0,"Калькулятор")   ; Тут заголовок нужного окна!
  If hShotWindow 
    hWinBmp  = MakeWinScreenshot(1,hShotWindow,300,300) 
    ImageGadget(1,0,0,300,300,hWinBmp) 
  EndIf 
 
HideWindow(1,0) 
 
Repeat 
  Select WaitWindowEvent() 
    Case #PB_Event_CloseWindow : End 
  EndSelect 
ForEver

Видим скрин скрытого окна.

@locm · 13.04.2021, 18:11

Сообщение от Pro_grammer

Видим скрин свёрнутого окна.

Скрин получим только есть калькулятор развернут, но его закрывают другие окна.
Если свернуть, скрина нет.

@Pro_grammer · 13.04.2021, 18:25

Сообщение от locm

только есть калькулятор развернут, но его закрывают другие окна.

Ну так то нам это и нужно!

@nigri_lupus · 17.04.2021, 16:42 **[ТС]**

Сообщение от Pro_grammer

Ну так то нам это и нужно!

Pro_grammer, Спасибо. Действительно полезно будет.
Заранее прошу прощения за еще один глупый вопрос....
Как правильно пользоваться функцией WindowFromPoint_, точнее как она пишется?
Почитал по ней справку, вроде всё понятно. (так казалось). Попробовал написать малюсенький кодик определяющий клик ЛКМ в любой точке экрана. Вроде бы и задача проще не придумаешь, а вот не получается, вероятно из-за неправильной формы записи:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
p.POINT
hwnd.i=-1
OpenWindow(0, 0, 0, 220, 100, "Пример...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
StickyWindow(0, 1)
flag.i = GetAsyncKeyState_(#VK_LBUTTON)
 
Repeat
  Event = WindowEvent()
  If flag<>GetAsyncKeyState_(#VK_LBUTTON)
    GetCursorPos_(@p)
    If Not flag
      Debug "Нажал"
      Debug WindowFromPoint_(p)
      hwnd = WindowFromPoint_(p)
    Else
      Debug "Отпустил"
      If hwnd = WindowFromPoint_(p)
        Debug "CLICK"
      EndIf
      hwnd = -1
    EndIf
    flag=GetAsyncKeyState_(#VK_LBUTTON)
  EndIf
  
Until Event = #PB_Event_CloseWindow

Что не так?

@Pro_grammer · 17.04.2021, 17:46

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
p.POINT
hwnd.i=-1
OpenWindow(0, 0, 0, 220, 100, "Пример...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
StickyWindow(0, 1)
flag.i = GetAsyncKeyState_(#VK_LBUTTON)
 
Repeat
  Event = WindowEvent()
  If flag<>GetAsyncKeyState_(#VK_LBUTTON)
    GetCursorPos_(p)
    If Not flag
      Debug "Нажал"
      Debug WindowFromPoint_(p\x|p\y<<32)
      hwnd = WindowFromPoint_(p\x|p\y<<32)
    Else
      Debug "Отпустил"
      If hwnd = WindowFromPoint_(p\x|p\y<<32)
        Debug "CLICK"
      EndIf
      hwnd = -1
    EndIf
    flag=GetAsyncKeyState_(#VK_LBUTTON)
  EndIf
  
Until Event = #PB_Event_CloseWindow

@nigri_lupus · 17.04.2021, 18:56 **[ТС]**

Pro_grammer, простите за тупость. Если можете, объясните, пожалуйста кусок строчки

PureBasic
1
p\x|p\y<<32

Ну, не могу я понять, что это такое...

Вроде бы параметр функции - структура POINT, но почему не P, а "p\x|p\y<<32"????

@Pro_grammer · 17.04.2021, 20:14

Сообщение от nigri_lupus

p\x|p\y<<32

WindowFromPoint в качестве аргумента принимает структуру, которая состоит из 2-х чисел x и y , каждое по 4 байта.
мы соединяем эти 2 числа методом побитового ИЛИ со сдвигом на 32 (4*8) бита, получается как бы одно записано сразу за другим.
Потренируйся :

PureBasic
1
2
3
4
5
  a.w = %1000 | %0101 
Debug Bin(a) ; смешались 
 
a.w = %1000 | %0101<<4
Debug Bin(a) ; теперь одно за другим

@Замабувараев · 18.04.2021, 08:47

Не по теме:

Сообщение от Pro_grammer

(p\x|p\y<<32)

Лучше переходите на Си.

@Pro_grammer · 18.04.2021, 12:14

Сообщение от Замабувараев

Лучше переходите на Си.

Наверняка User32.dll написан на Cи, так что чему удивляться?
Есть ещё такой вариант:

PureBasic
1
WindowFromPoint_(PeekQ(@p))

Так тоже будет работать.

@nigri_lupus · 18.04.2021, 15:52 **[ТС]**

Сообщение от Замабувараев

Лучше переходите на Си.

Ничего против С не имею, но тут возникнет целая куча мелких проблем....
1. Пока я освою синтаксис С, точнее даже не синтаксис, а названия его функций и операторов меня на форуме либо проклянут либо забанят за кучу тупых вопросов

2. С бывает разных версий... и на какую переходить?
3. У С есть два небольших для большинства, но существенных для меня недостатка...
3.1. Объявление библиотек(h - файлов) очень весело когда не знаешь ни названия команды ни в где её искать. Забыл например подключить математическую библиотеку и сиди думай, почему у тебя у тебя строчка а=sin(b) ошибку вызывает, а если это не математическая библиотека, а что-то посложнее...
3.2 Насколько я помню, после компиляции на С пользователю нужно передавать весь пакет файлов(библиотек и т.д) иначе ехе у него работать не будет. Это не всегда хорошо.(правда слышал, что это можно задать при компиляции, но точно не знаю)
3.3. Вам покажется совсем уж смешным, но у PB неплохой РУССКИЙ Help. Ключевое РУССКИЙ.
4. И если уж переходить на С, сначала надо дописать то, что начал....Переводить с языка на язык...ухххх....я пробовал...у меня часть того, что я сейчас пишу была написана мною же толи на VB 2008, толи на VB 2010...(давно было дело) Попытался перевести на PB - пришлось писать заново.
Кстати, С и WinApi это же по сути одно и тоже? Ну точнее, WinApi это кусочек из С...верно?

@Замабувараев · 18.04.2021, 15:57

Сообщение от nigri_lupus

Ничего против С не имею, но тут возникнет целая куча мелких проблем....

Си — это не волшебная таблетка, от смены названия языка и появления точек с запятой в конце строки проблема не решится.
Я имею ввиду, что конструкции вроде палочек и двойных знаков меньше — это ASCII‐арт и псевдографика в коде, принятая в Си, в то время как в бейсике принят verbose синтаксис.

@nigri_lupus · 18.04.2021, 16:05 **[ТС]**

Pro_grammer, Хотите посмеяться?

Сообщение от Pro_grammer

1
WindowFromPoint_(PeekQ(@p))
Так тоже будет работать.

Вот теперь я понял

p\x|p\y<<32 = PeekQ(@p)
PeekQ - Читает значение типа quad из памяти по указанному адресу.
@p - Адрес структуры Р
т.е. когда мы пишем p\x|p\y<<32, то получаем значение ВСЕЙ структуры P

@Замабувараев · 18.04.2021, 16:11

Сообщение от Pro_grammer

WindowFromPoint в качестве аргумента принимает структуру, которая состоит из 2-х чисел x и y , каждое по 4 байта.
мы соединяем эти 2 числа методом побитового ИЛИ со сдвигом на 32 (4*8) бита, получается как бы одно записано сразу за другим.

Зачем так делать? Почему нельзя сразу передать туда переменную типа структуры?

@The trick · 18.04.2021, 16:12

Сообщение от Замабувараев

Зачем так делать? Почему нельзя сразу передать туда переменную типа структуры?

В PB нельзя передавать структуры по значению.

@nigri_lupus · 18.04.2021, 16:18 **[ТС]**

Сообщение от Замабувараев

Зачем так делать? Почему нельзя сразу передать туда переменную типа структуры?

Вот это и вызывало у меня непонимание.... почему WindowFromPoint_(p\x|p\y<<32), а не WindowFromPoint_(p) и если и так, то тогда что значит p\x|p\y<<32? Теперь понял.

@Pro_grammer · 18.04.2021, 17:20

Сообщение от Замабувараев

Зачем так делать?

Знаете как это сделано в VB6?

Visual Basic
1
Private Declare Function WindowFromPoint Lib "user32.dll" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

В старых версиях PureBasic, как сейчас в VB6, WindowFromPoint не по феншую принимал 2 параметра, хотя в справке MSDN описан один - POINT Point.
Но с появлением x64 в PB такой способ передачи стал невозможен и разработчик был вынужден сделать как в справке. Но костыль допилили не до конца

Хотя я не понимаю, почему. Как и FreeBasic не работает напрямую с системными библиотекми, а через обёртку своих библиотек. Но в FB сразу сделано как надо библиотека libuser32.dll.a, тут тоже при желании можно было легко подправить с помощью того же PeekQ.

@The trick · 18.04.2021, 17:25

Сообщение от Pro_grammer

В старых версиях PureBasic, как сейчас в VB6, WindowFromPoint не по феншую принимал 2 параметра, хотя в справке MSDN описан один - POINT Point.

Еще раз, в PB как и в VB6 нельзя передавать структуры по значению. В MSDN все верно.

@Замабувараев · 18.04.2021, 17:33

Сообщение от Pro_grammer

FreeBasic не работает напрямую с системными библиотекми

Фрибейсик не работает с библиотеками, он даже не работает даже с со своими библиотеками времени выполнения, ему вообще нет дела до библиотек. Фрибейсик лишь знает, что есть продекларированная в заголовочнике функция, для её вызова нужно выполнить несколько инструкций push и один call, ничего больше он о функции не знает и знать ему не надо.
С библиотеками работает компоновщик, это ему нужны каноніческие имена функций, ординалы, порядок и всякие __imp_.

@Pro_grammer · 18.04.2021, 18:10

Сообщение от The trick

В MSDN все верно.

Да в этом я не сомневаюсь.

Сообщение от Замабувараев

С библиотеками работает компоновщик

Да не суть, что с чем работает, все они работают над созданием exe в целом.

Если я не понятно выражаюсь, то вот как можно было например сделать такой вызов как в FB WindowFromPoint(p) :

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Procedure WindowFromPoint(*P.POINT)
 ProcedureReturn WindowFromPoint_(PeekQ(*P))
EndProcedure
 
p.POINT
hwnd.i=-1
OpenWindow(0, 0, 0, 220, 100, "Пример...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
StickyWindow(0, 1)
flag.i = GetAsyncKeyState_(#VK_LBUTTON)
 
Repeat
  Event = WindowEvent()
  If flag<>GetAsyncKeyState_(#VK_LBUTTON)
    GetCursorPos_(p)
    If Not flag
      Debug "Нажал"
      Debug WindowFromPoint(p) 
      hwnd = WindowFromPoint(p) 
    Else
      Debug "Отпустил"
      If hwnd = WindowFromPoint(p) 
        Debug "CLICK"
      EndIf
      hwnd = -1
    EndIf
    flag=GetAsyncKeyState_(#VK_LBUTTON)
  EndIf
  
Until Event = #PB_Event_CloseWindow

т.е. подобие моей процедуры

PureBasic
1
2
3
Procedure WindowFromPoint(*P.POINT)
 ProcedureReturn WindowFromPoint_(PeekQ(*P))
EndProcedure

написать в свою встроенную библиотеку PureBasic.

Новые блоги и статьи Все статьи Все блоги /
Программное добавление префикса в нумерацию документов Maks 27.10.2026 Задача: Программно добавить префикс в нумерацию документов в самописной конфигурации на БСП (помощь начинающему коллеге). Решение: В модуле объекта документа размещен следующий код: Процедура. . .	После закрытия оутлука продолжает висеть процесс в диспетчере задач Maks 27.10.2026 С недавнего времени в продакшене возникла проблема: при закрытии оутлука в диспетчере задач продолжал висеть процесс outlook. exe. Проблема возникла после установки MS Office 2021 LTSC на машинах, под. . .	Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный AmbA 26.10.2026 Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. https:/ / youtu. be/ VpfFZSUDGnQ. . .	Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .

@nigri_lupus 3 / 3 / 0 Регистрация: 14.12.2020 Сообщений: 171

	Как отследить события чужого окна? 06.04.2021, 19:22. Показов 8554. Ответов 53 Метки нет (Все метки) Здравствуйте! Помогите, пожалуйста в решении следующей задачи... Есть окно цель которого "следить" за неким участком экрана, а точнее за тем, что происходит под ним.. . Допустим, что окно следит за Paint-ом, браузером или word-ом и пользователь двигает(или скролит) этот самый Paint, word или браузер. Окно должно двигаться вслед за действиями пользователя. Т.е. окно должно как бы приклеится к "отслеживаемой поверхности". Сделать это можно двумя способами: Первый, отслеживать и анализировать графические изменения на экране. Теоретически есть и второй способ.... (вероятно, более простой, если знать как это делать) Определить hWnd отслеживаемого окна(находящегося под следящим окном) и отслеживать его события. Если, не трудно подскажите, пожалуйста как это делается, а точнее... Как получить hWnd окна находящегося под следящим окном? И как отследить события окна по hWnd? Заранее, Спасибо! 0