易语言离线取本地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

易语言离线取本地QQ号源码》有0个想法

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注