获取取QQ中的文字 ( 积分: 0 )

如何分别获取QQ聊天窗口中，上下窗口的内容。
上面窗口：显示两人已发送的文字内容。
Spy++文字显示组件观察类名为：AfxWnd42。

下面窗口：显示要发送的文字内容。
Spy++文字显示组件观察类名为：RichEdit20A。

Spy++观察QQ聊天窗口类名为：#32770 (对话框)。

谢谢。

谁帮助一下,呵呵.谢谢.

我在网上找到的代码，我就不想编了。
其实也都很简单的。
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Memo1: TMemo;
Label1: TLabel;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Sign: string;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
Title: array[0..255] of Char;
QQText: Pchar;
Long: Integer;
hLastWin: THandle;
begin
try
Timer1.Enabled := False;
hLastWin := GetForegroundWindow;
Getwindowtext(hLastWin, Title, 255); //获取窗口标题
if (Pos('聊天中', Title) > 0) then
begin
hLastWin := FindWindowEx(hLastWin, THandle(nil), '#32770', nil);
if hLastWin = 0 then Exit;
hLastWin := FindWindowEx(hLastWin, THandle(nil), 'RichEdit20A', nil);
if hLastWin = 0 then Exit;
Long := SendMessage(hLastWin, WM_GETTEXT, 0, 0) + 1;
GetMem(QQText, Long);
SendMessage(hLastWin, WM_GETTEXT, Long, Integer(QQText));
end else Exit;
try
if QQText <> '' then
begin
Memo1.Text := QQText;
end;
finally
FreeMem(QQText);
end;
finally
Timer1.Enabled := True;
end;
end;

end.

在此，
真诚的感谢canytom.
谢谢并结贴。

这是取上面窗口的代码。QQ下面的打字窗口中的文字怎么取啊。
我急等。

同上述QQ原理,请问如何取得MSN聊天窗口中的内容.

提前并收藏

据说MSN的窗口聊天内容要用注入内在地址的方法获取,谁有办法.
提供一下,谢谢.

QQ下面的打字窗口中的文字怎么取啊
我用 AfxWnd42 不行啊 取不到啊