[Visual Basic] Skype API

  • Hey,


    Ich wollte euch mal erklären wie man in Visual Basic verschiedene Skype Funktionen nutzen könnt.


    Als erstes loggt ihr euch in euren Skype Account ein. (Ihr müsst später den Zugiff in Skype erlauben)


    Dann fangen wir mal an.


    Als erstes muss man die Dll von Skype einbinden, wie das gemacht wird, Hier:


    Projekt => Verweis hinzufügen => COM-Steuerelemente => Scrollen => Skype4COM 1.0 Type Library auswählen => OK


    Jetzt beginnen wir mit dem eigendlichem "Coding":


    Als erstes müssen wir die SKYPE4COMLib Inportieren.
    Das machen wir ganz oben mit

    Code
    Imports SKYPE4COMLib


    Das muss über Public Class Form1.


    unter Public Class Form1 kommt:

    Code
    Dim Skype As New Skype
    Dim i as Integer



    Das war es soweit, jetzt könnt ihr die Befehle nutzen um Skype zu "verwalten".


    Textnachricht an einen bestimmten User:

    Code
    Skype.SendMessage("Username", "Text")



    "Moodtext"/Statustext ändern:

    Code
    Skype.CurrentUserProfile.MoodText = "Statustext"



    User anrufen:

    Code
    Skype.PlaceCall("Username")



    An alle Kontakte eine Nachricht senden:

    Code
    For Each a As SKYPE4COMLib.User In Skype.Friends
                Skype.SendMessage(a.Handle, "Text")
            Next



    Ich hoffe euch hilft es.


    Mit freundlichen Grüßen,
    Electro


    PS: Die SKYPE4COMLib.dll solltet ihr Bereits besitzen, wenn ihr Skype installiert habt.

  • Wollt mal einpaar funktionen hinzufügen :)


    Erstmal Informationen in Labels anzeigen:


    Code
    Label4.Text = Skype.CurrentUser.MoodText  Label6.Text = Skype.CurrentUserProfile.PhoneMobile  Label8.Text = Skype.CurrentUserProfile.PhoneHome  Label10.Text = Skype.CurrentUserProfile.PhoneOffice Label12.Text = Skype.CurrentUserProfile.IPCountry Label14.Text = Skype.CurrentUserProfile.Province  Label16.Text = Skype.CurrentUserProfile.Timezone  Label18.Text = Skype.CurrentUserProfile.Homepage  Label20.Text = Skype.CurrentUserProfile.Sex  Label22.Text = Skype.CurrentUser.NumberOfAuthBuddies  Label25.Text = Skype.CurrentUserProfile.FullName Label26.Text = Skype.CurrentUserProfile.MoodText Label27.Text = Skype.CurrentUserProfile.FullName


    Nun wollen wir mal wissen wie wir unseren Skype Namen bekommen und wenn er verändert wird, dieser sich auch im Programm verändert:


    Dazu brauchen wir einen timer
    Und dort schreiben wir rein

    Code
    Label2.Text = Skype.CurrentUser.FullName 
    Label2.ForeColor = Color.Green


    Und beim Programmstart


    Code
    Namedestimers.start



    Wenn eine Checkbox namens "AFK" gechecked ist dann soll sich im Status "xyz" stehen und mein name soll sich zu "[AFK]XYZ" ändern.
    Doppelklick auf die Checkbox und dann folgendes reinschreiben.


    Code
    If CheckBox1.Checked = True Then            Skype.CurrentUserProfile.FullName = "[AFK]" + Label25.Text 
     Skype.CurrentUserProfile.MoodText = "Ich bin zurzeit AFK! Bitte schreibe zurück , wenn diese Nachricht verschwunden ist - Danke"        Else 
     Skype.CurrentUserProfile.FullName = Label25.Text 
     Skype.CurrentUserProfile.MoodText = Label26.Text 
     End If


    So und jetzt noch das BESTE *-*
    Status disko :PP


    Wir brauchen ein Timer dort schreiben wir rein:


    Code
    Me.Skype.CurrentUserStatus = TUserStatus.cusOnline 
     If (Me.Skype.CurrentUser.OnlineStatus = TOnlineStatus.olsOnline) Then 
     Me.Skype.CurrentUserStatus = TUserStatus.cusAway 
     ElseIf (Me.Skype.CurrentUser.OnlineStatus = TOnlineStatus.olsAway) Then 
     Me.Skype.CurrentUserStatus = TUserStatus.cusDoNotDisturb 
     ElseIf (Me.Skype.CurrentUser.OnlineStatus = TOnlineStatus.olsDoNotDisturb) Then 
     Me.Skype.CurrentUserStatus = TUserStatus.cusInvisible 
     End If

    "Imagine if the government went after corruption as hard as it goes after guys who run filesharing sites. Priorities. " - @Snowden
    "More worrying than FBI temporarily running a server that contained child porn, is hacking computers anywhere in the world with one warrant" - @josephfcox