xFire Chatfenster Text senden !?!

[Rastaman]

Also so funktioniert es mit dem Fenster wo alle Nachrichten drin landen

Delphi-Quellcode:

var
  wnd: HWND;
begin
  wnd := FindWindow('ChatSkinWnd', nil);
  wnd := FindWindowEx(wnd, 0, '#32770', nil);
  wnd := FindWindowEx(wnd, 0, 'RichEdit20W', nil);
  SendMessage(wnd, WM_SETTEXT, 0, Integer(PChar('ROFL')));