Как включить верхний регистр в чужом процессе ?

← →
ANB © (2005-08-29 14:39) [0]

Чтобы напечатать строго большую или маленькую букву независимо от текущего состояния. Попробовал вот так - не помогает. :
// Установим регистр ThreadFrom := GetCurrentThreadId; ThreadTo := GetWindowThreadProcessId(hWindow, nil); AttachThreadInput(ThreadFrom, ThreadTo, True); GetKeyBoardState(KeyBoardState); KeyBoardState[VK_CAPITAL] := 0; if (bUpper) then begin KeyBoardState[VK_SHIFT] := $FF; KeyBoardState[VK_LSHIFT] := $FF; end else begin KeyBoardState[VK_SHIFT] := $FF; KeyBoardState[VK_LSHIFT] := $FF; end; SetKeyBoardState(KeyBoardState); // Эмулируем нажатие клавиши keybd_event(dwVK, bScanCode, dwFlags, 0); AttachThreadInput(ThreadFrom, ThreadTo, False); - всегда печатает маленькими. Пробовал вместо FF - 1, никакого эффекта.

← →
alpet © (2005-08-29 15:35) [1]

Сначала VK_SHIFT, потом код символа, потом опять VK_SHIFT но с флажоком KEYEVENTF_KEYUP.

← →
ANB © (2005-08-29 15:40) [2]

> alpet © (29.08.05 15:35) [1]
- а как узнать, что CAPS не нажат ?

← →
begin...end © (2005-08-29 15:44) [3]

> ANB © (29.08.05 15:40) [2]

GetKeyState, VK_CAPITAL ?

← →
alpet © (2005-08-29 15:45) [4]

ANB © (29.08.05 15:40) [2]
GetKeyState (VK_CAPITAL)?

← →
alpet © (2005-08-29 15:46) [5]

begin...end © (29.08.05 15:44) [3]
Вобщем симметрично ☺

← →
ANB © (2005-08-29 15:53) [6]

А если нажат, то придется и его эмулировать ?

← →
begin...end © (2005-08-29 15:55) [7]

> ANB © (29.08.05 15:53) [6]

А если нажат, то зачем нажимать Shift?

← →
ANB © (2005-08-29 16:00) [8]

> begin...end © (29.08.05 15:55) [7]
- чтобы символы печатать над цифрами. Хотя можно это отдельно поанализировать. А нету способа заставить SetKeyboardState работать ?

← →
begin...end © (2005-08-29 16:10) [9]

> ANB © (29.08.05 16:00) [8]

> чтобы символы печатать над цифрами.

Не понял я.

> А нету способа заставить SetKeyboardState работать ?

Так она ж, вроде бы, только для текущего потока.

← →
alpet © (2005-08-29 16:45) [10]

ANB © (29.08.05 16:00) [8]

Внедрение кода в поток разве что, но зачем это нужно?

← →
ANB © (2005-08-29 16:45) [11]

> begin...end © (29.08.05 16:10) [9]
- дык знаю я. В справке по атачу написано, что ее надо использовать, чтобы обмануть SetKeyboardState. А не работает. Сделал уже через нажатие шифта с учетом капслука и поддержкой символов над цифрами (!@#$). Млин. Не нравится мне через keyb_event, а по другому не работает.

← →
alpet © (2005-08-29 16:46) [12]

ANB © (29.08.05 16:45) [11]
Не работает с чем?

← →
ANB © (2005-08-29 16:46) [13]

> alpet © (29.08.05 16:45) [10]
- ради такой простой задачи писать внедрение как то не очень охота. Еще сломаю чего нибудь.

← →
ANB © (2005-08-29 16:47) [14]

> alpet © (29.08.05 16:46) [12]
- с программами на Magic. Он вообще игнорит обычные виндовые сообщения.

← →
alpet © (2005-08-29 16:51) [15]

ANB © (29.08.05 16:47) [14]

Как же тогда раскладка переключается в ней? Сообщения обрабатываются в ней, без этого никак - попробуй поставить ловушку на сообщения, блокирующую ввод некоторых клавиш - в программе они не будут соответственно действовать. А про SetKeyboardState таки забудь, не для этого она придумана.

← →
ANB © (2005-08-29 17:07) [16]

> alpet © (29.08.05 16:51) [15]
- я по всякому изгалился. В обычных делфовых программах хватает DOWN+CHAR+UP. В этой - нет. Чего туда еще запихать я уже не смог придумать. Через keyb_event работает. Может через GetKeyboardState кнопки достают, черт их знает. Вообще, глючная штука, израильтяне писали. Повбывав бы.

← →
alpet © (2005-08-29 17:09) [17]

ANB © (29.08.05 17:07) [16]

У меня ее нет. Попробуй ее отладчиком помучать - если использует *KeyState функции - будут срабатывать бряки (если конечно можешь работать с окном CPU).

← →
ANB © (2005-08-29 17:16) [18]

> alpet © (29.08.05 17:09) [17]
- ее ни у кого нет, кроме нашей конторы. Отладчиком ее задерешься мучить - это система разработки, типа интерпретатора. Если они юзают эти функции, то придется (как я понял) писать внедрение, а чего то я побаиваюсь. Да и геммора будет еще на неделю, а у меня и так уже все работает.

← →
alpet © (2005-08-29 17:27) [19]

ANB © (29.08.05 17:16) [18]

Какой-нибудь из потоков этой системы таки может отвечать за ввод. Вероятно ты не все попробывал. Все же через SendInput (keybd_event), система тестирования не очень юзабельная.

← →
ANB © (2005-08-29 17:32) [20]

> alpet © (29.08.05 17:27) [19]
- да уж. Одновременно с тестированием нельзя за компом толком работать. Кстати, похожая ситуация с SQL Plus. Тоже на сообщения не захотел реагировать. Надо будет как нибудь взять недельку и поразбираться получше.

← →
alpet © (2005-08-29 17:37) [21]

ANB © (29.08.05 17:32) [20]
Вот-вот, выбери все окна у процессов приложения, напиши прогу с хуком на все сообщения (WH_GETMESSAGE), пускай по этим окнам шпионит за потоками. Так можно по идее выделить те что обрабатывают ввод из клавиатуры.

← →
ANB © (2005-08-29 17:42) [22]

> alpet © (29.08.05 17:37) [21]
- я уже спаем его так гонял. Обычные DOWN CHAR UP. Делаю тоже самое - никакого эффекта. Поток у него один. А на мышиные сообщения нормально реагирует.

← →
alpet © (2005-08-29 17:47) [23]

ANB © (29.08.05 17:42) [22]
У него это поток постоянно работает, или иногда "ждет" сообщения (getMessage)?

← →
ANB © (2005-08-29 17:57) [24]

> alpet © (29.08.05 17:47) [23]
- ждет, более того, хуком я их нормально перехватываю.

← →
alpet © (2005-08-29 18:01) [25]

ANB © (29.08.05 17:57) [24]
А если сей поток приостановить, в его очереди сообщения от клавиатуры накапливаются? После возобновления в этом случае он должен обработать все нажатия, иначе - проигнорировать.

← →
ANB © (2005-08-30 09:50) [26]

А чем его тормознуть ?

← →
alpet © (2005-08-30 10:36) [27]

ANB © (30.08.05 09:50) [26]

Создай его с помощью CreateProcess, а потом в нужный момент приостанавливай его поток(и) через SuspendThread.

← →
ANB © (2005-08-30 11:01) [28]

Вечером попробую. А эта скотина не может читать буквы из какого нибудь потока ввода вывода, типа стандартного ? Magic - это еще ладно, но почему SQL Plus себя так же ведет ? Какая тут может быть особенность ?

← →
alpet © (2005-08-30 11:31) [29]

ANB © (30.08.05 11:01) [28]

Потоки ввода ориентированны на консольные программы (точнее работающие с потоками). Приложение работающее с сообщениями не обязано реагировать на потоки ввода.

← →
ANB © (2005-08-30 13:41) [30]

> alpet © (30.08.05 11:31) [29]
- как правило, и не реагируют. А могут ?

← →
alpet © (2005-08-30 13:51) [31]

ANB © (30.08.05 13:41) [30]

Могут, но только умышленно. Впрочем можно написать DLL, которую потом внедрять в любой процесс обрабатывающий сообщения ввода. Она будет считывать с потока ввода нажатия клавиш, и преобразовывать в сообщения. Только зачем это надо?

← →
ANB © (2005-08-30 14:09) [32]

> alpet © (30.08.05 13:51) [31]
- так может Magic это умышленно и делает ? Тады можно писать кнопки в этот поток. SQL Plus очень похож на консольное приложение, только выполняется, как оконное. Ща попробую ему поток подсунуть . . .

← →
alpet © (2005-08-30 16:12) [33]

ANB © (30.08.05 14:09) [32]

Не может он этого делать умышленно. Поскольку не консольное приложение.

← →
ANB © (2005-09-01 11:28) [34]

Фух. Нашел. Обычные кнопки стали нажиматься, если их посылать PostMessage WM_CHAR. Хе. А горячие - фиг вам. Полностью запостил все из спая - не ест. Нажал сам ctrl и послал сообщение WM_CHAR - сработало. Похоже, таки анализирует он KeyboardState. Придется таки эмуляцию не выкидывать. Тока поломал я ее немного. Седня чинить буду.

← →
alpet © (2005-09-01 11:40) [35]

ANB © (01.09.05 11:28) [34]
Погоди, WM_(SYS)KEYDOWN / WM_(SYS)KEYUP он при этом не кушает? А как же тогда трансляция (генерация WM_CHAR / WM_SYSCHAR) выполняется? Присмотрись также к параметру lParam = в нем вроде можно Ctrl/Alt задавать.

← →
ANB © (2005-09-01 11:43) [36]

> alpet © (01.09.05 11:40) [35]
- я прямо из спая параметры влепил. Для пробы. Хотя надо попробовать . . . Чичас.

← →
ANB © (2005-09-01 11:46) [37]

WM_SYS* трассирую - они не приезжают.

← →
ANB © (2005-09-01 11:50) [38]

Не, Ctrl туда не загоняется. Только Alt. Да хрен с ним. У меня редко это используется. Главное - в эдитах печатает. Кстати, как Tab правильно сэмулировать ? Чего то я его поломал.

← →
ANB © (2005-09-01 12:25) [39]

Так, ест теперь через сообщения обычные кнопки, стрелки, Enter, Esc. Не ест сочетания кнопок и Tab.

← →
alpet © (2005-09-01 16:29) [40]

допустим на форме есть несколько кнопок и таймер 100мс.
вот код таймера который будет перемещать фокус по кнопкам:
procedure Tmform.Timer1Timer(Sender: TObject); begin PostMessage (Handle, WM_KEYDOWN, VK_TAB, 0); PostMessage (Handle, WM_KEYUP, VK_TAB, 0); end;
Использование WM_CHAR при этом ничего не делает.

← →
ANB © (2005-09-01 16:30) [41]

> alpet © (01.09.05 16:29) [40]
- это на форме. Ща над Magic поиздеваюсь.

← →
alpet © (2005-09-01 17:05) [42]

А вот такой код, успешно перемещает курсор в начало текста в блокноте:
var h, hm, tid, ctid: THandle; ks: TKeyboardstate; begin hm := GetForegroundWindow; ctid := GetCurrentThreadId (); tid := GetWindowThreadProcessId (hm); if tid <> ctid then AttachThreadInput (ctid, tid, true); h := GetFocus; fillchar (ks, sizeof (TKeyboardState), 0); ks [VK_CONTROL] := $80; SetKeyboardState (ks); SendMessage (h, WM_KEYDOWN, VK_HOME, 0); SendMessage (h, WM_KEYUP, VK_HOME, 0); ks [VK_CONTROL] := $00; SetKeyboardState (ks); if tid <> ctid then AttachThreadInput (ctid, tid, false); end;

← →
ANB © (2005-09-01 17:11) [43]

> alpet © (01.09.05 16:29) [40]

Заработало ! Надо было чилдовому окну посылать сообщения постом. Остались комбинации. Но они у меня не только в Magic, пока вообще нигде не работают, только через keybd_event. Не подскажешь, куда рыть ? Я попробовал нажать и CHAR - ничего не получилось. Но я не пытался отпускать. Ща попробую.

← →
alpet © (2005-09-01 17:17) [44]

ANB © (01.09.05 17:11) [43]

Можно и SendMessage - на notepad действует (см. [42]). Главное что при этом почему-то работает и SetKeyboardState, и соответственно можно ведь любую комбинацию сделать.

← →
ANB © (2005-09-01 17:21) [45]

> alpet © (01.09.05 17:17) [44]
- так у меня и было все раньше на SendMessage. Блокнот и делфовые приложения все это ели (кроме комбинаций). Только Magic не ел. Заменил на Post - заел. SetKeyboardState будет работать только в моем процессе :((( Я уже в SDK смотрел и в MSDN. Хотя, может неправильно перевел . . .

← →
alpet © (2005-09-01 17:30) [46]

Ограничения SetKeyboardState:
Changes made to this table do not affect keyboard input to any other thread.
...
Because the SetKeyboardState function alters the input state of the calling thread and not the global input state of the system, an application cannot use SetKeyboardState to set the NUM LOCK, CAPS LOCK, or SCROLL LOCK (or the Japanese KANA) indicator lights on the keyboard.
...

Т.е. он не приведет к изменениям клавирного ввода, в другом потоке. Для этого и вызвается AttachInput. Кроме этого - он не изменяет состояния клавиш, общего для всей системы (типа *Lock).

← →
ANB © (2005-09-01 17:36) [47]

> alpet © (01.09.05 17:30) [46]

- то есть через attach может проканать ? Чего то у меня не получилось. Я код уже писал выше.

← →
begin...end © (2005-09-01 17:40) [48]

> alpet © (01.09.05 17:30) [46]

> Кроме этого - он не изменяет состояния клавиш, общего для
> всей системы (типа *Lock).

Ой.

← →
alpet © (2005-09-01 17:40) [49]

ANB © (01.09.05 17:36) [47]

попробуй. Если правда программа реагирует только на PostMessage (а такое очень даже может быть) - между вызовами SetKeyboardState надо давать ей отработать поступившие сообщения (самое простое - через Sleep). Поскольку PostMessage отправит сообщения в очередь потока сразу, а обработаются они скорее всего после завершения работы твоего кода (включая все вызовы SetKeyboardState).

← →
alpet © (2005-09-01 17:41) [50]

begin...end © (01.09.05 17:40) [48]

Ай ☺. Опять ошибки на внимательность?

← →
begin...end © (2005-09-01 17:45) [51]

> alpet © (01.09.05 17:41) [50]

В смысле? SetKeyboardState нажмёт CAPS LOCK в текущем процессе. Так же как и любую другую клавишу.

← →
ANB © (2005-09-01 17:48) [52]

> begin...end © (01.09.05 17:45) [51]
- вообще то я перевел это, что он лампочки на этих кнопках включать не умеет. А вверху - что только для текущего процесса. Можно как нибудь заставить его в другом процессе работать ?

← →
alpet © (2005-09-01 17:50) [53]

begin...end © (01.09.05 17:45) [51]
Не нажмет, это программно не реализуемо (в смысле физическое нажатие). Функция может установить состояние этой клавиши для вызвавшего потока (и потоков подключенных к вводу, с помощью AttachThread). Светодиод CAPS от этого не загорится. В этом отношении глобальное состояние Caps будет неизменным.

← →
begin...end © (2005-09-01 17:53) [54]

> ANB © (01.09.05 17:48) [52]

> вообще то я перевел это, что он лампочки на этих кнопках
> включать не умеет.

Правильно перевели.

> Можно как нибудь заставить его в другом процессе работать ?

Я бы попробовал внедриться.

> alpet © (01.09.05 17:50) [53]

> Не нажмет, это программно не реализуемо (в смысле физическое
> нажатие).

А что, прямо-таки непонятно было, о чём я говорил?

> Функция может установить состояние этой клавиши для вызвавшего
> потока

И я об этом же. Поэтому непонятно, чем поведение SetKeyboardState в смысле установки состояния CAPS LOCK отличается от случаев с другими клавишами.

> alpet © (01.09.05 17:50) [53]

> begin...end © (01.09.05 17:53) [54]

Я неправильно атач использую или так вообще работать не будет и нужно внедряться ?

ANB © (01.09.05 17:57) [55]

Дело не в аттаче, а синхронизации ввода, и его обработки потоком Magic"a.
ks [VK_CONTROL] := $80; SetKeyboardState(ks); PostMessage (...VK_HOME); Sleep (200); // Magic must handle Ctrl-Home combination ks [VK_CONTROL] := $00; SetKeyboardState(ks);

Тема очень интересная. Хотя я ни когда на работал с клавиатурой на прямую решил попробывать включить/выключить лампочку капслока. За час испытаний получил такой код:
keybd_event(VK_CAPITAL,0,0,0); keybd_event(VK_CAPITAL,0,KEYEVENTF_KEYUP,0);
меняет состояние капслока на противоположное.
А поповоду комбинации, допустим Ctrl+A, на форуме писали:
Нажать (Эмулировать) Ctrl Нажать А Отпустить А Отпустить Ctrl
либо через keybd_event (для активной программы), либо через PostMessage (для определённой программы).

Извините, если сообщение не в тему.

Я так давно читаю эту ветку, что забыл про что спрашивается.
Похоже, что мой ответ в тему, а Ctrl+A лишнее.

> Наиль © (02.09.05 01:18) [57]

1. через keybd_event у меня и так уже все работает.
2. через PostMessage пока не получается (но твой вариант не работает - я уже писал)
3. для многих приложений работает и SendMessage

[62] ANB © (02.09.05 11:12)

почти. вместо $FF надо использовать $81 или $80. При этом старший бит соответствует состоянию клавиши - нажата/не нажата, а младший - состояние в предыдущий раз (т.е. скорее используется для GetKeyboardState).

Попробуй обойтись без Sleep:
begin hm := GetForegroundWindow; ctid := GetCurrentThreadId (); tid := GetWindowThreadProcessId (hm, pid); if tid <> ctid then AttachThreadInput (ctid, tid, true); hProcess := OpenProcess (SYNCHRONIZE, false, pid); h := GetFocus; GetKeyboardState (ks); ks [VK_CONTROL] := $81; SetKeyboardState (ks); PostMessage (h, WM_KEYDOWN, VK_HOME, 0); PostMessage (h, WM_KEYUP, VK_HOME, 0); if hProcess <> 0 then WaitForInputIdle (hProcess, 500) else sleep (500); ks [VK_CONTROL] := $00; SetKeyboardState (ks); if tid <> ctid then AttachThreadInput (ctid, tid, false); CloseHandle (hProcess); end;
Для большей оптимизации hProcess можно получать при запуске программы, например если запускать magic через CreateProcess.

> alpet © (02.09.05 13:14) [66]
- клевая идея. Сейчас попробую. У меня еще одна бяка. Посылаю через WM_Char русские буквы, а приезжают крякозябры. Через keybd_event я переключаю раскладку и все работает. А здесь не хочет. Регистр сохраняется. Английские буквы тоже нормально приезжают.
Виртуальный код пытался генерить 2-мя способами :
1. dwVK := VkKeyScanEx(sKey[1], KBD); // KBD - раскладка
2. dwVK := ord(sKey[1]);
В sKey[1] лежит буква.

Перепроверил - первый вариант даже регистр не сохраняет.

> alpet © (02.09.05 13:14) [66]
- не, перестало работать. Поставил Sleep обратно. Черт с ним, не критично. Пока закоментарил ожидание.

Перед отправкой русских букв надо действительно переключать расскладку, но можно обойтись без keybd_event:
PostMessage (hWnd, WM_INPUTLANGCHANGEREQUEST, 0, $419); // switch to ru PostMessage (hWnd, WM_INPUTLANGCHANGEREQUEST, 0, $409); // switch to eng

Насчет WaitForInputIdle - какой результат функция возвращает? Если ошибку попробуй процесс открывать PROCESS_ALL_ACCESS.

По поводу регистра:
ks [VK_SHIFT] := $81; SetKeyboardState (ks); PostMessage (hWnd, WM_CHAR, Ord ("A"), 0); Sleep (500); ks [VK_SHIFT] := $00; SetKeyboardState (ks); PostMessage (hWnd, WM_CHAR, Ord ("b"), 0); Sleep (500);

> alpet © (02.09.05 15:49) [70]
- так я ее переключал. Короче, спасло вот это :

SendMessage(hWindow, WM_INPUTLANGCHANGE, $CC, KBD);
Причем KBD можно любую передавать. Главное - $CC - на языке включить и везде печататает и по русски и по английски.

> alpet © (02.09.05 15:55) [71]
- да работает уже все ! И регистр и язык и через сообщения и через эмуляцию. Немного с бубном поплясали и готово.

> alpet © (02.09.05 15:55) [71]
- спасибо. Я еще пошаманю с паузой по твоему совету и могу выложить готовый код, может кому надо.

Весьма работоспособен и след. код. Надо только символы в верхнем регистре передавать. Паузу я обычно ставлю в 5 - хватает как правило для notepad.
d := 5; ks [vk_shift] := ks [vk_shift] or $80; SetKeyboardState (ks); PostMessage (h, WM_KEYDOWN, Ord ("A"), 0); Sleep (d); ks [vk_shift] := ks [vk_shift] and $7F; SetKeyboardState (ks); Sleep (d); PostMessage (h, WM_KEYDOWN, Ord ("Q"), 0); Sleep (d);
Если вставить в обработчик таймера, печатае: "AqAqAqAq"

> alpet © (02.09.05 16:20) [76]
Все замечательно работает без пауз и в нормальном регистре, если передавать WM_CHAR. Ну и язык теперь тоже нормально. Спасибо за помощь.

Как включить верхний регистр в чужом процессе ? Найти похожие ветки