执行这个代码,对比弹出结果
For Each bd As QQBuddy In QQClient.Buddies msgbox(bd.Name & vbcrlf & nd.parentNode.name & "." & nd.Name)Next