怎样获得QQ聊天窗口中的内容?(100分)

  • 主题发起人 主题发起人 QAlong
  • 开始时间 开始时间
Q

QAlong

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样获得QQ聊天窗口中的内容?
怎样用Delphi获得QQ窗口的聊天内容,请帮帮忙
 
先找输入文字窗口的句柄 要从它父句柄的父句柄找下来
输入窗口的父句柄的上一个 就可以显示聊天内容了 ID是00000380 化为10进制是896 简单得很
 
楼上正解
再发送WM_GETTEXT就可以得到
 
我是个新手,对这些不太明白,所以想要实现的完全代码
 
要代码有点难哦 呵呵 这样暴露我自制无敌找句柄函数 一个函数可以搞掂疑难句柄(不是列举遍历那种)

关于QQ的句柄 其实有很多精彩的部分未为人所知道

譬如 怎么用句柄直接呼出修改密码窗口 这个才是精彩的部分 还有就是QQ里面的玄机多着呢 QQ就比还有一条地下河在下面 不偶然发现入口不知道好玩
 
to 冰力不足
你发现了很多Bug?透露一点,俺们也来试试。
 
支持lurker的说法,呵呵`
 
to 冰力不足
无聊,还能有多玄机
 
to 冰力不足
你不说又不会死人,中国软件业没你也照样发展~~~天下高手多的是
 
总是有人这样的,知道点东西就沾沾自喜,总是拿出来炫耀,我知道什么,但是我不说出来。何必嘛?嘿嘿!
 
cqwty: 技术论坛谁技术厉害谁就是牛人 如果要扮演道德天使可到道德论坛
中国人几千年都是媳妇文化和媳妇道德 有能力的人总是要保持谦卑
但是 时移世易 能够敢说敢唱又做得出的才是能人 由我做起 扭转中国人的风气 不爽就动武 不爽就比技术 恢复汉朝以前真正的中国雄风
 
to 冰力不足
就这么点技术,你用得着吗???
这是技术论坛不是炫耀的地方,你再厉害也不交流就不要在技术论坛混!你要吵架可以去吵架论坛,没有的话,反正你有本事你建个!!!
 
晕,怎么变成吵架帖了?
 
QQ2006测试通过:
function GetQQ(hd:HWND):BOOL;stdcall;
var
TitleText:array [0..255] of Char;
RichEditTest:array [0..2048] of Char;
FirstDlgHd,Richedit20AHd:HWND;
begin
GetWindowText(hd,TitleText,255);//取hd对应的窗口的标题
if ((Pos('与 ',TitleText)<>0)) and ((Pos(' 聊天中',TitleText)<>0)) or
(Pos(' - 发送消息',TitleText)<>0) or
(Pos(' - 群',TitleText)<>0)
then//根据QQ聊天窗口的特性来找句柄,比较简单,当然速度也比较慢,还有更好的办法,比如用钩子
begin
FirstDlgHd:=GetDlgItem(hd,0);//Control ID使用Spy++很容易就可以找到这是第一个子窗口的句柄
Richedit20AHd:=GetDlgItem(FirstDlgHd,$380);//这个是消息框的句柄
SendMessage(Richedit20AHd,WM_GETTEXT,2048,Integer(@RichEditTest));//发送WM_GETTEXT消息
Form1.Memo1.Lines.Add(RichEditTest);
Form1.Memo1.Lines.Add('=================');
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows(@GetQQ,0);//遍历顶层窗口
end;
 
QAlong:最后一次跟你说话
我帮你解决问题,你还好意思这样说?那个cqwty有帮你回答问题吗?你受到一个无聊的人挖苦你不应该回应吗?窃取QQ聊天记录我能够帮你说详细吗?
无所谓炫耀不炫耀,中国人有句话,知恩图报,回你贴你还好意思这么说,到底是我错还是你错???

认栽,垃圾太多.
 
to 冰力不足
不要说最后回我的帖子,我只是问问题而已,也许我的行为有点过分,或者是不可理喻,可我只是想要代码~~~没有的话你可以选择沉默啊,如果惹怒你的话我也只能说声对不起,Sorry~~
毕竟我还是个小孩子,是非处理能力也不强~~呵呵
 
同情 冰力不足[:)]
不过冰力不足 若不想公开自己滴代码 则不应该说上面滴话
 
有没有用hook实现的办法??
 
后退
顶部