[VB.NET]Crée un changer de status skype

[conard1023]

Bonjour , Bonsoir a tous

Je v'ais vous apprendre a crée un "Changeur status skype" (a se mettre en connecter,absent,...)


Commençons pour cela il vous faut :

-Visual Basic 2008 ou 2010
-Un cerveau :):)

Donc ouvrons une nouvelle application Windows Forms que vous renommer comme vous le voulez

Vous devez etre connecte pour voir les liens.

Metter 5 Bouttons
Que vous renommer :
-Connecter
-Ne pas déranger
-Absent
-Invisible
-Déconnecter

Vous devez etre connecte pour voir les liens.

Maintenant il vous faut chercher dans "Choisir des éléments" en faisant clique droit sur la boite a outils (n'importe où) puis choisir des élément aller dans l'onglet comme et chercher "Skype Class"

Si vous l'avez pas voici le lien pour le télécharger :

Vous devez etre connecte pour voir les liens.

Vous devez etre connecte pour voir les liens.

Tout va bien pour l'instant!;)

Maintenant placer le "Skype Class" ou vous le voulez (En debogage sa ne se verra pas)

Double cliquer sur la "Form1" puis importer ceci:

Imports SKYPE4COMLib

Dans le Boutton connecter metter ce code :

MsgBox("Vous êtes connecté!", MsgBoxStyle.Information, "Skype")
        AxSkype1.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusOnline

Ici un message vous dit qu'on est connecter donc sur skype on passe en connecter
Le "AxSkype1.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusOnline" est une communication entre notre bouton et skype cela pour tous

Dans votre bouton absent :

 MsgBox("Vous êtes absent!", MsgBoxStyle.Exclamation, "Skype")
        AxSkype1.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusAway

Dans votre bouton Ne pas déranger :

MsgBox("Vous êtes en tant que ne pas déranger!", MsgBoxStyle.Exclamation, "Skype")
        AxSkype1.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusDoNotDisturb

Dans le bouton déconecter :

 MsgBox("Vous êtes déconnecté!", MsgBoxStyle.Exclamation, "Skype")
        AxSkype1.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusOffline

Enfin dans le bouton invisible :

 MsgBox("Vous êtes invisible!", MsgBoxStyle.Exclamation, "Skype")
        AxSkype1.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusInvisible

Donc vous aurez une form avec 5 bouton
Vous aver plus qu'a tester

PS: Quand vous aller deboger vous aller cliquer sur Ne pas déranger un message en haut de skype comme ceci

Vous devez etre connecte pour voir les liens.

Accepter sinon vous pourer pas utiliser cette merveille ^^

Bon codage a tous!

Cordialement cornard1023

 

[Jaws031]

"Imports SKYPE4COMLib" est à mettre avant "Public class form 1" et non en double cliquant sur Form1
Il faut également mettre un "End class" à la fin du code.

Sinon c'est bon mis à part le fait que c'est aussi pratique que de le faire directement depuis skype ...