Как сделать клик вне своего приложения?

[Борис]

Возникла такая проблема: мне из меей программы необходимо сделать клик в окне другой программы по заранее определенным координатам мыши. Проблема в том, что клик необходимо сделать программно, а не мышью непосредственно (т.е. без перемещения мыши в нужную точку).

Может кто подскажет, какими АPI функциями можно воспользоваться для этой цели?

Вообще какие АPI функции задействованы в тот момент, когда происходит клик мышью по какому-либо окну или ярлыку?

[A.A.Z.]

Код: Выделить всё

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 Click()
mouse_event 2 OR 4, X, Y, cbutt, dwEI
End Sub

[Борис]

Код: Выделить всё

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 Click()
mouse_event 2 OR 4, X, Y, cbutt, dwEI
End Sub

Огромное спасибо!
Мои подозрения относительно данной функции, т.е. mouse_event, подтвердились. К сожалению, в доступных мне источниках не удалось найти описание этой функции, а также передаваемых ей параметров. Поэтому и пошел с моим вопросиком на форум.

Не сочтите за труд, уважаемый А.А.Z.. сообщить мне эту информацию, если, конечно Вы ей располагаете и имеете на то желание.

[Tarik]

Объявление функции

Код: Выделить всё

Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)


Описание параметров:

· dwFlags
A set of flag bits that specify various aspects of mouse motion and button clicking. The bits in this parameter can be any reasonable combination of the following values:
MOUSEEVENTF_ABSOLUTE
Specifies that the dx and dy parameters contain normalized absolute coordinates. If not set, those parameters contain relative data: the change in position since the last reported position. This flag can be set, or not set, regardless of what kind of mouse or mouse-like device, if any, is connected to the system. For further information about relative mouse motion, see the following Remarks section.
MOUSEEVENTF_MOVE
Specifies that movement occurred.
MOUSEEVENTF_LEFTDOWN
Specifies that the left button changed to down.
MOUSEEVENTF_LEFTUP
Specifies that the left button changed to up.
MOUSEEVENTF_RIGHTDOWN
Specifies that the right button changed to down.
MOUSEEVENTF_RIGHTUP
Specifies that the right button changed to up.
MOUSEEVENTF_MIDDLEDOWN
Specifies that the middle button changed to down.
MOUSEEVENTF_MIDDLEUP
Specifies that the middle button changed to up.
MOUSEEVENTF_WHEEL
Windows NT only: Specifies that the wheel has been moved, if the mouse has a wheel. The amount of movement is given in dwData

The flag bits that specify mouse button status are set to indicate changes in status, not ongoing conditions. For example, if the left mouse button is pressed and held down, MOUSEEVENTF_LEFTDOWN is set when the left button is first pressed, but not for subsequent motions. Similarly, MOUSEEVENTF_LEFTUP is set only when the button is first released.

· dx
Specifies the mouse’s absolute position along the x-axis or its amount of motion since the last mouse event was generated, depending on the setting of MOUSEEVENTF_ABSOLUTE. Absolute data is given as the mouse’s actual x-coordinate; relative data is given as the number of mickeys moved. A mickey is the amount that a mouse has to move for it to report that it has moved.

· dy
Specifies the mouse’s absolute position along the y-axis or its amount of motion since the last mouse event was generated, depending on the setting of MOUSEEVENTF_ABSOLUTE. Absolute data is given as the mouse’s actual y-coordinate; relative data is given as the number of mickeys moved.

· dwData
If dwFlags is MOUSEEVENTF_WHEEL, then dwData specifies the amount of wheel movement. A positive value indicates that the wheel was rotated forward, away from the user; a negative value indicates that the wheel was rotated backward, toward the user. One wheel click is defined as WHEEL_DELTA, which is 120.
If dwFlags is not MOUSEEVENTF_WHEEL, then dwData should be zero.

· dwExtraInfo
Specifies an additional 32-bit value associated with the mouse event. An application calls GetMessageExtraInfo to obtain this extra information.

Надеюсь, поможет

[A.A.Z.]

К сожалению, в доступных мне источниках не удалось найти описание этой функции, а также передаваемых ей параметров.

Источники должны быть хорошими!

[Борис]

Надеюсь, поможет

Конечно поможет. попробовал применить эту Sub - она работает, но только в том случае, если предварительно в нужную позицию установить курсор мыши (программно задать координаты через другую API). Если этого не сделать, то клик не срабатывает, даже при том, что вызывая Sub я передаю в нее координаты.

Но я сразу не сообразил, что это Sub. А раз так, то она не возвращает параметров. А у меня нарисовалась еще одна проблема - как перехватить клик вне своей программы?

Иными словами, я перемещаю мышь и одновременно отслеживаю ее координаты. Но в какой-то момент мне нужно прекратить отслеживание координат, например, сделав клик. А вот как распознать - был ли этот клик сделан, или еще нет?

Помогите!!! Век не забуду!!!
Заранее благодарю!

[A.A.Z.]

Не знаю... Пытался через хук, VB вылетел с визгом...
Может у вас получится? Попробуйте SetWindowsHookEx с константой WH_MOUSE и все в этом роде...

[Борис]

Источники должны быть хорошими!

В интернете рылся на многих сайтах, в том числе и с некоторыми оттуда работал. Но иногда доступ к информации не получался (например, возникали ошибки "неожиданный конец архива"), а в других - того, что надо, небыло.

[A.A.Z.]

Не, с отслеживанием - это, я думаю, точно через хук надо делать...
GSerg, где ты??

[GSerg]

Да я тут, в общем-то
Просто я уже устал говорить, что глобальный хук требует размещения callback в native dll, забейте на это дело...

[alibek]

GSerg, так ведь ты шаман :) В тебя все верят :))
Вот сейчас придет добрый дядя GSerg и наколдует :)

[GSerg]

Неее, колдовать компилятор dll я не буду, у меня на это delphi есть

[Борис]

Неее, колдовать компилятор dll я не буду, у меня на это delphi есть

Прошу прощения, но я что-то не понял - про что речь?
Ведь если Windows отслеживает клики, значит он как-то это делает! Ведь если я могу определить координаты мыши и послать по ним клик (спасибо за помошь с mouse_event!), то почему не могу и перехватить такой клик или некое системное сообщение о нем?! Ведь, повторюсь, Windows это делает, когда, например, открывает какую-либо папку (директорию). Мне же, в сущности, нужно сделать то же самое. Вот только как - я пока не знаю.

Может, кто-то знает и подскажет?

Спасибо всем, кто пытается мне помочь и заранее благодарен тем, кто то сможет помочь!

[SeRRg]

Ну-ну-ну... Ты С с VB не путай.
Теоретически (и практически) в Виндовсе 98 можно поставить глобальный хук на мышу и клаву за счет какого-то там глюка.
(если ошибся - Шаман поправит )
Но в других это не прокатывает. А так, как сказал GSerg, требуется отдельная native dll'ка,
которую VB сделать ну никак не может. Пиши ее на другом языке.
Понятно объяснил???

[GSerg]

В общем, это

Винда-то все клики видит. Видит она их потому, что ей драйвер мыши в system message queue постит сообщения. Винда зырит, какое окно расположено в данной точке и перемещает данное сообщение из system message queue в thread message queue данного окна. Окно получает сообщение через GetMessage и делает выводы, что его кликнули...

Всё это объясняет, почему ты не видишь кликов вне твоего окна - винда просто постит их не в твою message queue. А координаты с queue не связаны, поэтому ты их завсегда...

Так вот... Залезать в system message queue нехорошо... И ставить глобальный хук тоже нехорошо. В msdn чётко сказано: не юзайте, челы, глобальные хуки, кроме как для дебага, а из релиза убирайте, ибо по систем перфомансу оные бьют со страшной силой...

[A.A.Z.]

Так как человеку проблему-то решить?

[GSerg]

Вот всегда я крайний...

Ладно, идите в Проекты

[A.A.Z.]

Были там уже :arrow:

[GSerg]

Так ещё раз

[A.A.Z.]

И что?

[GSerg]

Хватит тут флудить
Переходим на общение в Проектах Хотя афтар топика не появляется, но, может, что-то полезное извлечём