Pour commencer, on importe la DLL SKYPE4COMLib dans le projet :
- Menu => Projet> Ajouter une référence ... => Select COM => Défilement => Skype4COM Type Library 1.0>
Ensuite on double clique sur la form1 et on importe la DLL SKYPE4COMLib dans la form1 (Donc le code sera avant le " Public Class " ) :
Ensuite, on va déclaré 4 choses indispensable dans le " Public Class " (je sais pas trop comment sa s'appelle) :
Ce qui nous donne comme code :
Quelques instructions pour commmandé Skype :
Pour envoyé un message à un utilisateur :
Changer son statut personnel :
Appelé un utilisateur :
R'accroché :
Envoyé un message à toute la liste d'amis :
- Menu => Projet> Ajouter une référence ... => Select COM => Défilement => Skype4COM Type Library 1.0>
Ensuite on double clique sur la form1 et on importe la DLL SKYPE4COMLib dans la form1 (Donc le code sera avant le " Public Class " ) :
Code:
Imports SKYPE4COMLib
Ensuite, on va déclaré 4 choses indispensable dans le " Public Class " (je sais pas trop comment sa s'appelle) :
Code:
Public WithEvents skype As New SKYPE4COMLib.Skype
Dim Skype1 As New Skype 'On pourra appelé SKPE4COMLib quand on écrira "Skype1. "
Public oSkype As Skype
Public oCall As SKYPE4COMLib.Call
Ce qui nous donne comme code :
Code:
Imports SKYPE4COMLib 'On importe SKYPE4COMLib
Public Class Form1
Public WithEvents skype As New SKYPE4COMLib.Skype
Dim Skype1 As New Skype 'On pourra appelé SKPE4COMLib quand on écrira "Skype1. "
Public oSkype As Skype
Public oCall As SKYPE4COMLib.Call
Quelques instructions pour commmandé Skype :
Pour envoyé un message à un utilisateur :
Code:
Skype.SendMessage(pseudo.Text, message.text)
Changer son statut personnel :
Code:
Skype.CurrentUserProfile.MoodText = statut.text
Appelé un utilisateur :
Code:
'**********APPELLER**************
Skype.PlaceCall(pseudo.text)
R'accroché :
Code:
'**********R'ACCROCHER**************
oSkype = CreateObject("Skype4COM.Skype")
oCall.Finish() 'Termine l'appelle
Envoyé un message à toute la liste d'amis :
Code:
For Each a As SKYPE4COMLib.User In skype.Friends
skype.SendMessage(a.Handle, messagelstamis.Text)
Next
Voila la vidéo avec un bonus en description >
Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.
Screen d'un de mes tools (perso)pour Skype :

