Delphi怎么从进程中获取QQ号码?

我想实现1个程序,可以读取正在运行的QQ号码,然后显示出来!
不怎么怎么实现!
网上找了1篇,思路是这样的:
1. 遍历系统进程, 找到所有QQ进程的ID; 
2. 通过ID打开每个QQ进程, 获得操作句柄; 
3. 读取QQ进程 "类型=MEM_******* 页面属性=PAGE_READWRITE" 的内存块到自己程序的缓冲区, 然后搜索关键字 "\MsgEx.db"位置; 
4. 提取关键字前面的QQ号码. 
5. 显示QQ号码.结束. 

解决方案 »

  1.   

    楼上的想多了，我只想获取进程里的QQ号码显示出来!!
    盗QQ不屑为之哈
      

  2.   

    倒塌……肉鸡……
    QQ2008窗体都是画上去的，你能不能找句柄都是个问题，更不用说什么EDIT窗口了
      

  3.   

    你要反过来想想问题，如果qq这么容易被监视了，那又将是盗号的漫天飞了。
    还叫笨hacker!?
      

  4.   

    获取进程里的QQ号码! 非登陆时的帐号(密码)
    如果打开内存读取>?
      

  5.   

    hwnd = FindWindow(vbNullString, '10000_QQMusic_SmallClient')if hwnd<>0 then
    存在其中10000就是QQ号
      

  6.   

    还有一个方法，搜索内存地址，利用外挂原理 很容易就搜索出来的！哪个地址是固定的！2008bata2我搜索过正式版本也有一个地址，具体你自己搜索 可以使用CE 或OD