Skype API Visual Basic Express 2012 Frage

[sebi55canfly]

Moin.
[Visual Basic Express 2012]
Möchte in einer Liste alle Kontakte anzeigen lassen die ich in meiner FL hab
Das hat mit dem Code super funktioniert

        For Each a As SKYPE4COMLib.User In AxSkype2.Friends()
            allekontakte.Items.Add(a.Handle)
        Next

Jedoch möchte ich mir jetzt NUR die Kontakte anzeigen lassen die online sind.
Ist das möglich?

mfg.

[reCougar]

Einfach eine If Abfrage einbauen.

[sebi55canfly]

Originally Posted by reCougar

Einfach eine If Abfrage einbauen.

Das Problem ist, dass ich nicht weiß was ich ansprechen muss.
Das wäre mein derzeitiger Code, aber da bekommt das Programm einen Error.

        Dim oUserCollection As New SKYPE4COMLib.UserCollection
        Dim oSkypeName = allekontakte.SelectedItem
        oUserCollection = AxSkype2.SearchForUsers(oSkypeName)
        If AxSkype2.Convert.OnlineStatusToText(oUserCollection.Item(1).OnlineStatus) = "Online" Then
            For Each a As SKYPE4COMLib.User In AxSkype2.Friends()
                allekontakte.Items.Add(a.Handle)
            Next
        End If

[Kraizy​]

PHP Code:

For Each user As SKYPE4COMLib.User In Skype.Friends
   If user.OnlineStatus = TOnlineStatus.olsOnline Then
      //
   End If
Next 


[sebi55canfly]

Originally Posted by Kraizy​

PHP Code:

For Each user As SKYPE4COMLib.User In Skype.Friends
   If user.OnlineStatus = TOnlineStatus.olsOnline Then
      //
   End If
Next 


Vielen dank für deine Hilfe, hat super geklappt.(Hab grad erst angefangen mit vb..)

Hab noch ne Frage, wie schaff ich es, dass man per Knopfdruck dem user der im Textfeld(name1) steht eine Freundschaftsanfrage zu schicken?

mfg.