Горячие клавиши

[xRamzeSx]

http://delphiworld.narod.ru/base/key...eys_down3.html
http://delphiworld.narod.ru/base/key...keys_down.html
Какой исходник использовать?
Или есть более простой и понятный, мне только нужно заставить работать в приложении.

[Stilet]

xRamzeSx

Я никак не могу понять чего ты за этот компонент уцепился...
Что тебе дает посылка нажатия клавиш?

[Sibedir]

Stilet, это к он-лайн игре. Человек пытается автоматизировать некоторые вещи. Ушел, например, на учебу или работу, а твой герой весь день сам прокачивается. Потом на этом и заработать можно.
Цель хорошая. Можно будет не тратить драгоценное время на неинтересную и нудную прокачку, а играть просто в удовольствие. К тому же можно и свои настоящие навыки повысить, так сказать прокачаться по программированию (только, мне кажется для этих целей сейчас xRamzeSx'у подошла бы задачка попроще).

P.S.: xRamzeSx, только ради бога не увлекайтесь. Оно может оказаться того не стоит.

---------------------------------------------------------------------------------------------------------------------------------------------------

Какой исходник использовать?

PostKeyExHWND - скорее всего не подойдет. Он отправляет сообщение окну по хэнделу (PostMessage), а кто знает, что окно его обработает. См. выше пост #24. Там многоуважаемый Stilet давал ссылку на пример. В примере сообщение отправляется не окну, а дочернему оконному элементу, который нужно явно указать. Тут петрушка вообще может быть жестче и никто из элементов форму твои "горячие клавиши" не обработает.

Поправте меня Stilet, если я опять ошибаюсь. Я эту тему еще до конца не выкурил, а в разговор залез ибо тема меня самого интересует.

[Stilet]

Поправте меня

Зачем? Итак понятно что это дело гиблое. Такие программы обычно не стабильны - может сработать а может быть и нет.

[Sibedir]

А что на счет keybd_event и ему подобных?

[xRamzeSx]

Sibedir Если вы не понимаете суть программы. попробуйте в игре, в карман взять 6 филе куриц. В этом же городе, где Вы сейчас находитесь, найдите кухню, и попробуйте сочетаниями Alt+1... Alt+6 понажимать, и на микроволновку. В левом верхнем углу, Вы увидите, что сочитание активно. Вот кухня на карте:

[Sibedir]

Кур где взять? Я голодранец.

[xRamzeSx]

Вот это место:

[Sibedir]

Ну вот. Из того же Delphi Word 6 Pro. Ни строчки из PostKeyEx32 не правил.
Тока обработчик кнопки свой написал. Кликнул на кнопку, перешел в окно игры (специально паузу поставил), и съел курицу в автоматическом режиме.

procedure PostKeyEx32(key: Word; const shift: TShiftState; specialkey: Boolean);
 type
   TShiftKeyInfo = record
     shift: Byte;
     vkey: Byte;
   end;
   byteset = set of 0..7;
 const
   shiftkeys: array [1..3] of TShiftKeyInfo =
     ((shift: Ord(ssCtrl); vkey: VK_CONTROL),
     (shift: Ord(ssShift); vkey: VK_SHIFT),
     (shift: Ord(ssAlt); vkey: VK_MENU));
 var
   flag: DWORD;
   bShift: ByteSet absolute shift;
   i: Integer;
 begin
   for i := 1 to 3 do
   begin
     if shiftkeys[i].shift in bShift then
       keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), 0, 0);
   end; { For }
   if specialkey then
     flag := KEYEVENTF_EXTENDEDKEY
   else
     flag := 0;

   keybd_event(key, MapvirtualKey(key, 0), flag, 0);
   flag := flag or KEYEVENTF_KEYUP;
   keybd_event(key, MapvirtualKey(key, 0), flag, 0);

   for i := 3 downto 1 do
   begin
     if shiftkeys[i].shift in bShift then
       keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0),
         KEYEVENTF_KEYUP, 0);
   end; { For }
 end; { PostKeyEx32 }

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  sleep (2000);
  beep;
  PostKeyEx32(Ord('1'), [ssAlt], False);
  beep;
end;

Н-н-н, да. Удобно так лечится во время битвы.

[xRamzeSx]

У меня что-то наверное не так выходит. Не могли бы вы свой пример выложишь?