AfxWnd42 qq2006中怎样取得发送消息窗口中的Richedit

qq2006中怎样取得发送消息窗口中的Richedit

检举|2006-11-10 02:20 hzp997  |  分类：Windows  |  浏览1695次

学习编程中想让程序可以自动在QQ的发送消息框中自动发送消息，但在QQ2006中好象发送消息框中的RICHEDIT加密了，用这样的方法的不到了，请高手看下如下代码：
fLastWin := FindWindowEx(GetForegroundWindow, THandle(nil), '#32770', nil);
         if fLastWin = 0 then Exit;

         //fButton := FindWindowEx(GetForegroundWindow, THandle(nil),nil,'发送(&S)');
         //if fButton=0 then Exit;（这个发送按扭也找不到，所以暂时没有用）

         fLastWin := FindWindowEx(fLastWin, THandle(nil),'AfxWnd42',nil);
         if fLastWin=0 then Exit;
         label2 .Caption:=('以上条件成立');//在这里时还可以提示成立
         //fLastWin := FindWindowEx(fLastWin, THandle(nil),'RICHEDIT',nil);
         //if fLastWin=0 then Exit;
         label2 .Caption:=('以上条件成立');//但在这里就不行了
         SendMessage(RICHEDIT,EM_REPLACESEL,180,Integer(Pchar(Edit1.TEXT)));

请各位大侠指点小弟！多谢

label2 .Caption:=('以上条件成立');
这一句没有同时出现两次，而是我把它放到不同位置进行测试，以检验那一句不能通过

我有更好的答案

提问者采纳

2006-11-10 11:50

以下是从网上找的一段代码，你可以试下，FindWindow用法说得有误，第一个参数应该是类名，第二个是窗口名，也即是标题。你自己改下吧。

var
  Wnd: HWND;
begin
  // 查找标题为123，类名是#32770的窗口
  Wnd := FindWindow('123', '#32770');
  if Wnd <> 0 then 
  begin
    // 查找文本是'Edit1'，类名是EDIT的子窗口
    Wnd := FindWindowEx(Wnd, 0, 'Edit1', 'EDIT');
    if Wnd <> 0 then SetWindowText(Wnd, PChar('Test');
  end;
end;

你也可以用Spy++之类的察看目标EDIT的Identifier(ID)

var
  Wnd: HWND;
const
  ID: 123;
begin
  // 查找标题为123，类名是#32770的窗口
  Wnd := FindWindow('123', '#32770');
  if Wnd <> 0 then 
  begin
    Wnd := GetDlgItem(Wnd, ID);
    if Wnd <> 0 then SetWindowText(Wnd, PChar('Test');
  end;
end;

具体的查查MSDN吧

提问者评价

xie

评论 | 0

懒虫007 |十二级采纳率43%

擅长：其他编程语言数据库DBWindowsVB