Работа с мышью

[step]

Как програмно на Vbasic проследить клик мыши и двойной клик мыши, вне формы??? И как програмно испольнить клик мыши, вне формы???(Т.е. я навожу мышь на ПУСК, а когда таймер на форме срабатывает, мышь сама кликает по ПУСКУ) Заранее спасибо!!!

[GSerg]

Клики ловятся через глобальные хуки (страшный гемор).
Клики посылаются через sendmessage (реальное положение мыши при этом неважно).

[tyomitch]

Клики ловятся через глобальные хуки (страшный гемор).

Глобальный журнальный хук ставится очень легко.
Пример: http://vbrussian.com/Controls.asp?ID=61

Клики посылаются через sendmessage (реальное положение мыши при этом неважно).

"Вообще" легче их посылать через mouse_event, хотя если там конкретно кнопка Пуск - можно и BM_CLICK.

[A.A.Z.]

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

[tyomitch]

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

Ну так давайте пользоваться достижениями цивилизации! Уже почти два года (пример выложен 27 августа 2002) никакого гемора нет!

[step]

ОГРОМНОЕ СПАСИБО ВСЕМ!!! ЭТО ТО, ЧТО НУЖНО!!!!!!!!!
НО ЕСТЬ ЕЩЁ ВОПРОС======= Подскажите как програмно совершить клик???

[tyomitch]

ОГРОМНОЕ СПАСИБО ВСЕМ!!! ЭТО ТО, ЧТО НУЖНО!!!!!!!!!
НО ЕСТЬ ЕЩЁ ВОПРОС======= Подскажите как програмно совершить клик???

Конкретно кнопки Пуск?

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

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hwndParent As Long, ByVal hwndChildAfter As Long, ByVal lpszClass As String, ByVal lpszWindow As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const BM_CLICK As Long = &HF5

Sub Main()
Dim hWnd As Long
hWnd = FindWindow("Shell_TrayWnd", vbNullString)
hWnd = FindWindowEx(hWnd, 0, "Button", vbNullString)
SendMessage hWnd, BM_CLICK, 0, 0
End Sub


[CodeName33]

Не-а, такой клик не везде и не всегда работает. Вот стопудовый клик:

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)

Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_MOVE = &H1
Private Const MOUSEEVENTF_ABSOLUTE = &H8000
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10

Private Sub MakeClick
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
End Sub