易语言离线取本地QQ号源码

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 x, 整数型, , , 获取本地QQ个数
.程序集变量 QQ_ID, 文本型, , "0", 存放QQ号的数组
.程序集变量 QQ_hwnd, 整数型, , "0", 存放QQ句柄的数组
.程序集变量 all_cont, 文本型, , "2"

.子程序 _按钮1_被单击
.局部变量 local_i, 整数型, , , 局部变量
.局部变量 WindowText, 文本型, , , 接收窗口标题的变量
.局部变量 qq, 文本型

EnumWindows (&EnumWindowsPro, 0)
.计次循环首 (x, local_i)
    WindowText ＝ 窗口_取标题 (QQ_hwnd [local_i])
    加入成员 (QQ_ID, 取文本右边 (WindowText, 取文本长度 (WindowText) － 取文本长度 (all_cont [2])))
    qq ＝ qq ＋ “本地登录的QQ号：” ＋ QQ_ID [local_i] ＋ #换行符
.计次循环尾 ()
信息框 (qq, 0, , )

.子程序 EnumWindowsPro, 整数型, 公开, 遍历窗口的回调函数
.参数 HWND, 整数型, , 返回窗口句柄
.参数 LPARAM, 整数型, , 返回参数二
.局部变量 ClassName_const, 文本型
.局部变量 ClassName_var, 文本型

ClassName_const ＝ “5B3838F5-0C81-46D9-A4C0-6EA28CA3E942”
ClassName_var ＝ 窗口_取类名 (HWND)%0

    

        

                    
                

                        



来源：三叶资源网，欢迎分享，公众号：iisanye，（三叶资源网⑤群：21414575 ）