知识屋：更实用的电脑技术知识网站
知识屋 手机游戏 手机软件 电脑软件 最近更新 手机端
冒险村物语 英雄无敌3塔防 驾考家园手游 我的小家破解版 业力汉堡商店
cah职工e家 智能安全管控 易慧 iedukids学习中 闪背
亿彩文本文件批 文件自动分类器（ Win8激活信息备
LOL手游国服和外 LOL手游日服怎么 怎么注册LOL手游 2020双十一活动
所在位置：首页 > QQ专区  > 技术汇总

通过FindWindowEx来获取当前运行着的QQ号码列表

发表时间：2014-09-30来源：网络

以下为封好的 Delphi 类
type
   TGetQQNumber = class
qqlist: TStrings;
   private
procedure GetList(ClassName:String);
   public
constructor Create();
destructor Destroy(); override;
end;


constructor TGetQQNumber.Create;
begin
   qqlist := TStringList.Create;
//   Afx:61790000:2 为窗口类名
   GetList(Afx:61790000:2);//QQ2006 STD
   GetList(Afx:61800000:2);//QQ2007 Beta3
   GetList(Afx:61810000:2);//按规律随意添加的,不知道对不对
   GetList(Afx:61820000:2);//按规律随意添加的,不知道对不对
   GetList(Afx:61830000:2);//按规律随意添加的,不知道对不对
   GetList(Afx:61840000:2);//QQ2007 Beta4
end;

destructor TGetQQNumber.Destroy;
begin
   qqlist.Free;
end;

procedure TGetQQNumber.GetList(ClassName: String);
var
   Wnd: DWord;
   Buf: array[0..255] of char;
   i: integer;
begin
   Wnd := 0;
   repeat
Wnd := FindWindowEx(0, Wnd, pchar(ClassName), nil);
GetWindowText(Wnd, Buf, 255);
if buf <> then
begin
   for i := 0 to 255 do
   begin
       if Buf[i] = _ then
       begin
      Buf[i] := #0;
      break;
       end;
   end;
   qqlist.Add(buf);
end;
   until (Wnd = 0);
end;

（免责声明：文章内容如涉及作品内容、版权和其它问题，请及时与我们联系，我们将在第一时间删除内容，文章内容仅供参考）
收藏

上一篇：从进程中获取QQ号码

下一篇：QQ秀全裸奔

知识阅读

软件推荐

更多 >

游戏推荐

更多 >

精选栏目

热门推荐

  • 人气文章
  • 最新文章
  • 下载排行榜
  • 热门排行榜

手机游戏

手机软件

电脑软件

猜你喜欢

城市 智能 家居 福利 美女 壁纸 截图 照片 修图 新闻 八卦 免费 农业 司机 会议 物流 资源 拍摄 下载 美图 手机 宠物 计算机 服务 汽车 二手 程序员 短视频 播放器 影视 动漫 停车 江浙沪 地铁 公交 抖音 舞蹈 征信 母婴 低息 分期 钱包 区块链 360 投注 彩票 借贷 网贷 借钱 抢票 吃货 购物 WIFI 导航 运动 健康

本站所有软件来自互联网，版权归原著所有。如有侵权，敬请来信告知，我们将及时撤销。

知识屋 www.zhishiwu.com 更实用的电脑技术知识网站

苏ICP备14019037号-7

联系我们