[Visual Basic] Skype API

Electro · 13. Januar 2013

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.

Loganpunkt · 2. August 2013

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