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

@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.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

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

	Имитация нажатия кнопки 07.08.2019, 20:57. Показов 2437. Ответов 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