Mouse_Click

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Max!
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 502
Зарегистрирован: 03.04.2003 (Чт) 22:08
Откуда: Литва

Mouse_Click

Сообщение Max! » 03.07.2004 (Сб) 13:10

Всем привет! Мне нужно сделать что бы пpога через каждые 5сек сама нажимала кнопку мыши тоесть делала моусе_клик и вне формы и продолжительность клика важна ! :?: :?: :wink:
Max!

A.A.Z.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 03.07.2004 (Сб) 14:55

Код: Выделить всё
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 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliSeconds As Long)

Private Enum MouseButtonsDown
Left = 2
Middle = 32
Right = 8
End Enum

Private Enum MouseButtonsUp
Left = 4
Middle = 64
Right = 16
End Enum

Private Enum MouseButtonsClick
Left = 6
Middle = 96
Right = 24
End Enum

Sub MouseDown(ByVal X As Long, ByVal Y As Long, MouseButton As MouseButtonsDown)
mouse_event MouseButton, X, Y, 0&, 0&
End Sub

Sub MouseUp(ByVal X As Long, ByVal Y As Long, MouseButton As MouseButtonsUp)
mouse_event MouseButton, X, Y, 0&, 0&
End Sub

Sub MouseClick(ByVal X As Long, ByVal Y As Long, MouseButton As MouseButtonsClick)
mouse_event MouseButton, X, Y, 0&, 0&
End Sub

Sub Pause(ByVal MilliSeconds As Long)
Sleep MilliSeconds
End Sub

Нажать л.к. мыши - MouseDown(X, Y, Кнопка); отпустить л.к. мыши - MouseUp(X, Y, Кнопка); Нажать и сразу отпустить - MouseClick(X, Y, Кнопка); Пауза (в миллисекундах) - Pause(м/с).


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

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

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

    TopList  
cron