Au3取巧方式从本机窗口列表中获取本机登陆的QQ号码 

Local $qq = _Get_QQID()

_ArrayDisplay($qq, 'QQ号')

Func _Get_QQID()
    Local $aQQ[1], $aList, $iPos
    $aList = WinList()
;~  _ArrayDisplay($aList)
    For $i = 1 To $aList[0][0]
        If StringInStr($aList[$i][0], "qqexchangewnd_shortcut_prefix_") Then
            ReDim $aQQ[UBound($aQQ) + 1]
            $aQQ[UBound($aQQ) - 1] = StringTrimLeft($aList[$i][0], StringLen('qqexchangewnd_shortcut_prefix_'))
        EndIf
    Next
    $aQQ[0] = UBound($aQQ) - 1
    Return $aQQ
EndFunc   ;==>_Get_QQID

本文固定链接: http://jianyiit.com/post-373.html