弹出各个值看看
Case 1 '用户名节点 Dim name As String = nd.parentNode.name & "." & nd.Name If name <> user.group & "." & user.Name Thenmsgbox(name)msgbox(QQClient.Buddies.Contains(name)) Dim bd As QQBuddy = QQClient.Buddies(name)