找到句柄之后为什么用WM_SETTEXT不能改变RICHEDIT的Caption。

Question

一个朋友让我帮着做一个QQ聊天室里自动发言的小程序，本来以为挺简单，但是做上之后才发现问题挺难哦。
程序是用鼠标找到QQ聊天室输入框的句柄，这个地方都搞室了，没什么问题，用SPY＋＋等工具检查过，是正常的，程序出问题的地方应该在发送消息的地方，该编辑框类为RICHEDIT，程序实现发送消息的过程如下：
SendMessage(Twnd, WM_SETTEXT, 256, Integer(Pchar(StrBuf)));在该聊天室的界面下试了一下，设置一些按钮和LABEL都行，就是这个RichEdit搞不定。
问题出在什么地方，请高手帮帮忙，在这里多谢了。另外，像SPY＋＋用鼠标找句柄时，当鼠标移动到一个控件时，会用一个方框标示出该控件的边界是怎么实现的。是不是有Windows消息可以取得鼠标当前所在控件的边界坐标，之后用canv画出边界的？最好有源码。小弟在这里多谢了，在线等，问题解决了马上给分，分不够可再加100，多谢各位了。

Answer 1

对了，用WM_PASTE消息可以改变发言框里的文字，但是由于要自动把一个文本的内容分行发出去，所以用WM_PASTE不太合适。所以就没有考虑这个方法。

Answer 2

唯一的原因，就是QQ聊天室屏蔽了RichEdit的WM_SETTEXT消息

Answer 3

//下面的文章看了，我相信楼主就明白了
ＱＱ尾巴病毒的发送原理分析[转]近来ＱＱ尾巴病毒大肆发作，我也是经常收到网友们发到来的带尾巴的消息，于是，好奇心一来，我也来研究研究此病毒的发作原理。首先，我不知道ＱＱ尾巴病毒真正的原理，我只是猜测并且自己写了一个类似的程序来实现它。ＱＱ尾巴的发作情况：当用户打开一个ＱＱ消息发送窗口时，病毒会自动往消息文本框里输入文本，然后不等用户反应过来就发出去了。程序实现：首先要找到ＱＱ消息发送窗口的句柄以及消息文本框与“发送”按钮的窗口句柄。一、如何找到ＱＱ消息发送窗口句柄：ＱＱ消息发送窗口有两种，一种是消息模式，在这种情况下，窗口标题含有“发送消息”字样；一种是聊天模式，窗口标题含有“聊天中”字样；通过枚举窗口就可找到相应的句柄：// 取得ＱＱ的发送消息窗口function GetQQWnd: HWND;var  hCurrentWindow: HWnd;  WndText:String;begin  hCurrentWindow := GetWindow(Application.Handle, GW_HWNDFIRST);  while hCurrentWindow <> 0 do  begin    WndText:=GetWndText(hCurrentWindow);    if (Pos('聊天中',WndText)>0) or (Pos('发送消息',WndText)>0) then    begin      Result:=hCurrentWindow;      Exit;    end;    hCurrentWindow := GetWindow(hCurrentWindow, GW_HWNDNEXT);  end;  Result:=0;end; 二、  如何找到“发送”按钮窗口句柄：找到了ＱＱ的发送消息窗口后，就可以进一步查找“发送”按钮句柄了，如窗口句柄为qqWnd，则可以用一个循环，查找文本中含有“发送”字样的窗口，经过试验发现，“发送”按钮恰恰是窗体的第一个子窗口，这样，可以用btnWnd:=GetDlgItem(qqWnd,1);  // 发送按钮来获得“发送”按钮的句柄。 三、 如何找到消息文本框窗口句柄：消息文本框并不好找，不过你可以先在消息文本框中输入几个字母，如“abcd”，这样我们就可以用上述方法来查找了，不过通过实验后，发现消息文本框并不是ＱＱ窗口的直接子窗口，而是其中一个子窗口的子窗口，通过实验，可以用txtWnd:=GetWindow(GetDlgItem(qqWnd,0),GW_CHILD);  // 文本框来获得。 四、 如何获得原消息文本框的文本：要获取原消息文本框的文本，只需要一个ＡＰＩ函数就行了，如下：// 获得窗口文本function GetWndText(hWnd: HWND): String;Var  Ret:LongInt;  mText:PChar;  Buf:Integer;begin  Ret:=SendMessage(hWnd,WM_GETTEXTLENGTH,0,0)+1;  GetMem(mText,Ret);  try    Buf:=LongInt(mText);    SendMessage(hWnd,WM_GETTEXT,Ret,Buf);    Result:=StrPas(mText);  finally    FreeMem(mText,Ret);  end;end; 五、  如何住原消息文本框里追加文本：与取文本相反// 发送文本到窗口procedure SetWndText(hWnd: HWND; Text: String);Var  Ret:LongInt;  mText:PChar;  Buf:Integer;begin  GetMem(mText,Length(Text));  StrCopy(mText,PChar(Text));  try    Buf:=LongInt(mText);    SendMessage(hWnd,WM_SETTEXT,0,Buf);  finally    FreeMem(mText,Length(Text));  end;end;六、 如果让“发送”按钮自动点击：一切都准备好了，现在要开始发送了，为了让消息自动发送，我们可以模拟“发送”按钮被点击了。  SendMessage(btnWnd,WM_LBUTTONDOWN,MK_LBUTTON,0);  SendMessage(btnWnd,WM_LBUTTONUP,0,0);通过模拟一个鼠标在“开始”按钮上的按下与放开，就实现了点击发送功能。 七、  其它的定时功能比较简单，在此也不多说了。 八、  全部源代码如下：unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls; type  TForm1 = class(TForm)    Timer1: TTimer;    Button1: TButton;    Edit1: TEdit;    Label1: TLabel;    Button2: TButton;    procedure Timer1Timer(Sender: TObject);    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} // 获得窗口文本function GetWndText(hWnd: HWND): String;Var  Ret:LongInt;  mText:PChar;  Buf:Integer;begin  Ret:=SendMessage(hWnd,WM_GETTEXTLENGTH,0,0)+1;  GetMem(mText,Ret);  try    Buf:=LongInt(mText);    SendMessage(hWnd,WM_GETTEXT,Ret,Buf);    Result:=StrPas(mText);  finally    FreeMem(mText,Ret);  end;end;// 发送文本到窗口procedure SetWndText(hWnd: HWND; Text: String);Var  Ret:LongInt;  mText:PChar;  Buf:Integer;begin  GetMem(mText,Length(Text));  StrCopy(mText,PChar(Text));  try    Buf:=LongInt(mText);    SendMessage(hWnd,WM_SETTEXT,0,Buf);  finally    FreeMem(mText,Length(Text));  end;end;// 取得ＱＱ的发送消息窗口function GetQQWnd: HWND;var  hCurrentWindow: HWnd;  WndText:String;begin  hCurrentWindow := GetWindow(Application.Handle, GW_HWNDFIRST);  while hCurrentWindow <> 0 do  begin    WndText:=GetWndText(hCurrentWindow);    if (Pos('聊天中',WndText)>0) or (Pos('发送消息',WndText)>0) then    begin      Result:=hCurrentWindow;      Exit;    end;    hCurrentWindow := GetWindow(hCurrentWindow, GW_HWNDNEXT);  end;  Result:=0;end;// 定时处理procedure TimerProc;var  qqWnd,txtWnd,btnWnd:HWND;  Msg:String;begin  qqWnd:=GetQQWnd;  if qqWnd=0 then Exit;   btnWnd:=GetDlgItem(qqWnd,1);  // 发送按钮  txtWnd:=GetWindow(GetDlgItem(qqWnd,0),GW_CHILD);  // 文本框  if (btnWnd=0) or (txtWnd=0) then Exit;  Msg:=GetWndText(txtWnd);  Msg:=Msg+#13+#10+'欢迎光临绿荫网络http://www.lvyin.net';  SetWndText(txtWnd,Msg);  SendMessage(btnWnd,WM_LBUTTONDOWN,MK_LBUTTON,0);  SendMessage(btnWnd,WM_LBUTTONUP,0,0);end; procedure TForm1.Timer1Timer(Sender: TObject);begin  TimerProc;end; procedure TForm1.Button1Click(Sender: TObject);begin  Timer1.Enabled :=not Timer1.Enabled;  if Timer1.Enabled then    Button1.Caption :='停 止'  else    Button1.Caption :='开 始';end; procedure TForm1.Button2Click(Sender: TObject);begin  Timer1.Interval :=StrToInt(Edit1.Text);end; end. 总结：上面只讲述了ＱＱ消息自动发送的主要功能，这或许跟ＱＱ尾巴的原理不同（我也不知道），但总体上应该差不多。如果要做到让用户感觉不到异常，就要改一下了，不要自动发送，而是在当用户点击了“发送”按钮后再把文本加进去。这样的话可是拦截“发送”按钮的点击消息，然后再用上述方法把文本加进去，然后把消息交还原程序处理。至于如何让它成为病毒，会自我复制，自我隐藏等功能，那又是另外一个话题了，在此就不多讲了。另：此文只作技术研讨之用，希望大家不要拿它来捣蛋，如有产生后果，本人概不负责。欢迎大家来信探讨。作者：吴创豪
 

Answer 4

五、  如何住原消息文本框里追加文本：
.........  try    Buf:=LongInt(mText);    SendMessage(hWnd,WM_SETTEXT,0,Buf);.........
此处的SendMessage(hWnd,WM_SETTEXT,0,Buf);在以前的QQ里可能好用，二楼说的应该对，WM_SETTEXT消息被屏蔽了，发送消息后没有反应，用WM_PASTE可以，没有屏蔽复制和粘贴消息， 只是因为需要，我要写成发送字串的，如果有WM_PASTE要多次操作剪贴版，稳定性不好。

Answer 5

用你那方法就行的了,稍微改下
SendMessage(WHand, WM_SETTEXT, 0, Longint(S));
S为string类型

Answer 6

SendMessage(WHand, WM_SETTEXT, 0, Longint(S));呵呵，你试一下就知道了，虽然无法解决，但对以上的答复人都表示感谢，回头都给加分。多谢。

Answer 7

啊,不行了?看了下以前写的,在去年七月份,难道这么快就不行了.SendMessage(WHand, WM_SETTEXT, 0, Longint(PChar(Trim(S))));现在没法用QQ了,不能帮你试了,呵