ИнтеллигенцияX

Привет!

В этом уроке я вкратце расскажу вам как при помощи API эмитировать клик мыши.

Вот собственно сама функция:

Declare Function Мышь Lib "user32.dll" Alias "mouse_event" (ByVal dwFlags As Int32, ByVal dX As Int32, ByVal dY As Int32, ByVal cButtons As Int32, ByVal dwExtraInfo As Int32) As Boolean
    Const Нажать_Левую_Кнопку = &H2
    Const Отпустить_Левую_Кнопку = &H4
    Const Нажать_Правою_Кнопку = &H8
    Const Отпустить_Правою_Кнопку = &H10

Как пользоваться:

Мышь(Нажать_Левую_Кнопку, 0, 0, 3, 3)
Мышь(Отпустить_Левую_Кнопку, 0, 0, 3, 3)
'1 клик левой кнопкой мыши

Так же и с правой кнопкой:

Мышь(Нажать_Правою_Кнопку, 0, 0, 3, 3)
Мышь(Отпустить_Правою_Кнопку, 0, 0, 3, 3)
'1 клик правой кнопкой мыши

Ну вот и всё!

Вот пример использования: КликМышью