用什么办法可以获取当前QQ号的昵称还有号码呢？
用什么办法可以获取当前QQ号的昵称还有号码呢？#include <Constants.au3>
Func getqqhao()
$var = WinList()
For $i = 1 to $var
If $var[$i] <> "" Then
$s = StringInStr ($var[$i], "2009")
if $s <> 0 then
$ms = StringLeft ( $var[$i], $s-1)
Return $ms
EndIf
EndIf
Next
EndFunc
$QQ = getqqhao()
msgbox(0,"提示",$QQ)
现在这种方法已经不实用了，我试着想办法去改了一下函数，可不知道哪里才能得到QQ号码， 可能只能去抓网络包了 提供一种思路：
登录QQ后，托盘图标中总会出现QQ，利用Toolbar函数读取这个QQ图标上的文本即可。
除非人为的删除或隐藏，一般情况下，都能读取出来。
页:
[1]