Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

Клик мышки   Найти похожие ветки 

 
alexdn ©   (2012-03-13 12:58) [0]

Как простенько сделать эмуляцию нажатия клика мышки, по известным координатам курсора..? т.е. выставить курсор в позицию p.x, p.y и создать команду "клик"?..


 
RWolf ©   (2012-03-13 13:01) [1]

SetCursorPos, mouse_event.


 
alexdn ©   (2012-03-13 13:09) [2]

> RWolf ©   (13.03.12 13:01) [1]
> SetCursorPos, mouse_event.
Если можно с mouse_event поподробнее..
т.е. mouse_event(click)? как то так?


 
RWolf ©   (2012-03-13 13:12) [3]

http://www.google.ru/search?q=mouse_event


 
Омлет ©   (2012-03-13 13:14) [4]

Например, так:
 DX := 65535 / Screen.Width;
 DY := 65535 / Screen.Height;

 Mouse_Event(MOUSEEVENTF_ABSOLUTE or Event, Trunc(X*DX), Trunc(Y*DY), 0, 0);


где Event может принимать значения:
- MOUSEEVENTF_LEFTDOWN
- MOUSEEVENTF_LEFTUP
- MOUSEEVENTF_MOVE


 
Омлет ©   (2012-03-13 13:16) [5]


> может принимать значения
> ...

и некоторые другие.


 
alexdn ©   (2012-03-13 13:21) [6]

> Омлет ©   (13.03.12 13:14) [4]
вот странно, сделал Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN,P.x,P.y,0,0);
но я бы не сказал что нажатие эмулируется.. по крайней мере опера что то не реагирует, ну сменой странички.


 
Омлет ©   (2012-03-13 13:29) [7]

> alexdn ©   (13.03.12 13:21) [6]

Сначала необходимо переместить в нужную точку (MOUSEEVENTF_MOVE), затем нажать (MOUSEEVENTF_LEFTDOWN), затем отжать (MOUSEEVENTF_LEFTUP). К тому же, между всеми операциями делать задержку, 50 мс например.


 
alexdn ©   (2012-03-13 13:34) [8]

> Омлет ©   (13.03.12 13:29) [7]
Да, спасибо), уже понял, на отжатие работает, задержку можно не делать..)



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.09 c
3-1284757383
Vladimir3466
2010-09-18 01:03
2013.03.22
delphi 10 + ADOQuery.Parameters = параметр не найден


15-1337160836
Инокентий
2012-05-16 13:33
2013.03.22
Как получить почту с гугла 3 людям?


15-1336238668
TStas
2012-05-05 21:24
2013.03.22
Нестандартное свойство компонента


15-1341400402
Inovet
2012-07-04 15:13
2013.03.22
Нашли бозон Хигса (?)


2-1337666296
Viktor
2012-05-22 09:58
2013.03.22
Работа с браузером