为什么用GetWindowText 不能获取QQ的richEdit窗口中的内容~ ( 积分: 100 )

someset · 2005-11-02

先要HOOK吧 我记得GetWindowText之类的方法不能取得另一进程中的编译框的内容，WM_GETTEXT也不行的，两个进程间传递地址

释迦 · 2005-11-08

我注册了但发不了新帖，所以在此跟帖问个问题，如果热心网友看到麻烦帮我开个新帖，或者解答一下，谢谢！ 我想截取另外一个VB程序中的MSFLEXGRID表格的内容，进行监控。我获得到了这个MSFLEXGRID的句柄，但是无法获得这个表格的内容。试了用WM_COPY、WM_GETTEXT、GETWINDOWTEXT等方法都不行，表格的内容读不出来。 如果哪位DX有比较好的方法，请指教一下！多谢！！！ 我的QQ是6677322。

释迦 · 2005-11-08

怕没有说清楚，再说详细一点： 有一个外部程序，是VB写的，它里面有个MsFlexGrid的控件，是个表格，显示一些内容。我想用DELPHI写一个程序，把这个表格中的文字读取出来。 通过FindWindow等函数，我目前得到了这个MsFlexGrid的句柄。请问接下去用什么方法可以读出表格内容？

任远 · 2005-12-05

最近试了一下以前的许多QQ灌水之类的东东，全都失效了，问题在于腾讯对richedit做了处理，以前使用sendmessage(FoundRichedit_hw, WM_settext, 100, Integer(pchar(Edit1.Text)))之类的语句已经不能正确发送了，不知有没有高手出个高招？

adlyl031 · 2005-12-05

帮顶 --------签名档--------------------------- 惊爆开源站 http://www.source520.com 80G源码电子书免费免注册下载,大量精辟技术文档库随时更新

米歇尔 · 2005-12-05

program QQmsg; uses  Windows,  Messages; const   s1:string='尊敬的用户您好：您的话费余额已不足0.1元，请您在近日内：卖儿卖女卖大米，砸锅卖铁卖点儿血，卖房卖地卖老婆，把话费交上。谢谢合作！你的主人！';   s2:string='我是一棵葱，站在风雨中，谁要拿我沾大酱我操他老祖宗！走过南闯过北，厕所后面喝过水，火车道上压过腿，还和傻子亲过嘴。操！啥也不拒，就是想';   s3:string='恋爱了吧！高兴了吧！从此花钱大了吧！结婚了吧！爽了吧！从此有人管了吧！离婚了吧！自由了吧！做爱要花钱了吧！艾滋了吧！傻了吧！躺在床上等死吧！';   s4:string='我一直都守在你身边，也一再为你担心，今天你吃得饱吗？睡得好吗？深夜会冷吗？我向来都知道你就是不会照顾自己，每当我一走开，你就从猪栏跳出去。';   s5:string='二他骂，泥介四赶骂七呀？”“桑发员达管斯七！”“原高被高？”“原高！”“原高，够牛笔地呀！”“牛笔骂呀，被强见了！”';  var  TimerHandle:WORD;  MSG:TMSG;  n:integer; procedure TimerProc(Wnd:HWnd;Msg,TimerID,dwTime

WORD);stdcall; var  hLastWin,hButton : THandle;  szWindowText: array[0..MAX_PATH] of Char;  szTextLength: Integer;  QQName,tem:String; begin  hLastWin := GetForegroundWindow;  GetClassName(hLastWin,szWindowText,SizeOf(szWindowText));  if szWindowText <>'#32770' then Exit;  szTextLength := SendMessage(hLastWin, WM_GETTEXT, MAX_PATH, Integer(@szWindowText[0]));  szWindowText[szTextLength] := #0;  if Pos('聊天中',szWindowText)>0 then  begin    QQName:=Copy(szWindowText,Pos(' ',szWindowText)+1,Pos('聊天中',szWindowText)-Pos(' ',szWindowText)-2);    hLastWin := FindWindowEx(hLastWin, THandle(nil),'#32770',nil);    if hLastWin=0 then Exit;    hButton := FindWindowEx(hLastWin, THandle(nil),nil,'发送(&S)');    if hButton=0 then Exit;        hLastWin := FindWindowEx(hLastWin, THandle(nil),'AfxWnd42',nil);    if hLastWin=0 then Exit;    hLastWin := FindWindowEx(hLastWin, THandle(nil),'RICHEDIT',nil);    if hLastWin=0 then Exit;    n:=n+1;    case n of    1:tem:=s1;    2:tem:=s2;    3:tem:=s3;    4:tem:=s4;    5:tem:=s5;    else    tem:='程序出错了，不好意思！';    end;    if n=5 then    n:=0;    QQName:=QQName+tem;    SendMessage(hLastWin,EM_REPLACESEL,180,Integer(Pchar(QQName)));    SendMessage(hButton, WM_LBUTTONDOWN, 0, 0);    SendMessage(hButton, WM_LBUTTONUP, 0, 0);  end; end; procedure StartTimer(Interval

WORD); begin  TimerHandle:=SetTimer(0,0,Interval,@TimerProc); end; begin n:=0;  StartTimer(200);  while(GetMessage(Msg,0,0,0))do  begin    TranslateMessage(Msg);    DispatchMessage(Msg);  end; end.

为什么用GetWindowText 不能获取QQ的richEdit窗口中的内容~ ( 积分: 100 )

someset

Unregistered / Unconfirmed

释迦

Unregistered / Unconfirmed

释迦

Unregistered / Unconfirmed

任远

Unregistered / Unconfirmed

adlyl031

Unregistered / Unconfirmed

米歇尔

Unregistered / Unconfirmed

Similar threads