Работа по координатам экрана

[bunukar]

Приветствую всех. Вобщем есть такая задача. Нужно написать приложение небольшое по реазмерам(1смх2см), которое всегда будет поверх остальных окон. На окошке кнопка. И чтобы при нажатии этой кнопки прога по координатам экрана(это поле на сайте) щелкала курсором и вставляла уже заготовленный текст. И далее САМА через кнопку Tab переходила на другое поле и вставляла следующий текст.
Вопрос к знатокам. Подскажи пожалуйста, как можно это реализовать? Или статейку, или литературу близкую к данному примеру.

[Dj_SheLL]

1. Поверх окон

Form1.FormStyle:=fsStayOnTop;

2. Кнопку я думаю вы сами добавите.
3. Клик мышью как-то так

var
 h: HWND;
begin
 // Находим окно
 h := FindWindow(nil, 'Безымянный - Paint'); //ну тут вместо Paint ваш браузер,которым пользуетесь :) ,короче говоря заголовок окна,к которому обращаетесь
 if h > 0 then
  begin
   // Нажимаем кнопку (X, Y - координаты в окне, в которых имитируем щелчок)
   SendMessage(h, WM_LBUTTONDOWN, 0, 65536 * Y + X);
   // Отпускаем кнопку
   SendMessage(h, WM_LBUTTONUP, 0, 65536 * Y + X);
  end;

или так

mouse_event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, x, y, 0, 0);

4. Насчёт заполнения полей ТУТ или так,используя компонент TWebBrowser на вкладке палитры компонентов Internet:

var
a:variant;
begin
a:=webbrowser1.oleobject.document.getelementbyid('идишник эдита из веб кода');
a.value:='1234';
a:=webbrowser1.oleobject.document.getelementbyid('идишник кнопки из веб кода');
a.click.

Здесь щёлкать не нужно по Tab,тут сразу вставляешь во все поля.Но для этого тебе надо знать структуру HTML,с которым ты работаешь.

[bunukar]

Спасибо огромное.
Про HTML. В этом и вся загвоздка. Имена полей постоянно меняют на сайте. Поэтому желательно не иметь этой привязки, а просто переключаться Табом по полям.
В принципе уже разобрался что к чему. Но возник вопрос.
Как мне пропустить 2 поля табом?
После заполнения последнего поля, мне нужно пропустить ещё 2 и щаполнить ещё 1.
Я делаю так:
keybd_event($9,0, 0, 0); - Таб
keybd_event($9,0, 0, 0); - Ещё раз Таб
keybd_event($*,0, 0, 0); - И дальше заполняю нужную инфу.
Но почему то он не переходит 2 раза. А только 1 раз.
И п.с. Объясните, пожалуйста, новичку, что означают эти нули? keybd_event(0,0, 0, 0);

[Dj_SheLL]

keybd_event(0,0, 0, 0); - WinAPI функция.
Соответственно:

keybd_event
(
BYTE bVk, // код виртуальной клавиши
BYTE bScan, // аппаратный скэн-код
DWORD dwFlags, // флажки, определяющие различные параметры функции
DWORD dwExtraInfo // дополнительные данные, связанные с нажатием клавиши
);

procedure TForm1.Button1Click(Sender: TObject);
begin
  Keybd_event(VK_LWIN,   0, 0, 0);
  Keybd_event(Byte('R'), 0, 0, 0);
  Keybd_event(Byte('R'), 0, KEYEVENTF_KEYUP, 0);
  Keybd_event(VK_LWIN,   0, KEYEVENTF_KEYUP, 0);
end;

Параметры:
bVk
Определяет код виртуальной клавиши. Код должен быть значением в диапазоне от 1 до 254.
bScan
Определяет для клавиши аппаратный скэн-код.
dwFlags
Набор флаговых битов, которые определяют различные виды операций функции. Прикладная программа может использовать любую комбинацию следующих предопределенных постоянных значений, чтобы установить флажки:
KEYEVENTF_EXTENDEDKEY - Если она установлена, скэн-коду предшествует префиксный байт, имеющий значение 0xE0 (224).
KEYEVENTF_KEYUP - Если установлена, клавиша была отпущена. Если не установлена, клавиша была нажата.

dwExtraInfo
Определяет дополнительное 32-разрядное значение, связанное с нажатием клавиши.

Возвращаемые значения
У этой функции нет возвращаемых значений.

Замечания
Несмотря на то, что keybd_event посылает в Windows OEM-зависимый аппаратный скэн-код, прикладные программы не должны использовать скэн-код. Windows внутри себя преобразует его в коды виртуальной клавиши и сбрасывает/устанавливает биты в скэн-коде перед передачей его в прикладную программу.
Прикладная программа может смоделировать нажатие клавиши PrintScreen, чтобы получить снимок экрана и сохранить его в буфере обмена Windows. Чтобы делать это, вызовите keybd_event с установленным параметром bVk в VK_SNAPSHOT, а параметром bScan установите в 0 для снимка полного экрана, или установите bScan в 1 для снимка активного окна.

Про TAB-ы не знаю,не работал.
Вот тут ещё есть про эмуляцию нажатия клавиши для любого активного приложения.
Ну и тут ещё кое-что интересное возможно есть.

[bunukar]

Ну спасибо вам, Dj_SheLL Очень интересная информация.
И возник ещё один вопросик. Можно ли имитировать прокрутку scroll'a? В данном случае мне нужно промотать вниз.

[Dj_SheLL]

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

Ну спасибо вам, Dj_SheLL Очень интересная информация.
И возник ещё один вопросик. Можно ли имитировать прокрутку scroll'a? В данном случае мне нужно промотать вниз.

Если это веббраузер,то получается вам не нужно конкретно scroolbar-ом управлять.Насколько мне известно скроллить ввер-вниз можно по нажатию клавиш
(Name:'DOWN'; VKey:VK_DOWN),
(Name:'UP'; VKey:VK_UP),
т.е. это кнопки со стрелками соответственно "Вниз" и "Вверх",где я ссылку на статью давал-там пример,как эмулировать.
Но перед этим нужно программно щёлкнуть по пустому полю страницы (кликать мышкой мы теперь уже умеем ),иначе если у вас будет курсор мигать в edit-е вебстраницы,то скролл естественно работать не будет.

[bunukar]

Не,не,не. Мне нужно не страницу скроллить. Выпадает список с выбором страны. Вот мне и нужно его проскроллить до моей страны(либо по времени, либо по считыванию). Page Up, Page down - не работают в таком случае. Только что попробовал, что если зажать левую кнопку мыши и мотать стрелкой в низ то получается. Сейчас попробую реализовать.

[Dj_SheLL]

Ну тогда не знаю.Может всё таки структуру страницы посмотреть,я думаю выбор страны вряд ли будет меняться.Если мне не изменяет память,каждой строке в таком блоке присвоен свой идентификатор...могу ошибаться.

[bunukar]

С кодом страницы думаю бесполезно. Поле страны тоже меняют.(типо _country, c_10203,f_co и т.д.). Со стрелками попробовал - не работает. Единтсвенный вариант остается - это открыть список выбора, имитировать клавишами выбор поиска на странице, ввести страну и закрыть окошко. В таком варианте страна появляется прямо по середине списка.
В любом случае, спасибо за помощь.
А возможно имитировать например Ctrl+F?

[Dj_SheLL]

Не за что.
Насчёт Ctrl+F(что-то) не задумывался.Возможно.