Эмуляция клика мышью (API)

Привет!

В этом уроке я вкратце расскажу вам как при помощи 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 клик правой кнопкой мыши

Ну вот и всё!

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

  Метки:
  Gemorg
  Просмотров: 10 076
  Запись опубликована в 13:42

3 комментария

  • При нажатии на кнопку(button1) происходит увиличение в размерах формы. Это таки должно быть или я что-то не понял?:(

  • Да именно это и должно происходить, при клике по кнопке курсор перемещается в верхний угол формы, нажимается левая кнопка мыши и растягивает форму на 100 пикс., затем отпускается левая кнопка мыши.

  • Теперь ясно!) Спасибо.

Есть что сказать? Тогда действуй!