对qq感兴趣的这里看？

[CYG369]

我的想找qq 与某人聊天的句柄：程序如下
procedure TForm1.BtnTestClick(Sender: TObject);
var
qq0, qq1, qq2, qqrich, hsend: hwnd;

begin
qq0 := FindWindowEx(qqhwnd, 0, '#32770', 0);//qqhwnd 为对话窗体的句柄
qq1 := FindWindowEx(qq0, 0, 'AfxWnd42', 0);
qq2 := FindWindowEx(qq1, 0, 'RICHEDIT', 0);
hSend := FindWindowEx(qq0, 0, 0, '发送(&S)');
Memo1.Lines.Add('主窗体: ' + inttohex(qq0, 8));
Memo1.Lines.Add('AfxWnd42: ' + inttohex(qq1, 8));
Memo1.Lines.Add('RICHEDIT: ' + inttohex(qq2, 8));
j := sendmessageA(qq2, WM_SETTEXT, 0, integer(pchar('text')));
Memo1.Lines.Add('粘贴 length: ' + inttostr(j));
sendmessage(hSend, BM_CLICK, 0, 0); //点击发送按钮
Memo1.Lines.Add('发送 句柄: ' + inttohex(qqbt(1), 8));

end;

qqwnd,qq0,qq1,qq2,hsend 的句柄和用spy＋＋ 找到的句柄一样，为啥信息不能发给qq2？
sendmessageA(qq2, WM_SETTEXT, 0, integer(pchar('text'))); //发送不成功啊
不知道这是为啥啊 ？那位做过 指点一下啊 多谢!

是不是WM_SETTEXT 和WM_PASTE 对qq无效呢？

[jacklzw88]

这是delphi啊，怎么到这里来了，现在一般的密码框控件都屏蔽了一些消息：）
而且qq的密码框还使用了键盘挂断技术。
只有delphi里的密码框控件还能直接得到密码文本，呵呵

[CYG369]

但是qq骂人机 为啥就行啊？
有谁知道QQ2005骂人机 是咋样给RICHEDIT 发信息的 ？？？？