xFire Chatfenster Text senden !?!

[Assun]

Hi !

Ich will so eine Art xFire away-bot schreiben.

dazu muss ich das Fenster finden und text senden und den senden button drücken - doch wie immer klappt gar nix

hier der Code :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  mystring: string = 'Ich bin gerade nicht am PC !';
var
  wh: HWND;
  i: Integer;
begin
  wh := FindWindow('Sky Walker - Chat-Fenster', 'ChatSkinWnd'); // Window finden
  Windows.SetFocus(wh); // Focus auf das empfangende Prg. damit es auch Keys verarbeitet ?
  if wh <> 0 then
  begin
    for i := 1 to length(mystring) do
    begin
      // Word() oder Ord() - Hauptsache aus z.B. 'A' wird 65 :-)
      SendMessage(wh, WM_CHAR, Word(mystring[i]), 0);
    end;
    Windows.SetFocus(Handle); // Focus auf dein Prg.
  end else
    ShowMessage('Sorry, Window not found, start the Notepad pleace ?');
end;

ich hab mal die ganzen classnamen als bild angehängt.

desweiteren weiss ich auch noch nicht wie ich den button drücken soll, oder wie er heisst..

ihr seht ich habe mal wieder ein Sack voll Probleme

ich würde mich über nen paar tipps sehr freuen

Gruß Assun

PS : ich hab hier mal noch die classennamen als bild angehängt :