Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Имитация клика

Автор: iff 9.3.2008, 12:22

Я видел много статей на эту тему, но все они предпологали иметацию клика в заданное окно, в заданную кнопку. А мне нужно съимитировать клик по заданным координатам X и Y.

Автор: Rrader 9.3.2008, 15:27

Код


Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cData As Long, ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
 Call mouse_event(&H8000 Or &H1, 500, 400, 0, 0)
 Call mouse_event(&H8000 Or &H2, 500, 400, 0, 0)
 Call mouse_event(&H8000 Or &H4, 500, 400, 0, 0)
End Sub

Здесь 500 и 400 - координаты X и Y экрана соответственно.

Автор: iff 9.3.2008, 16:52

спасибо!