Имитация нажатия кнопки на мышке

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
LocalHost
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 08.12.2007 (Сб) 20:50

Имитация нажатия кнопки на мышке

Сообщение LocalHost » 09.12.2007 (Вс) 1:52

Всем привет.. может такая тема была уже но к сожалению найти не смог через поиск
и так суть вопроса, Нужна программа чтобы делала следущее
как сделать чтобы при нажатие на f5 нажималось\зажималась правая мышки, а на f6 нажималось\зажималась левая мышки
чтобы не прирывно нажималась кнопка мышки даже если курсор не в программе и программа свернута.
Нашол Код такой
Код: Выделить всё
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_RIGHTDOWN = &H8

Private Const MOUSEEVENTF_RIGHTUP = &H10

Private Enum ButtonClick

btcLeft

btcRight

btcMiddle

End Enum



Private Function MouseClick(ByVal MBClick As ButtonClick) As Boolean

Dim cbuttons As Long

Dim dwExtraInfo As Long

Dim mevent As Long

Select Case MBClick

Case ButtonLeft

mevent = MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP

Case ButtonRight

mevent = MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP

Case ButtonMiddle

mevent = MOUSEEVENTF_MIDDLEDOWN Or MOUSEEVENTF_MIDDLEUP

Case Else

MouseClick = True

Exit Function

End Select

mouse_event mevent, 0&, 0&, cbuttons, dwExtraInfo

MouseClick = True

End Function

Private Sub Command1_Click()
Call MouseClick(ButtonLeft)
End Sub

Но работает только если курсор на кнопке если убирать всё отключается. Заранее спасибо

Winitar
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 224
Зарегистрирован: 06.07.2006 (Чт) 20:45
Откуда: Астана

Сообщение Winitar » 09.12.2007 (Вс) 9:23

Помоему твою идею ооочень сложно воплотить в реальность! :)

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16489
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 09.12.2007 (Вс) 10:45

LocalHost
Этот код бредовый и не способен сделать то, что тебе нужно.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

LocalHost
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 08.12.2007 (Сб) 20:50

Сообщение LocalHost » 09.12.2007 (Вс) 12:47

Так может кто нить тыкнит носом где можно почитать инфу про это

Winitar
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 224
Зарегистрирован: 06.07.2006 (Чт) 20:45
Откуда: Астана

Сообщение Winitar » 09.12.2007 (Вс) 16:21

[quote=LocalHost]Так может кто нить тыкнит носом где можно почитать инфу про это[/quote]
http://www.google.ru :lol:

LocalHost
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 08.12.2007 (Сб) 20:50

Сообщение LocalHost » 09.12.2007 (Вс) 17:05

Ну а кроме поисковика я там нечего хорошего найти не смог

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16489
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 09.12.2007 (Вс) 17:46

Отлично. Тебе больше ничего не надо там искать. Поисковик найдёт.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

LocalHost
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 08.12.2007 (Сб) 20:50

Сообщение LocalHost » 09.12.2007 (Вс) 18:26

Если бы я там нашол по теме своего вопроса я бы не писал тут

DKbelRoma
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 282
Зарегистрирован: 13.09.2007 (Чт) 23:32
Откуда: Из Кривого Рога

Сообщение DKbelRoma » 09.12.2007 (Вс) 19:52

Очень интересно , а зачем столь "запутанный" код? Для чего он те нужен? Обьясни всю суть вопроса! 8)
«Не важно, откуда ты. Важно - где ты.»

LocalHost
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 08.12.2007 (Сб) 20:50

Сообщение LocalHost » 09.12.2007 (Вс) 21:09

Код мне не нужен))
а суть вопроса программка для онлаин игр та при нажатие на левую мышки происходит действие тоже самое и на правою


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 29

    TopList