Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Вниз

как управлять мышю 


hex_for_delphi   (2002-02-20 06:49) [0]

проблема состаит в следушем нужно перемкстить мыш в указанные каординаты и имулировать нажатие то правой то левой кнопки мыши



skiph   (2002-02-20 08:01) [1]

Это уже обсуждалось:
__________________________________________________
Для этого можно использовать функции mouse_event

mouse_event(MOUSEEVENTF_MOVE, Random(20) - 10, Random(20) - 10, 0, 0);

или SetCursorPos

var p: Tpoint;
......
GetCursorPos(p);
SetCursorPos(p.X+Random(20) - 10, p.Y+Random(20) - 10);

Процедуру mouse_event можно использовать и для симуляции нажатия кнопок мыши.
______________________________________________________________
PS Это я из предыдущего форума вырезал



hex_for_delphi   (2002-02-20 13:26) [2]

угу спасибо




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.027 c
6-19291           Люк                   2001-12-18 11:51  2002.03.07  
Работа с компонентом TServerSocket


3-19104           tovSuhov              2002-02-11 11:40  2002.03.07  
Набор команд SQL


1-19209           Игорь М               2002-02-19 10:44  2002.03.07  
Печать на LBP 810


1-19251           Елена                 2002-02-18 07:45  2002.03.07  
Зашифровать строку


1-19212           kserg@ukr.net         2002-02-19 11:28  2002.03.07  
Как установить новый компонент?