Скачать: CL | DM;

Вопрос по keybd_event   Найти похожие ветки 

← →
Abibas ©   (2011-07-12 13:00) [0]

Вот программа которая сама нажимает на клавишу А
[ keybd_event(ord("A"),0, 0, 0);
 sleep(800);
 keybd_event(ord("A"),0, KEYEVENTF_KEYUP, 0);]

Вопрос такой! Как сделать чтобы нажималось сразу 2 клавешы(например Shift+A или Alt+A или Ctrl+A)?

ПОЖАЛУЙСТА, ОТВЕЧАЙТЕ ЕСЛИ ТОЛЬКО 100% уверены в своих знаниях!

---

← →
И. Павел ©   (2011-07-12 13:17) [1]

> ПОЖАЛУЙСТА, ОТВЕЧАЙТЕ ЕСЛИ ТОЛЬКО 100% уверены в своих знаниях!

Я бы подсказал (на delphimaster это уже обсуждалось - Kerk © в 2005 году спрашивал), но 100% уверенности нет...

---

← →
Dimka Maslov ©   (2011-07-12 13:23) [2]

Наверное сначала надо симулировать нажатие шифта, затем а, затем отпускание а, затем отпускание шифта, но 100% уверенности нет...

---

← →
Юрий Зотов ©   (2011-07-12 13:31) [3]

Похоже,что это не вопрос, а опрос - кто на 100% уверен в своих знаниях.

---

← →
Омлет ©   (2011-07-12 13:44) [4]

procedure SendKeyInput(AKey: Byte; Flags: DWORD);
var
 Input: TInput;
begin
 Input.Itype := INPUT_KEYBOARD;
 with Input.ki do
 begin
   wVk := AKey;
   dwFlags := Flags or dwFlags;
   time := 0;
   dwExtraInfo := 0;
 end;
 SendInput(1, Input, SizeOf(Input));
end;

...
begin
 SendKeyInput(VK_SHIFT, 0);
 SendKeyInput(ord("A"), 0);
 SendKeyInput(ord("A"), KEYEVENTF_KEYUP);
 SendKeyInput(VK_SHIFT, KEYEVENTF_KEYUP);
end;


100% уверен, зуб даю.

---

← →
Омлет ©   (2011-07-12 13:47) [5]

> dwFlags := Flags or dwFlags;

заменить на

dwFlags := Flags;

---

← →
Плохиш ©   (2011-07-12 14:01) [6]

> ПОЖАЛУЙСТА, ОТВЕЧАЙТЕ ЕСЛИ ТОЛЬКО 100% уверены в своих знаниях!

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

---

← →
Юрий Зотов ©   (2011-07-12 15:41) [7]

> Омлет ©   (12.07.11 13:47) [5]

Нет уж - зуб, так зуб.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.005 c