Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - ASP и VBScript

Страница: 1 |

 

  Вопрос: Как прописать клики мышкой в VB? Добавлено: 11.01.10 02:10  

Автор вопроса:  Andrey
Подскажите плиз, как прописать клики мышкой по определенному месту экрана? Типа автокликера. Например мышка сама кликает по одному месту на экране, затем по другому и заключить это в цикл. Но с циклом я разберусь. Мне бы про мышу...

Ответить

  Ответы Всего ответов: 5  

Номер ответа: 1
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #1 		Добавлено: 11.01.10 22:39
  1. 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)
  2. Private Const MOUSEEVENTF_LEFTDOWN As Integer = &H2
  3. Private Const MOUSEEVENTF_LEFTUP As Integer = &H4
  4. Private Const MOUSEEVENTF_MIDDLEDOWN As Integer = &H20
  5. Private Const MOUSEEVENTF_MIDDLEUP As Integer = &H40
  6. Private Const MOUSEEVENTF_RIGHTDOWN As Integer = &H8
  7. Private Const MOUSEEVENTF_RIGHTUP As Integer = &H10
  8.  
  9. Private Sub MouseDown(Optional Button As Long = 0)
  10. Select Case Button
  11.   Case 0 ' Левая кнопка
  12.     mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 1, 0
  13.   Case 1 ' Правая кнопка
  14.     mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 1, 0
  15.   Case 2 ' Средняя кнопка
  16.     mouse_event MOUSEEVENTF_MIDDLEDOWN, 0, 0, 1, 0
  17. End Select
  18. End Sub
  19.  
  20. Private Sub MouseUp(Optional Button As Long = 0)
  21. Select Case Button
  22.   Case 0 ' Левая кнопка
  23.     mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 1, 0
  24.   Case 1 ' Правая кнопка
  25.     mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 1, 0
  26.   Case 2 ' Средняя кнопка
  27.     mouse_event MOUSEEVENTF_MIDDLEUP, 0, 0, 1, 0
  28. End Select
  29. End Sub



Как-то, накатал...

Ответить

Номер ответа: 2
Автор ответа:
 D o c a l



ICQ: 408802757 

Вопросов: 76
Ответов: 985
  Web-сайт: www.doc-source.pp.net.ua/
 Профиль | | #2 		Добавлено: 12.01.10 12:04
  1. dfg

Ответить

Номер ответа: 3
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #3 		Добавлено: 12.01.10 18:22
?

Ответить

Номер ответа: 4
Автор ответа:
 Andrey



Вопросов: 1
Ответов: 1
  Профиль | | #4 Добавлено: 14.01.10 13:18
АВП, ты какой-то бред написал

Ответить

Номер ответа: 5
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #5 		Добавлено: 16.05.10 22:49
Андрей, а ты видимо кода не можешь понять.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам