KeyStuff или эмуляция нажатий клавиш

@Grigoriy251 · Регистрация: 11.01.2011

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

Программа для DOS.
По сути программа должна выводить(вводить) в командной строке
"1234567890QWERTYUIOP"+$13
"POIUYTREWQ0987654321"+$13

А результат "POIUYTREWQ09876" грубо говоря 16 символов (буфер клавиатуры рассчитан на 16 символов)

Как добиться нужного результата.
А то уже 2 недели мучаюсь с простой программой.
Заранее благодарен.

Pascal
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
44
45
{$M $4000, 0, 0 }
USES
    Dos, Crt;
 
VAR
    i,i1:integer;
    sim:Word;
    slovo: String;
    Text : array[0..200] of string;
    PortVec : Procedure;
 
 
{$F+}
 
procedure WriteKey(Key:Word);Assembler;
asm
 Mov ah,5
 mov CX,Key
 int 16H
end;
 
Procedure Keyboard;interrupt;
 
begin
text[0]:='1234567890QWERTYUIOP';
text[1]:='POIUYTREWQ0987654321';
for i:=0 to 1 do
 begin
  slovo:=text[1];
  for i1:=1 to length(text[i]) do
    begin
      sim:=ord(slovo[i1]);
      WriteKey(sim);
    end;
    WriteKey($0D);
 end;
inline ($9C);
PortVec;
end;
 
BEGIN
GetIntVec($9,@PortVec);
SetIntVec($9,Addr(Keyboard));
Keep(0);
END.

@Grigoriy251 · 17.01.2011, 23:26 **[ТС]**

Вопрос исчерпан. додумался сам...
Задача заключалась в следующем, есть агрегат который начинает передавать данные после посылки в него бита "$6", затем нужно было считать данные из COM1 и послать их в порт клавиатуры чтобы нажались клавиши которые получили из порта COM1. И все это должно было происходить резидентно.

Кому нужна будет помощь по этому вопросу обращайтесь.

14.03.2012, 13:34

может мне подскажешь или кто-нибудь другой подскажет, такая ситуация,нужно привязать кнопку к порту, т.е. есть принципиально собранная схема, на ней лампочка обыкновенная подключена(не буду вдаваться в схему), мне нужно просто по нажатию клавиши чтобы она загоралась и причем, с каждым нажатием одной она становилась ярче(на какой-ниб процент), по нажатию другой она угасала, порт 378.

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

Pascal
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
program laba2;
uses crt;
const ft=50;
var ti,ts,i,g:integer;
begin
g:=10;
i:=0;
repeat
for g:= 0 to 50 do
begin
for i:= 0 to 300 do
begin
port[$378]:=1;
delay(g);
port[$378]:=0;
delay(50-g);
end;
end;
for g:= 0 to 50 do
begin
for i:= 0 to 300 do
begin
port[$378]:=1;
delay(50-g);
port[$378]:=0;
delay(g);
end;
end;
until keypressed;
{port[$378]:=0;}
end.

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

06.08.2012, 01:03

Слушай, твой код скомпилировался но что то не очень пойму как он работает. Подскажи плиз как реализовать задачу: Чтобы после запуска программа с переодичностью эмулировала нажатие любой клавиши? Необходимо вырубить слип мод. Т.е. программа должна сидеть в памяти.

Новые блоги и статьи Все статьи Все блоги /
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .

@Grigoriy251 39 / 27 / 1 Регистрация: 11.01.2011 Сообщений: 113
	17.01.2011, 23:26 [ТС]
	Вопрос исчерпан. додумался сам... Задача заключалась в следующем, есть агрегат который начинает передавать данные после посылки в него бита "$6", затем нужно было считать данные из COM1 и послать их в порт клавиатуры чтобы нажались клавиши которые получили из порта COM1. И все это должно было происходить резидентно. Кому нужна будет помощь по этому вопросу обращайтесь. 1

arvbs
	06.08.2012, 01:03
	Слушай, твой код скомпилировался но что то не очень пойму как он работает. Подскажи плиз как реализовать задачу: Чтобы после запуска программа с переодичностью эмулировала нажатие любой клавиши? Необходимо вырубить слип мод. Т.е. программа должна сидеть в памяти.