用什么办法可以获取当前QQ号的昵称还有号码呢？

fupsky

用什么办法可以获取当前QQ号的昵称还有号码呢？

#include <Constants.au3>

Func getqqhao()
$var = WinList()
For $i = 1 to $var[0][0]
  If $var[$i][0] <> "" Then
    $s = StringInStr ($var[$i][0], "2009")
        if $s <> 0 then
                $ms = StringLeft ( $var[$i][0], $s-1)
        Return $ms
        EndIf
  EndIf
Next
EndFunc
$QQ = getqqhao()
msgbox(0,"提示",$QQ)


现在这种方法已经不实用了，我试着想办法去改了一下函数，可不知道哪里才能得到QQ号码，

lin6163

可能只能去抓网络包了

pusofalse

提供一种思路：
登录QQ后，托盘图标中总会出现QQ，利用Toolbar函数读取这个QQ图标上的文本即可。
除非人为的删除或隐藏，一般情况下，都能读取出来。