Получить список чатов в Skype

Question

Я просто попытался получить список чатов, и я не могу его получить.

from Chat chat in _skype.chats select new Chat 

В него не включены все чаты. Я создал новый и не вижу его в списке.

Answer 1

Это покажет все чаты, в том числе скрытые. По этой причине вы можете видеть дубликаты чатов с только одним контактом.

Imports SKYPE4COMLib 

Public Class Form1 
Dim skype As Skype 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 

    For Each r As Chat In skype.Chats 
     'If topic = "", then it is an individual chat 
     If r.Topic <> "" Then 
      RichTextBox1.AppendText(r.Topic & vbCrLf) 
     Else 
      'If topic = "", then display the FriendlyName instead (individual chat) 
      RichTextBox1.AppendText(r.FriendlyName & vbCrLf) 
     End If 

    Next 
End Sub 

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    skype = New Skype() 
    skype.Attach(7, True) 
End Sub 
End Class