获取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