Discussion :

[Franck8111]

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

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

Merci d'avance !!

Franck.

[SfJ5Rpw8]

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é ?

[Franck8111]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Set ocall.finish()

??

Franck.

[SfJ5Rpw8]

non ? pourquoi tu met un set ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ocall.finish()

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

[Franck8111]

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

[Franck8111]

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

Pareil pour oCall

J'ai pas bon ??

[SfJ5Rpw8]

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

[Franck8111]

Quand je lance ce code au moment du Clic

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ??

[SfJ5Rpw8]

déclare tes variables..

[Franck8111]

Ok donc :

Dim oSkype As Object

oCall c'est quoi comme Variable alors ??

[SfJ5Rpw8]

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

[Franck8111]

Bon laisse....

Pas grave... L'interlocuteur raccrochera..

Merci quand même...

Franck.

[SfJ5Rpw8]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Franck8111]

MERCI !!!

Mais en fait il ne veux pas de :

dim oCall As Call

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

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

skypecom4lib.call

[Franck8111]

j'ai mis çà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

puis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 = ??

[Franck8111]

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

Franck.

[Franck8111]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Franck

[SfJ5Rpw8]

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