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