易语言获取本机在线QQ

调用 精易模块

原理:通过枚举QQ通用窗口类名   

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 获取本机登陆QQ, 整数型, , 返回的QQ号数量
   
5. .参数 QQ号码, 文本型, 参考 数组, 返回的QQ号数组
   
6. .局部变量 局_窗口信息, 精易_窗口信息, , "0"
   
7. .局部变量 局_QQ, 文本型
   
8. .局部变量 局_i, 整数型
   
9. 
   
10. 清除数组 (QQ号码)
    
11. .计次循环首 (窗口_枚举 (局_窗口信息), 局_i)
    
12.     调试输出 (局_窗口信息 [局_i].窗口类名)
    
13.     .如果真 (到大写 (局_窗口信息 [局_i].窗口类名) ＝ “5B3838F5-0C81-46D9-A4C0-6EA28CA3E942”)
    
14.         加入成员 (QQ号码, 取文本右边 (局_窗口信息 [局_i].窗口标题, 取文本长度 (局_窗口信息 [局_i].窗口标题) － 倒找文本 (局_窗口信息 [局_i].窗口标题, “_”, , 假)))
    
15.     .如果真结束
    
16. 
    
17. .计次循环尾 ()
    
18. 数组_反转 (QQ号码)
    
19. 返回 (取数组成员数 (QQ号码))

复制代码