Имитация нажатия кнопки

@Dima_control · Регистрация: 28.06.2019

Студворк — интернет-сервис помощи студентам

Есть формат, на ней есть кнопки. При нажатии на кнопку в систему посылает сигнал,что была реально нажата кнопка (допустим блокнот открыт и там текст я мышкой на button на форме нажимаю и там в блокноте пробел появляется).
Есть примеры такого кода? пробовал Keys.send и тому подобное не понял ничего как с этим работать.

@Get_Over_Here · 07.08.2019, 21:24

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

Есть примеры такого кода?

Какого кода? Из того, что вы написали мало что понятно...

@Dima_control · 07.08.2019, 21:34 **[ТС]**

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

Какого кода?

Я создал элемент "Button".
Мне надо что бы при нажатии на эту кнопку имитировался сигнал с клавиатуры - нажатие клавиши 1.

Pascal
1
2
3
4
procedure InPU1.NepIspButt_Click(sender: Object; e: EventArgs);
begin
keypressed ("{1}");
end;

как то так

@Sun Serega · 07.08.2019, 22:04

Так как вы хотите - надо переводить фокус на форму блокнота и затем симулировать нажатие клавиши. И то и то делается через WinAPI (первую функцию ищите на msdn, сам не помню, а вторая - keybd_event).

Примеры - у меня есть целый скриптовый язык для симулирования нажатий. Вот часть занимающаяся нажатиями клавиатуры через keybd_event:
https://github.com/SunSerega/S... .pas#L2120

@Get_Over_Here · 08.08.2019, 15:47

Dima_control, Можно использовать SendMessage, как пример:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
{$reference system.windows.forms.dll}
uses System.Windows.Forms;
uses System;
 
function SendMessage(ControlHandle: IntPtr; MessageId: longword; wParam: IntPtr; lParam: IntPtr): IntPtr;
  external 'User32.dll' name 'SendMessage';
 
var
  f := new Form();
  button := new Button();
 
begin
  f.Resize += (o, e) -> SendMessage(button.Handle, 245, IntPtr.Zero, IntPtr.Zero);
  button.Click += (o,e) -> MessageBox.Show('Меня нжали (:');
  f.Controls.Add(button);
  Application.Run(f);
end.

З.Ы. Не увидел что вам имитацию нажатия клавиши клавиатуры нужно...

@Dima_control · 08.08.2019, 23:14 **[ТС]**

Не работает. выдает ошибки в первой же строке.

@Sun Serega · 09.08.2019, 01:34

А какие ошибки - мы должны догадываться?

@Dima_control · 09.08.2019, 04:45 **[ТС]**

Сообщение от Sun Serega

А какие ошибки

Прошу прощения,фото видимо не прикрепилось

в строчке
external 'User32.dll' name 'SendMessage';

Выдает:
Встрчено 'external', а ожидалось 'forward'

@Sun Serega · 09.08.2019, 10:23

У вас вообще PABC.Net стоит то? Попробуйте обновиться:
http://pascalabc.net/ssyilki-dlya-skachivaniya

@Get_Over_Here · 09.08.2019, 11:38

Dima_control, Если вы пытаетесь использовать мой код, то он вам не подходит, я вам не то предоставил
Для решения вашей задачи лучше использовать SendInput, keybd_event тоже подходит, но msdn пишет что функция была заменена на SendInput:
https://docs.microsoft.com/en-... eybd_event

@Sun Serega · 09.08.2019, 13:29

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

но msdn пишет что функция была заменена на SendInput:

Да, только SendInput криво работает. И его сложнее использовать. Я лично, исходя из своего опыта - не рекомендую.

@Get_Over_Here · 09.08.2019, 13:33

Сообщение от Sun Serega

SendInput криво работает

Я лично его "кривости" не увидел, можете дать наводки, куда копать?

@Sun Serega · 09.08.2019, 13:54

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

Я лично его "кривости" не увидел, можете дать наводки, куда копать?

Ну, в блокноте всё что угодно сработает. Но некоторые приложения отказываются принимать такой ввод, даже если приподнесение богу UIPI (в виде правильного манифеста). Вот SendInput, почему то, с большим кол-вом приложений ломается. По крайней мере на win7 (хотя тестил я плохо, и уже не помню с чем именно). А вот, к примеру, игры, использующие DirectInput - не будут работать ни с keybd_event, ни с SendInput.

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение/ Перевод Сайт называется reddit: The Thinkpad X220 Tablet is the best budget school laptop period. Это. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

@Dima_control 2 / 2 / 0 Регистрация: 28.06.2019 Сообщений: 129 Записей в блоге: 3

	Имитация нажатия кнопки 07.08.2019, 20:57. Показов 2416. Ответов 12 Метки нет (Все метки) Есть формат, на ней есть кнопки. При нажатии на кнопку в систему посылает сигнал,что была реально нажата кнопка (допустим блокнот открыт и там текст я мышкой на button на форме нажимаю и там в блокноте пробел появляется). Есть примеры такого кода? пробовал Keys.send и тому подобное не понял ничего как с этим работать. 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	07.08.2019, 22:04
	Так как вы хотите - надо переводить фокус на форму блокнота и затем симулировать нажатие клавиши. И то и то делается через WinAPI (первую функцию ищите на msdn, сам не помню, а вторая - `keybd_event`). Примеры - у меня есть целый скриптовый язык для симулирования нажатий. Вот часть занимающаяся нажатиями клавиатуры через `keybd_event`: https://github.com/SunSerega/S... .pas#L2120 0

@Dima_control 2 / 2 / 0 Регистрация: 28.06.2019 Сообщений: 129 Записей в блоге: 3
	08.08.2019, 23:14 [ТС]
	Не работает. выдает ошибки в первой же строке. 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	09.08.2019, 01:34
	А какие ошибки - мы должны догадываться? 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	09.08.2019, 10:23
	У вас вообще PABC.Net стоит то? Попробуйте обновиться: http://pascalabc.net/ssyilki-dlya-skachivaniya 0

@Get_Over_Here 79 / 49 / 23 Регистрация: 15.07.2018 Сообщений: 255
	09.08.2019, 11:38
	Dima_control, Если вы пытаетесь использовать мой код, то он вам не подходит, я вам не то предоставил Для решения вашей задачи лучше использовать SendInput, keybd_event тоже подходит, но msdn пишет что функция была заменена на SendInput: https://docs.microsoft.com/en-... eybd_event 0