[DELPHI]Send Befehle?

03/20/2010 10:35 Der P-er#1
Guten Tag E*PVP,
ich habe eine Frage und zwar : ICh kenne mich noch nicht so gut in Delphi aus aber hab schon ein paar Kentnisse. Nun will ich einen Bot für MEtin2 schreiben, welcher ein paar Tasten senden soll aber ich weiß die Sende Befehle nicht kann die mir bitte jemand sagen?


MfG
03/20/2010 10:37 HardCore.1337#2
SendMessage/PostMessage

Bei Fragen PN an mich
03/20/2010 10:55 Der P-er#3
Danke
03/20/2010 10:57 Der P-er#4
Sry wegen Doppelpost hab jeztz noch eine Frage wie wird das geschrieben?
So?
SendMessage(W)
oder wie?
MfG
03/20/2010 11:02 HardCore.1337#5
empfehle dir PostMessage

Syntax: PostMessage(Handle, Flag, Key, 0)

Code:
Postmessage (Handle von Metin, WM_KEYDOWN, Ord(W), 0); 
PostMessage (Handle von metin, WM_KEYUP, Ord(W), 0);
Das Beispiel schickt an das METIN Fenster die Taste W.
Das packst du in eine Procedure, beispielsweise

Code:
var wnd: HWnd;
wnd := FindWindow(nil, Metin2);

Procedure Send(Key: PChar);
begin
  PostMessage(wnd, WM_KeyDown, Ord(Key), 0);
  PostMessage(wnd, WM_KEYUP, Ord(Key), 0);
end;

...

Send('W'); //sendet W
Send('A'); //sendet A
03/20/2010 11:12 Der P-er#6
Danke
03/20/2010 11:35 HardCore.1337#7
Procedure Send(Key: Cardinal);

So ist richtig