VPF::Имитация клика - Форум программистов

iff

Дата 9.3.2008, 12:22 (ссылка)

(нет голосов)

Загрузка ...

Администратор

Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: -1
Всего: 16

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

--------------------

DOS... Синей пеленой экран заполнил чистый DOS
Мышь... Стала вдруг квадратной, потеряла форму мышь...
Я разбил окно, девяностопятое мастдайное окно,
И поставил DOS, и тогда увидел: Это счастье, — вот оно.

Rrader

Дата 9.3.2008, 15:27 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 6
Всего: 191

Код


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 экрана соответственно.

--------------------

Let's do this quickly!
Rest in peace, Vit!

iff

Дата 9.3.2008, 16:52 (ссылка)

(нет голосов)

Загрузка ...

Администратор

Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: -1
Всего: 16

спасибо!

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »