Keybd_Event Коды Клавиш
Руководство по эксплуатации и ремонту тоуран 1.4 tsi. VW Jetta V Руководство по эксплуатации, техническому обслуживанию. По ремонту и эксплуатации; Бензиновые двигатели: BCA/BKG/BLN 1.4 л.
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Имитация нажатий клавиш клавиатуры (Delphi): Всем привет! Прошу помочь мне. Я искал в интернете но там как то сложно. Я думаю можно обойтись от таких сложностей. У меня есть залогированы клавиши в блокноте в таком виде(много): Как мне заставить их из блокнота или из Мемо нажиматся в цикле? Мне нужно написать маленькую программку, которая выполняла бы следующую операцию: необходимо, чтобы при нажатии сочетании. Понадобилось сделать сабж, но дело тут вот в чем.
Вопрос: Зажатие клавиши (или нескольких клавиш) на некоторое время.
Счетчик должен плюсовать только нажатия 'обычных' клавиш (ну т.е. Подскажите пожалуйста, как можно эмулировать нажатия клавиш в браузерную строку, если я знаю хендл окна браузера.
Все мои попытки сделать. Дайте плиз кто-нибудь пример или исходник с использованием ReadProcessMemory и WriteProcessMemory, читал статьи всякие, постоянно. 1 keybdevent (bVk: Byte; bScan: Byte; dwFlags, dwExtraInfo: DWORD ); Объявлена она в модуле Windows.
BVk - виртуальный код клавиши. BScan - аппаратный скан-код.
Устанавливаем = 0. DwFlags - флаг, задающий нажатие или отпускание клавиши. Если требуется, имитация нажатия: dwFlags = 0, имитация отпускания: dwFlags = KEYEVENTFKEYUP.
Ещё этот параметр может быть установлен = KEYEVENTFEXTENDEDKEY. Это значение использовать не будем. Оно связано со скан-кодом.
DwExtraInfo - дополнительные данные, связанные с событием от клавиатуры. Установить = 0. Например, имитация 5 нажатий клавиши F7. 1 2 3 4 5 6 7 keybdevent (VKLCONTROL, 0, 0, 0 ); //Нажатие левого Ctrl. Keybdevent (VKLSHIFT, 0, 0, 0 ); //Нажатие левого Shift. Keybdevent ( Ord ( 'Z' ), 0, 0, 0 ); //Нажатие 'z'. Keybdevent ( Ord ( 'Z' ), 0, KEYEVENTFKEYUP, 0 ); //Отпускание 'z'.
Keybdevent (VKLSHIFT, 0, KEYEVENTFKEYUP, 0 ); //Отпускание левого Shift. Keybdevent (VKLCONTROL, 0, KEYEVENTFKEYUP, 0 ); //Отпускание левого Ctrl. Ещё следует обратить внимание на такой момент.
Keybd_event Коды Клавиш
Если требуется имитировать ввод буквы в нижнем регистре, например: 's', тогда код соответствующей клавиши надо задать через Ord('S'), а не Ord('s'). Если же требуется задать ввод буквы в верхнем регистре, понадобится имитировать нажатие клавиши Shift и 's'. Например, имитация ввода в Мемо слова 'Start'. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 //Устанавливаем фокус ввода на Мемо1. SetFocus; //Ввод 'S'. Keybdevent (VKLSHIFT, 0, 0, 0 ); //Нажатие левого Shift. Keybdevent ( Ord ( 'S' ), 0, 0, 0 ); //Нажатие 's'.
Keybdevent ( Ord ( 'S' ), 0, KEYEVENTFKEYUP, 0 ); //Отпускание 's'. Keybdevent (VKLSHIFT, 0, KEYEVENTFKEYUP, 0 ); //Отпускание левого Shift. //Ввод 't' keybdevent ( Ord ( 'T' ), 0, 0, 0 ); //Нажатие 't'. Keybdevent ( Ord ( 'T' ), 0, KEYEVENTFKEYUP, 0 ); //Отпускание 't'. //Ввод 'a' keybdevent ( Ord ( 'A' ), 0, 0, 0 ); //Нажатие 'a'.
Keybdevent ( Ord ( 'A' ), 0, KEYEVENTFKEYUP, 0 ); //Отпускание 'a'. //Ввод 'r' keybdevent ( Ord ( 'R' ), 0, 0, 0 ); //Нажатие 'r'. Keybdevent ( Ord ( 'R' ), 0, KEYEVENTFKEYUP, 0 ); //Отпускание 'r'. //Ввод 't' keybdevent ( Ord ( 'T' ), 0, 0, 0 ); //Нажатие 't'. Keybdevent ( Ord ( 'T' ), 0, KEYEVENTFKEYUP, 0 ); //Отпускание 't'. При работе с keybdevent надо следить за последовательностью нажатий/отпусканий - каждому нажатию должно соответствовать отпускание (не обязательно последовательно, как например в случае имитации Ctrl+Shift+z и пр.). Если, выполнить два раза подряд отпускание клавиши - второе отпускание не произведёт никаких действий.
А как сделать как говорил Kapernik, чтобы между нажатиями был таймаут, заданный в секундах?? Для этого, между вызовами keybdevent или mouseevent, можно вызывать процедуру Sleep. Она приостанавливает выполнение программы на заданное количество миллисекунд. Значение задержки в миллисекундах передаётся процедуре Sleep в качестве параметра.
В нашем случае, перед вызовом процедуры Sleep надо обязательно вызвать метод: Application.ProcessMessages; - это позволит главному окну приложения обработать сообщения, посланные ему процедурой keybdevent. Если этого не сделать - тогда все сообщения будут обработаны только после окончания нашей процедуры. Это означает, что все задержки по всем вызовам Sleep внутри нашей процедуры просуммируются и в течение этого времени никаких изменений в реакции приложения (в том числе на экране, если задумано что-то выводить) не будет. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 procedure TForm1. Button1Click (Sender: TObject ); begin //Устанавливаем фокус ввода на Мемо1. SetFocus; //Ввод 'S'.
Keybdevent (VKLSHIFT, 0, 0, 0 ); //Нажатие левого Shift. Keybdevent ( Ord ( 'S' ), 0, 0, 0 ); //Нажатие 's'. Keybdevent ( Ord ( 'S' ), 0, KEYEVENTFKEYUP, 0 ); //Отпускание 's'. Keybdevent (VKLSHIFT, 0, KEYEVENTFKEYUP, 0 ); //Отпускание левого Shift. //Позволяем нашему приложению обработать сообщения, отправленные через keybdevent. ProcessMessages; //Пауза 1000 мсек = 1 сек.
Sleep ( 1000 ); //Ввод 't' keybdevent ( Ord ( 'T' ), 0, 0, 0 ); //Нажатие 't'. Keybdevent ( Ord ( 'T' ), 0, KEYEVENTFKEYUP, 0 ); //Отпускание 't'. ProcessMessages; Sleep ( 1000 ); //Ввод 'a' keybdevent ( Ord ( 'A' ), 0, 0, 0 ); //Нажатие 'a'. Keybdevent ( Ord ( 'A' ), 0, KEYEVENTFKEYUP, 0 ); //Отпускание 'a'. ProcessMessages; Sleep ( 1000 ); //Ввод 'r' keybdevent ( Ord ( 'R' ), 0, 0, 0 ); //Нажатие 'r'. Keybdevent ( Ord ( 'R' ), 0, KEYEVENTFKEYUP, 0 ); //Отпускание 'r'.
ProcessMessages; Sleep ( 1000 ); //Ввод 't' keybdevent ( Ord ( 'T' ), 0, 0, 0 ); //Нажатие 't'. Keybdevent ( Ord ( 'T' ), 0, KEYEVENTFKEYUP, 0 ); //Отпускание 't'. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 procedure TForm1. Amakl, все зависит от объема копируемого текста и быстродействия твоего компа, проверено на практике. Решения могу предложить 3: 1) вставка задержки (подбирается пробным путем); 2) замена 'Ctrl+C' на 'Ctrl+X' и перед выводом текста в файл переодичная проверка текста окна; 3) замена всех кейбордных операций на ф-ии работы с окнами (поиск окна), считывание текста и т.д. 3-й вариант самый удобный, но он к сожалению не подходит.
Текст надо считать из чата покерного клуба, в котором оконные функции не отличают дескриптор дочерних окон от дескриптора основного окна, и найти окошко чата не получается. Находить его планировал, двигаясь по окну, имтируя нажатие tab. Может есть какие-то другие пути, чтобы найти дочернее окно в данной ситуации? 2-й вариант не совсем понял, но поскольку из окошка нельзя вырезать, он, видимо, не годится. 1-й вариант с задержкой попробывал - работает.
Вопрос - насколько надежен данный метод? На других компах с меньшим быстродействием может не сработать? Могут ли быть ситуации (например, большая нагрузка на процессор), когда метод не сработает?
Вот еще темы с ответами: Вот в чем беда, перейду сразу к теме что бы не морочить всем мозг ибо все равно придется вскрыть все карты, есть такая онлайн игра Карос. Я пытаюсь написать бот для одной онлайн игры и в ней этот бот не работает, хотя сама игра работает в окне и не на полный экран. Есть база данных из которой в переменную выгружаем значения. Вопрос как заставить delphi 7 эмулировать набор этого значения. Нужно поместить код на таймер, и что-бы при его активации каждый символ в memo включая enter(#13), то есть все строки переписывались.
Или воспользуйтесь поиском по форуму.