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
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1