Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отловить момент нажатия мыши внезоны Visual Basic / 9 сообщений из 9, страница 1 из 1
16.05.2010, 16:34
    #36630670
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отловить момент нажатия мыши внезоны Visual Basic
И снова я с недетскими наивными вопросами.
На сей раз нужно узнать момент когда пользователь нажимает кнопку мыши вне зоны действия Visual Basic. Координаты есть. Нужно только сам процес нажатия.

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

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

с уважением Андрей
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2010, 10:43
    #36631501
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отловить момент нажатия мыши внезоны Visual Basic
Код: 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
| Ответить | Цитировать | Написать  
17.05.2010, 17:16
    #36632623
SashaM
SashaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отловить момент нажатия мыши внезоны Visual Basic
тынц
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.05.2010, 17:49
    #36634666
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отловить момент нажатия мыши внезоны Visual Basic
Большое спасибо Antonariy.
Вы дали самый точный ответ и без применения DLL (который я с горем наковырял). Я просто удивляюсь Вашим знаниям. Вроде бы все просто. Меня направляли не раз на GetAsyncKeyState. А с английским никак, вот и не догнал что к чему.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.05.2010, 17:56
    #36634680
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отловить момент нажатия мыши внезоны Visual Basic
добавлю почему я не доганял....

это Ваше
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
| Ответить | Цитировать | Написать  
18.05.2010, 17:59
    #36634688
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отловить момент нажатия мыши внезоны Visual Basic
я в шоке! Это одно и тоже. Значит та функция и клавиатуру опрашивает и мышь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
24.12.2011, 19:19
    #37592086
утипут
утипут
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отловить момент нажатия мыши внезоны Visual Basic
Андрей159,
можешь поделиться исходником? )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.12.2011, 01:30
    #37592364
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отловить момент нажатия мыши внезоны Visual Basic
Готовый проект ?
Нет.
Программа платная. Простых кликеров много и бесплатно. Мой кликер может на много больше. Описание здесь . И главное для любого программиста это сделать не трудно. Вариантов два: делаете себе сами или покупаете. Второе наверняка не для Вас, для этого есть другая аудитория

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

Мы становимся гуру куул...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отловить момент нажатия мыши внезоны Visual Basic / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 237ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2158195]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 62ms
get topic data:
 21ms
get forum data:
 3ms
get page messages:
 92ms
get tp. blocked users:
 2ms
others: 27ms
total:  237ms
x
x
Закрыть


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