Про искусственное нажатие
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 3
• Страница 1 из 1
- nik936ta
- Начинающий
-
- Сообщения: 20
- Зарегистрирован: 22.05.2004 (Сб) 8:32
Про искусственное нажатие
nik936ta » 19.06.2004 (Сб) 4:09
У меня такая проблемка! Как сделать так чтобы симитировать щелчок мыши на каком-нибудь другом приложении
- A.A.Z.
- Член-корреспондент академии VBStreets
- Сообщения: 3035
- Зарегистрирован: 30.06.2003 (Пн) 13:38
A.A.Z. » 21.06.2004 (Пн) 17:48
Я немного поясню: 
- Код: Выделить всё
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 Enum MouseButton
Left = &H2 Or &H4
Right = &H8 Or &H10
Middle = &H20 Or &H40
End Enum
Sub MouseClick(X As Long, Y As Long, Button As MouseButton)
mouse_event Button, X, Y, 0, 0
DoEvents
End Sub
Сообщений: 3
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2