so ziemlich alle neuen, geplanten Funktionen startklar gemacht. Nur funktioniert das Multi Messaging nicht. Hier die wichtigen Codestellen:(Achja: "Kontakte" ist eine CheckedListBox und "Skype" der Verweis zur Skype API)
Form_Load:
Code:
For Each Freund As SKYPE4COMLib.User In Skype.Friends
Dim name As String = Freund.FullName
If name <> "Echo / Sound Test Service" And name <> Nothing Then
Kontakte.Items.Add(name)
End If
Next
Code:
Dim i As Integer
Do While i < Kontakte.CheckedItems.Count
Skype.SendMessage(Kontakte.CheckedItems.Item(i), RichTextBox2.Text)
i = i + 1
Loop






