Получение Handle объектов под мышью

@NEO-55 · Регистрация: 19.02.2015

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

Здравствуйте, нужно получать динамически хендл объектов под мышью как своих так и чужих. API функция WindowFromPoint не дает желаемого результата, вообще не реагирует на движения мыши над объектами, выдает хендл студии или рабочего стола если студию свернуть и все

VB.NET
1
2
Declare Function WindowFromPoint Lib "user32.dll" (ByVal xPoint As Int32, ByVal yPoint As Int32) As Int32
Label1.Text = WindowFromPoint(MousePosition.X, MousePosition.Y)

в VB6 все прекрасно работает

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

Я как то неправильно объявляю функцию?

@NEO-55 · 27.02.2015, 21:28 **[ТС]**

тогда у меня перестает работать функция GetCursorPos значение X – 12ти значное число Y - 0

VB.NET
1
2
3
4
5
6
7
8
9
10
11
Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Int64
Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As POINTAPI) As Int64
 
Structure POINTAPI
        Public X As Int64
        Public Y As Int64
End Structure
 
Dim Mouse As POINTAPI 
Dim H As Int64 
H = WindowFromPoint(Mouse)

@tezaurismosis · 27.02.2015, 21:42

Сообщение от NEO-55

Работает как на x86 так и на x64

В итоге ничего не поменялось, но всё заработало. Как так?

Добавлено через 53 секунды
Ан нет, поменялось. Не буду себе больше мозги заморачивать.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .