VPF::Послать клавишу и вернуться - Форум программистов

Skiminok

Дата 22.5.2006, 15:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 5.4.2006
Где: Киев

Репутация: нет
Всего: нет

Требуется несколько раз эмулировать нажатия клавиши в другой программе. Для этого я использовал код из FAQ, но есть некоторая проблема. Данный код обновляет то окно, которое в данный момент является активным. Поэтому мне требуется разрешить такую проблему: определить, какое окно сейчас является активным, послать клавишу (AppActivate и SendKeys) и вернуться в то же окно. GetActiveWindow не помогает. Заранее спасибо.

З.Ы. Если уж на то пошло, можете ли, пожалуйста, объяснить, как с помощью SendMessage посылать клавиши, не имеющие ASCII-кода? Это может решить проблему. Заранее ещё одно спасибо.

Snowy

Дата 22.5.2006, 15:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Цитата(Skiminok @ 22.5.2006, 15:32

)

GetActiveWindow не помогает

GetForegroundWindow

Цитата(Skiminok @ 22.5.2006, 15:32

)

SendMessage посылать клавиши, не имеющие ASCII-кода?

по виртуальному коду. (VK_UP, например)

Yanis

Дата 22.5.2006, 15:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 13
Всего: 111

Цитата(Skiminok @ 22.5.2006, 16:32

)

клавиши, не имеющие ASCII-кода

Что за клавиши такие?

Цитата(Skiminok @ 22.5.2006, 16:32

)

GetActiveWindow не помогает

Используй GetForegroundWindow

Цитата(Skiminok @ 22.5.2006, 16:32

)

вернуться в то же окно

Что значит "вернуться"?

Добавлено @ 15:57
Про ASCII стормозил. Извиняюсь.

--------------------

*щёлк*

Skiminok

Дата 23.5.2006, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 5.4.2006
Где: Киев

Репутация: нет
Всего: нет

Цитата

по виртуальному коду. (VK_UP, например)

А какие добавочные два параметра передавать в SendMessage?
smile

Цитата

Что значит "вернуться"?

При посылке окно автоматически становится активным. Мне требуется вернуться, т.е. сделать активным окно, бывшее активным до того.

vv3

Дата 24.5.2006, 10:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 75
Регистрация: 29.4.2006

Репутация: нет
Всего: нет

function SendMessage(Wnd: HWnd; Msg, wParam: Word; lParam: Longint): Longint;

Wnd - хэндл окна, которому посылается сообщение ($FFFF - послать сообщение всем окнам системы)
Msg - тип сообщения (в твоем случае либо WM_KEYDOWN, либо WM_KEYUP, либо WM_CHAR)
wParam - дополнительная информация о сообщении (в твоем случае код клавиши или ASCII)
lParam - дополнительная информация о сообщении (в твоем случае - 0, сообщения-то бывают разные)

Таким образом, чтобы нажать в чужом окне F1, ты пишешь что-то вроде:

Код


SendMessage(Handle, // дескриптор интересующего тебя окна, который ты уже получил
                       WM_KEYDOWN, VK_F1, 0);

Чтобы отослать чужому окну Backspace и он отработал свое действие, т.е. вставил #8:

Код


SendMessage(Handle, WM_CHAR, VK_BACK, 0);

И, наконец, чтобы вставить в чужое окно 15 символов Ё пишем:

Код


SendMessage(Handle, WM_CHAR, Ord('Ё'), 15);

Кстати, зачем выносить окно в Foreground, чтобы отослать ему сообщение и опять тут же спрятать? Ведь твое приложение, отослав сообщение, ждать не будет, пойдет работать дальше. А окно и без активации сообщение принять должно.

Это сообщение отредактировал(а) vv3 - 24.5.2006, 11:04

BinaryEvil

Дата 24.5.2006, 13:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 98
Регистрация: 4.3.2006

Репутация: -1
Всего: 2

SendMessage никатит, нада SendInput если XP, и keybd_event если 98.

vv3

Дата 24.5.2006, 17:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 75
Регистрация: 29.4.2006

Репутация: нет
Всего: нет

Цитата(BinaryEvil @ 24.5.2006, 13:09

)

SendMessage никатит, нада SendInput если XP

Да неужто? А у меня что стоит? 3.11 For Workgroup?

Итак, запускаем Блокнот, например...
И Дельфи (тоже например smile

)
и пишем такое:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(
     FindWindowEx(
             FindWindow('Notepad', 0),
                       0, 'Edit', ''), WM_Char, Ord('R'), 0);
end;

Кликаем по кнопочке Button1 и наслаждаемся тем, что не катит...

Yanis

Дата 24.5.2006, 18:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 13
Всего: 111

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

Это сообщение отредактировал(а) Yanis - 24.5.2006, 18:31

--------------------

*щёлк*

BinaryEvil

Дата 24.5.2006, 20:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 98
Регистрация: 4.3.2006

Репутация: -1
Всего: 2

Цитата(vv3 @ 24.5.2006, 17:43

)

Кликаем по кнопочке Button1 и наслаждаемся тем, что не катит...

лиха ты... умный...у мя чёта ниработаит...
отета:

Код


var i:array of tagINPUT
i.Itype := INPUT_KEYBOARD;
with i.ki do begin
  wVk := VKey;
  wScan := MapVirtualKey(VKey, 0);
  dwFlags := Flags;
  time := 0;
  dwExtraInfo := 0;
end;
tmp:=getforegroundwindow;
setforegroundwindow(hwnd);
SendInput(1, i, SizeOf(tagINPUT));
setforegroundwindow(tmp);

работает без проблем

Добавлено @ 20:42
у мя xp

Это сообщение отредактировал(а) BinaryEvil - 24.5.2006, 20:46

Skiminok

Дата 24.5.2006, 22:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 5.4.2006
Где: Киев

Репутация: нет
Всего: нет

Цитата

А если я, к примеру, шлю F5 в обычное окно Windows-браузера? Или просто в IE...

Skiminok

Дата 24.5.2006, 23:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 5.4.2006
Где: Киев

Репутация: нет
Всего: нет

BinaryEvil, не работает(на XP!).

vv3

Дата 25.5.2006, 12:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 75
Регистрация: 29.4.2006

Репутация: нет
Всего: нет

Цитата(Yanis @ 24.5.2006, 18:30

)

От себя добавлю, что лучше использовать PostMessage

Да, оно, конечно, лучше...

Цитата(Skiminok @ 24.5.2006, 22:35

)

А если я, к примеру, шлю F5 в обычное окно Windows-браузера? Или просто в IE...

Ну и что? Главное - отослать тому, кому надо. Кому отсылать (класс, имя), можно всегда подглядеть в WinSight'e

Цитата(BinaryEvil @ 24.5.2006, 20:41

)

лиха ты... умный...у мя чёта ниработаит...

Это должно означать только то, что именно у тебя не работает... Не злись, пожалуйста smile

Skiminok

Дата 25.5.2006, 14:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 5.4.2006
Где: Киев

Репутация: нет
Всего: нет

С обычным SendMessage... в принципе работает, но не совсем так, как надо - есть странные глюки. Попробую PostMessage.

Цитата(vv3 @ 25.5.2006, 12:58

)

Ну и что? Главное - отослать тому, кому надо. Кому отсылать (класс, имя), можно всегда подглядеть в WinSight'e

Тогда окно браузера становится активным.

Angel_19

Дата 2.6.2006, 09:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 5.4.2005

Репутация: нет
Всего: нет

Уважаемые, а как послать комбинацию клавиш? Т.е. например Ctrl+Ins с помощью SendMesage ?

BinaryEvil

Дата 2.6.2006, 11:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 98
Регистрация: 4.3.2006

Репутация: -1
Всего: 2

Angel_19, с помощью SendInput

Код


      var tmp: array of tagINPUT;
      ...
      prevwnd:=getforegroundwindow;
      SetForegroundWindow(wnd);
      SetLength(tmp, 4);
      tmp[0].Itype := INPUT_KEYBOARD;
      tmp[1].Itype := INPUT_KEYBOARD;
      tmp[2].Itype := INPUT_KEYBOARD;
      tmp[3].Itype := INPUT_KEYBOARD;
      with tmp[0].ki do begin
          wVk := VK_CONTROL;
          wScan := MapVirtualKey(VK_CONTROL, 0);
          dwFlags := 0;
          time := 0;
          dwExtraInfo := 0;
      end;
      with tmp[1].ki do begin
          wVk := VK_INSERT;
          wScan := MapVirtualKey(VK_INSERT, 0);
          dwFlags := 0;
          time := 0;
          dwExtraInfo := 0;
      end;
      with tmp[2].ki do begin
          wVk := VK_CONTROL;
          wScan := MapVirtualKey(VK_INSERT, 0);
          dwFlags := KEYEVENTF_KEYUP;
          time := 0;
          dwExtraInfo := 0;
      end;
      with tmp[3].ki do begin
          wVk := VK_CONTROL;
          wScan := MapVirtualKey(VK_CONTROL, 0);
          dwFlags := KEYEVENTF_KEYUP;
          time := 0;
          dwExtraInfo := 0;
      end;
      SendInput(Length(tmp), tmp[0], SizeOf(tagINPUT));
      SetForegroundWindow(prevwnd);

работает на 100%, если нужное окно активно. если нет, то иногда не проходят нажатия, я ставлю задержку перед sendinput:
WO := CreateEvent(nil, True, False, '');WaitForSingleObject(WO, 10);CloseHandle(wo);

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »