Mouse_Click

[Max!]

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

[A.A.Z.]

Код: Выделить всё

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(м/с).