Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Имитация нажатия мышы


Надо узнать код ©   (2008-06-03 06:55:00) 

Подскажите как юзать mouse_event  для имитации нажатия мышы, или есть какая-то функция получше?
просьба дать готовый пример кода.


MBo   (2008-06-03 12:32:00) [1]

>скажите это правильно?
да

>в среднем реально нажимать кнопку (мыши) 5 раз в секунду (до 7 макс)
корейцы в старкрафте 600 кликов в минуту делали, насколько я помню ;)


Надо узнать код   (2008-06-03 11:59:00) [2]


> MBo ©  

было реализовано вот так:


var  p:Tpoint;

GetCursorPos(p);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or
             MOUSEEVENTF_LEFTDOWN,
             P.x,
             P.y,
             0,
             0);
Sleep(100);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or
             MOUSEEVENTF_LEFTUP,
             P.x,
             P.y,
             0,
             0);

скажите это правильно?
имхо работает и всё пучком)  (прога-автокликер)
попутно была исследована скорость нажатий человека, в среднем реально нажимать кнопку (мыши) 5 раз в секунду (до 7 макс)


MBo   (2008-06-03 08:18:00) [3]

>как юзать mouse_event  
в хелпе и в MSDN описано

>или есть какая-то функция получше?
SendInput более  универсальная


Наверх

Титульная страница Поиск, карта сайта Написать письмо