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