Как сымитировать клик левой кнопкой мыши (API?) / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как сымитировать клик левой кнопкой мыши (API?)

25 сообщений из 79, страница 1 из 4

все

Как сымитировать клик левой кнопкой мыши (API?)

#33849983

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

VB6: У меня есть координаты X и Y. Хочу сделать так, чтобы контрол (MSFlexGrid в данном случае) решил, что юзер кликнул в это место левой кнопкой мыши.

Насколько я понимаю, стандартными средствами VB этого сделать нельзя - нужно как-то из VB послать сообщение через API - но я не силен в API, подскажите, плиз.

...

Рейтинг:

0 / 0

13.07.2006, 10:27

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#33850034

Melkiades

Участник

Откуда: Москва

Сообщения: 1 459

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

'Before you start this program, I suggest you save everything that wasn't saved yet.
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Private Sub Form_Activate()
    Do
        'Simulate a mouseclick on the cursor's position
        mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP,  0 &,  0 &, cButt, dwEI
        DoEvents
    Loop
End Sub

...

Рейтинг:

0 / 0

13.07.2006, 10:39

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#33850162

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Работает. Огромное спасибо.

...

Рейтинг:

0 / 0

13.07.2006, 11:07

| Ответить | Цитировать | Написать

Период между сообщениями больше года.

Как сымитировать клик левой кнопкой мыши (API?)

#37784537

катастрофа

Участник

Сообщения: 2 519

Рейтинг: 0 / 0

подскажите пжл, а как будет двойной клик мышью по полю в Ворде?

...

Рейтинг:

0 / 0

06.05.2012, 15:23

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37784635

down up down

Гость

down
up
down
три подряд

...

Рейтинг:

0 / 0

06.05.2012, 17:42

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37784639

катастрофа

Участник

Сообщения: 2 519

Рейтинг: 0 / 0

down up down, а зачем аж три, двух не достаточно?
можно весь код привести?

...

Рейтинг:

0 / 0

06.05.2012, 17:51

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37784688

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

катастрофаdown up down, а зачем аж три, двух не достаточно?
можно весь код привести?Сказано - три - значит, три, три и три...
Попробовать (не тереть!) запустить код - тяжело? Затем - немного разобраться, с помощью дебаггера, почему именно так требуется...

...

Рейтинг:

0 / 0

06.05.2012, 19:51

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37784736

down up down

Гость

ну а сколько?
нажали
отпустили
нажали
отпустили
если это делать достаточно быстро получится двойной клик
на самом деле хватает первых трех последий не нужен для дабл клика
но вот потом может все равно понадобится четвертый up для правильного состояния мыши
не помню
надо проверить хватит трех или четвертый тоже нужен

...

Рейтинг:

0 / 0

06.05.2012, 21:26

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37784951

катастрофа

Участник

Сообщения: 2 519

Рейтинг: 0 / 0

down up down, проверить - не тяжело, ч пробую в лоб, так:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.

Option Explicit

Private Declare Sub mouse_event Lib "user32" ( _
                                ByVal dwFlags As Long, _
                                ByVal dx As Long, _
                                ByVal dy As Long, _
                                ByVal cButtons As Long, _
                                ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
'

Sub SelectFormFields()

'предполагается, что поле FormFields в Word уже выделено
    mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&
    mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
    'mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, cButtons, dwExtraInfo
    mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&
    mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
    mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&
    mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&

End Sub

ролучаю отлуп, как нужно, подскажите пжл

...

Рейтинг:

0 / 0

07.05.2012, 08:00

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37784970

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

а с чего ты решил, что оно не работает?

...

Рейтинг:

0 / 0

07.05.2012, 09:17

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37784976

катастрофа

Участник

Сообщения: 2 519

Рейтинг: 0 / 0

Shocker.Pro,
не созерцаю картинку (она в файле)

...

Рейтинг:

0 / 0

07.05.2012, 09:38

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37785034

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

А что, если мышью тыкать в левый верхний угол экрана появляется такая картинка?

...

Рейтинг:

0 / 0

07.05.2012, 11:23

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37785056

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Shocker.ProА что, если мышью тыкать в левый верхний угол экрана появляется такая картинка?хотя нет, сорри, я наврал, по умолчанию как раз координаты относительные...

...

Рейтинг:

0 / 0

07.05.2012, 11:49

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37785061

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

У меня работает.

...

Рейтинг:

0 / 0

07.05.2012, 11:54

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37785065

катастрофа

Участник

Сообщения: 2 519

Рейтинг: 0 / 0

Shocker.ProУ меня работает.везёт же людям, то есть поле выделили и запустили макрос и работает? - верится с трудом!

...

Рейтинг:

0 / 0

07.05.2012, 12:01

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37785078

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

катастрофаShocker.ProУ меня работает.везёт же людям, то есть поле выделили и запустили макрос и работает? - верится с трудом!да, именно так

...

Рейтинг:

0 / 0

07.05.2012, 12:24

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37785079

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Shocker.Proкатастрофапропущено...
везёт же людям, то есть поле выделили и запустили макрос и работает? - верится с трудом!да, именно таксобственно поле и выделять-то необязательно, двойной клик он и так его выделит

...

Рейтинг:

0 / 0

07.05.2012, 12:25

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37785096

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Shocker.ProShocker.Proпропущено...
да, именно таксобственно поле и выделять-то необязательно, двойной клик он и так его выделитда и тройной клик там не нужен, двойного достаточно

...

Рейтинг:

0 / 0

07.05.2012, 12:40

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37785188

катастрофа

Участник

Сообщения: 2 519

Рейтинг: 0 / 0

Shocker.Pro, так делаю, чтобы по одному клику, чтобы открывало, то есть один клик-поле выделяется его величеством Ворд'ом, а далее вступает человек говорит, что после события - выделения поля тынцнуть ещё раз, ОК?

...

Рейтинг:

0 / 0

07.05.2012, 14:13

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37785191

катастрофа

Участник

Сообщения: 2 519

Рейтинг: 0 / 0

просмотрел 12519511 , ОК проверяю

...

Рейтинг:

0 / 0

07.05.2012, 14:14

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37785207

катастрофа

Участник

Сообщения: 2 519

Рейтинг: 0 / 0

попробовал, не пашет, вот ересь! ну не знаю уже что делать, нету кина как Вы этого добились?

...

Рейтинг:

0 / 0

07.05.2012, 14:32

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37785367

down up down

Гость

прежде чем жать кнопки надо мышь в нужную точку экрана поместить
SetCursor ?, ?
если координаты мыши и точки клика не совпадают работать не будет

это проверено на SendInput (а она скорее всего вызывается внутри mouse_event)

вообще тут полно примеров темы которых BelowZero создал про имитацию нажатий

...

Рейтинг:

0 / 0

07.05.2012, 17:19

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37785368

катастрофа

Участник

Сообщения: 2 519

Рейтинг: 0 / 0

down up down,
>прежде чем жать кнопки надо мышь в нужную точку экрана поместить
так когда на поле один раз кликнул, оно и выделилось

...

Рейтинг:

0 / 0

07.05.2012, 17:21

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37785373

down up down

Гость

SetCursor
mouse down
mouse up
mouse down
mouse up

...

Рейтинг:

0 / 0

07.05.2012, 17:25

| Ответить | Цитировать | Написать

Как сымитировать клик левой кнопкой мыши (API?)

#37785380

down up down

Гость

вот здесь есть готовый пример как используя
SendInput нажать кнопку клавы или кнопку мыши
http://www.sql.ru/forum/actualthread.aspx?tid=904988&pg=1&mid=11800044#11800044
правда в примерах одинарный клик

...

Рейтинг:

0 / 0

07.05.2012, 17:31

| Ответить | Цитировать | Написать

25 сообщений из 79, страница 1 из 4

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как сымитировать клик левой кнопкой мыши (API?)

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&fpage=79&tid=2157810]:	0ms
get settings:	8ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	27ms
get topic data:	11ms
get forum data:	2ms
get page messages:	74ms
get tp. blocked users:	1ms
others:	317ms

total:	458ms