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

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

Почему не выходит? [D6, Win95/98]


progger ©   (2002-09-24 20:26:00) 

Добрый вечер. ув. знатоки, посмотрите пожалуйста: я использую седующий код для нажатия курсором мыши на гипперссылку в Microsoft Internet Explorer, но в результате мышь не хочет кликать на ссылку...
p.X:=250; // координаты гипперссылки
p.Y:=433;
SetCursorPos(p.x, p.y);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE,
p.x, p.y, 0, 0);
Application.ProcessMessages;
sleep(100);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN,
p.x, p.y, 0, 0);
Application.ProcessMessages;
sleep(300);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP,
p.x, p.y, 0, 0);

Подскажите в чем дело?


Song   (2002-09-24 20:39:00) [1]

Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE,
p.x, p.y, 0, 0); - не надо вообще,

MOUSEEVENTF_ABSOLUTE - уберите из всех оставшихся строк.


Наверх

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