[tierpunk]

Сообщение от Drozh

Все просто! Гляди:

Код:

var
 pt: TPoint;
begin
 GetCursorPos(pt); // получаем координаты мыши
 SetCursorPos(pt.X, pt.Y); // устанавливаем координаты мыши
 mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, pt.X, pt.Y, 0, 0); // опускаем левую клавишу мыши по заданным координатам
 mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 0, 0); // аналогично поднимаем

Также можно делать с правой, средней клавишей, колесиком... Ну тут я думаю разберешься))

Спасибо за ответ, но что то не то....

когда я изменил свой код к такому виду

Код:

procedure TForm1.Button3Click(Sender: TObject);
begin
 GetCursorPos(pt);
 SetCursorPos(pt.X, pt.Y);
 mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, pt.X, pt.Y, 630, 560);
 mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 630, 560);
 mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, pt.X, pt.Y, 600, 560);
 mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 600, 560);
 mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, pt.X, pt.Y, 475, 433);
 mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 475, 475);
end;

end.

С надеждой что при нажатие на кнопку курсор мыши передвинется, ничего не произошло, курсор остался на кнопке, а заветные кнопки на сайте так и не нажались... Я чувствую что проблема здесь уж точно не сложная, помогите ее найти и решить...

От кода требуется что бы он нажимал на кнопки сайта в форме WebBrowser, координаты кнопок известны.