Tastendruck im spiel simulieren

[sportkeks]

Hi ich hab ein problem und hoffe hier kann mir jemand weiter helfen ich möchte das wenn ich eine bestimmte taste drücke (in dem fall ",") das dan eine andere taste (in dem fall "´") ganz oft hintereinander im spiel gedrückt wird.

das ist mein code bis jetzt:

Delphi-Quellcode:

var
  Form1: TForm1;
  Pressed:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
keypreview:=true;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_DECIMAL then Pressed:=1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if pressed = 1 then
  begin
    keybd_event(VKKeyScan('´'),0,0,0);
    keybd_event(239, 0, KEYEVENTF_KEYUP, 0);
  end;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_DECIMAL then Pressed:=0;
end;

end.

Das Problem:
Der code funktioniert nur wenn ich im programm bin also wenn ich zb in ein memo oder so reindrücke und dan "," drücke.
Aber sobald ich in Notepad das machen will geht es nicht genaus so wenig wie im spiel.
weiß jemand da eine lösung?

würde mich sehr über eine antwort freuen

greetz
Sportkeks

[Medium]

Schau dir mal SendInput an.

[Noedel]

hört sich ein wenig danach an, alsob da jemand bei WoW creepen gehen will...

[sportkeks]

nein da muss ich dich leider entäuschen ich spiele kein wow ^^

[fkerber]

Hi!

Für welches Spiel soll es denn sein?


Ciao, Frederic

[himitsu]

Das Problem:

Zitat:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_DECIMAL then Pressed:=1;
end;

da kommen nur Tasten an, welche an dein Programm gesendet werden ...
bist du aber im Spiel oder woanders, dann werden die Tasten natürlich "nur" an dieses andere Programm gesendet :zwinker:

[sportkeks]

Zitat:

Zitat von Medium

Schau dir mal SendInput an.

hmm ich habe damit rumprobiert aber es nicht wirklich hinbekommen ich bin noch ein delphi anfänger und seh da nicht wirklich duch ^^

eine kleine erklärung oder sowas wäre sehr hilfreich.

@himitsu

ja du hast recht aber wie kann ich es machen das das programm auch keys empfängt wenn ich im spiel bin ?

habe die zeile jetzt mit

Delphi-Quellcode:

if (GetASYNCKeyState (VK_DECIMAL) <> 0) then Pressed:=1;

ersetzt aber immernoch kein erfolg :/

[lbccaleb]

Suche mal nach "HotKey", damit kannst du System weit einen Hotkey registrieren..

[himitsu]

Zitat:

Zitat von sportkeks

habe die zeile jetzt mit ... ersetzt aber immernoch kein erfolg :/

ja, weil diese Zeile nicht ausgeführt wird, weil doch FormKeyDown von außen nicht aufgerufen wird ;)

Und wie schon gefragt, welches Spiel denn?
Einige Spiele fangen derartige Cheatversuche ab
und in den AGBs vieler (Online)Spiele ist sowas auch noch verboten und bei erkennen kann da gleich mal der Account dran glauben.

[Daniel]

Ganz kurz zur Erläuterung:

Solange wir allgemein darüber sprechen, wie man von Anwendung A an Anwendung B einen Tastendruck senden kann, ist das völlig in Ordnung. In dem Moment, in dem ein konkretes Ziel (Online-Soiel oder -Plattform oder dgl.) genannt oder deutlich erkennbar wird, reden wir im weitesten Sinne oder einen Angriff bzw. eine Attacke und ich mache das Thema zu.

[sportkeks]

Zitat:

Zitat von himitsu

Zitat:

Zitat von sportkeks

habe die zeile jetzt mit ... ersetzt aber immernoch kein erfolg :/

ja, weil diese Zeile nicht ausgeführt wird, weil doch FormKeyDown von außen nicht aufgerufen wird ;)

....

omg ich depp...
ich danke dir da wär ich nie drauf gekommen

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (GetASYNCKeyState (VK_DECIMAL) <> 0) then
  begin
    keybd_event(VKKeyScan('´'),0,0,0);
    keybd_event(239, 0, KEYEVENTF_KEYUP, 0);
  end;
end;

das ist jetzt mein ganzes programm und es funzt in allen anderen anwendungen auch :P

machnmal kann es doch soo einfach sein ^^

danke auch an alle anderen die hier was zu gepostet haben :D

greetz
Sportkeks

[simple_me]

Ich finds zwar schön ,dass das funktioniert, aber das eigentlich Mittel, um Nachichten systemweit abzufangen sind doch hooks, oder irre ich mich da? An deiner Lösung is halt das doofe, das sie jede Millisekunde ( Sekunde, was auch immer) nachprüft, und so Leistung zieht. Wenn dich das Thema weiter interressiert, kannst du ja mal hier rein gucken. delphi-treff tutorial :)

[SirThornberry]

@simple_me: ich stimme dir zu das man in den meisten Fällen dafür hooks verwendet. Aber ich finde dies zeigt das man nicht immer tief ins System eingreifen muss wenn es auch einfacher geht. :-) Und es zeigt schön das man nicht alles wissen muss sondern das vieles auch mit einfachen Mitteln möglich ist (wenn auch nicht so elegant).

[simple_me]

joa. Wenn er damit zufrieden ist, will ich gar nichts gesagt haben :-D .
Wollte es ihm nur zeigen.