API Skype + VB6

Bonjour,

Après de nombreuses recherches ( un peu partout ), je me trouve en panne...

J'arrive à passer des appels par L'Api skype mais impossible de trouver la commande permettant de raccrocher ( skype et Skype Out ).

Tout le reste est Ok ( SMS etc... )

J'utilise VB6 + Dernière version de Skype4Com :D

SI vous avez de l'infos, je suis preneur...

Merci d'avance !!

Franck. :mrgreen:

et tu utilise quel genre de code pour l'appel ? si tu utilise la classe "Call" celle-ci possède une méthode Finish() .. tu l'as essayé ?

Code:

---

1 2 3 4

Private Sub OUI_Click() Set oSkype = CreateObject("Skype4COM.Skype") Set oCall = oSkype.PlaceCall("+33xxxxx") End Sub

---

c'est un simple Appel par Skype OUT mais en fait, la personne qui va utiliser çà doit pouvoir raccrocher quand elle le souhaite...

j'ai essayé différente commandes mais çà passe pas...

Oui finish comme :

Code:

---

Set ocall.finish()

---

??

Franck.

non ? pourquoi tu met un set ?

Code:

---

ocall.finish()

---

tes variables oCall et oSkype sont déclarées ou ?

ocall.Finish() : j'ai un message qui me dit " = Attendu " ??

En fait oSkype est déclaré au moment du clic : Set oSkype = CreateObject("Skype4COM.Skype")

Pareil pour oCall

J'ai pas bon ?? 8O

ben non car à ce moment la tu n'y as accès que dans ta procédure clic... et pas dans les autre....

Quand je lance ce code au moment du Clic

Code:

---

1 2 3 4

Private Sub OUI_Click() Set oSkype = CreateObject("Skype4COM.Skype") Set oCall = oSkype.PlaceCall("+33xxxxx") End Sub

---

En fait il lance l'appel et la conversation... Mais comment dire à Skype de raccrocher si l'utilisateur clic sur un autre bouton ?? :?

:koi: déclare tes variables..

Ok donc :

Dim oSkype As Object

oCall c'est quoi comme Variable alors ??

avec les bonnes références dans ton projet tu dois pouvoir utiliser Skype et Call ..? non ?

Bon laisse....

Pas grave... L'interlocuteur raccrochera..

Merci quand même...

Franck.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim oSkype as skype dim oCall as call   Private Sub OUI_Click() Set oSkype = CreateObject("Skype4COM.Skype") Set oCall = oSkype.PlaceCall("+33xxxxx") End Sub   Private Sub FIN_Click()   oCall.finish() End Sub

---

MERCI !!!

Mais en fait il ne veux pas de :

dim oCall As Call

Il me dit New ou nom de Type attendu... :cry:

a oui.. Rajoute le nom de la librairie devant le call

Code:

---

skypecom4lib.call

---

j'ai mis çà :

Code:

---

1 2	Public oSkype As Skype Dim oCall As SKYPE4COMLibCtl.Call

---

puis :

Code:

---

1 2 3 4

Private Sub Fin_Click() oCall.Finish   End Sub

---

il plante : variable objet ou variable .... non définie

avec les () il me dit qu'il manque = ??

J'ai remarqué que dans ton application (skypes events ) tu n'actives pas de composant SKYPE4COM lib mais pourtant tu arrives a déclarer les lib comment procèdes-tu ??

> Trouver : Tu déclares en référence mais pas comme composant !!

Apparemment d'après Skype il faut envoyer le finish sur chaque connection en cours donc faudrait lui donné le numéro de la connexion...

C'est vraiment pas facile pour raccrocher :mouarf:

Franck.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public oSkype As Skype Public oCall As SKYPE4COMLib.Call   ' ********* Bouton Raccrocher *********** Private Sub CdCommand_Click() Set oSkype = CreateObject("Skype4COM.Skype") oCall.Finish End Sub   ' ********* Bouton Appeler *********** Private Sub Command1_Click() Set oSkype = CreateObject("Skype4COM.Skype") Set oCall = oSkype.PlaceCall("+33xxxxxx") End Sub

---

Merci à toi pour tes infos :ccool:

Franck

Un seul objet skype suffit , pas la peine dans créer un nouveau pour raccrocher ;)