powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отловить момент нажатия мыши внезоны Visual Basic
9 сообщений из 9, страница 1 из 1
Отловить момент нажатия мыши внезоны Visual Basic
    #36630670
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И снова я с недетскими наивными вопросами.
На сей раз нужно узнать момент когда пользователь нажимает кнопку мыши вне зоны действия Visual Basic. Координаты есть. Нужно только сам процес нажатия.

Я видел несколько форумов, где все авторы вопросов получали такие ответы WH_MOUSE или одним словом SetCapture и отвечали спасибо. Я пробовал разбираться с SetCapture и зашел в тупик. Связался с хэнделами и ничего полезного так и не накопал. Также с скачаных примеров перехват клавиш работал только в зоне визуала. Реальных решений мне пока так и не показали.

Цель задачи:
Кликер
При нажатии на "Запись", записывает координаты мыши и должен зафиксировать также нажатия левой клавиши, также прописывается и времья которое истекло с момента последнего клика. "Плей" - все это действо симулировать. К настройкам доработал скорость плей режима, возможность редактирования отдельного шага, центрирование стартовой точки, и возможность масштаюирования.
Все функции в рабочем состоянии кроме отлова нажатия мыши.

с уважением Андрей
...
Рейтинг: 0 / 0
Отловить момент нажатия мыши внезоны Visual Basic
    #36631501
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

Public Function pvButton() As MouseButtonConstants
    Select Case True
        Case GetAsyncKeyState(vbKeyLButton) <  0 
            pvButton = vbLeftButton
        Case GetAsyncKeyState(vbKeyRButton) <  0 
            pvButton = vbRightButton
        Case GetAsyncKeyState(vbKeyMButton) <  0 
            pvButton = vbMiddleButton
    End Select
End Function
Это не перехват нажатия, а запрос состояния, который нужно делать по таймеру, самое простое, что можно сделать.
...
Рейтинг: 0 / 0
Отловить момент нажатия мыши внезоны Visual Basic
    #36632623
SashaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Отловить момент нажатия мыши внезоны Visual Basic
    #36634666
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Большое спасибо Antonariy.
Вы дали самый точный ответ и без применения DLL (который я с горем наковырял). Я просто удивляюсь Вашим знаниям. Вроде бы все просто. Меня направляли не раз на GetAsyncKeyState. А с английским никак, вот и не догнал что к чему.
...
Рейтинг: 0 / 0
Отловить момент нажатия мыши внезоны Visual Basic
    #36634680
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
добавлю почему я не доганял....

это Ваше
Public Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer


это, то что я находил много раз
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
проверка нажата ли клавиша

:)
...
Рейтинг: 0 / 0
Отловить момент нажатия мыши внезоны Visual Basic
    #36634688
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я в шоке! Это одно и тоже. Значит та функция и клавиатуру опрашивает и мышь.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Отловить момент нажатия мыши внезоны Visual Basic
    #37592086
утипут
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Андрей159,
можешь поделиться исходником? )
...
Рейтинг: 0 / 0
Отловить момент нажатия мыши внезоны Visual Basic
    #37592364
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Готовый проект ?
Нет.
Программа платная. Простых кликеров много и бесплатно. Мой кликер может на много больше. Описание здесь . И главное для любого программиста это сделать не трудно. Вариантов два: делаете себе сами или покупаете. Второе наверняка не для Вас, для этого есть другая аудитория

Если Вам нужен исходник примера как "Отловить момент нажатия мыши внезоны Visual Basic" то ответ здесь. Просто создайте таймер и экспериментируйте с данной функцией и все получится.
...
Рейтинг: 0 / 0
Отловить момент нажатия мыши внезоны Visual Basic
    #37593060
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Андрей159,

Мы становимся гуру куул...
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отловить момент нажатия мыши внезоны Visual Basic
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]