Discussion :

[bennouz]

Bonjour,

Je souhaite à l'aide de vb6 appeler automatiquement un numéro puis envoyer un fichier de type ".wav".
Après quelques recherches (merci à bbil et son excellent tuto), j'arrive à décrocher composer et raccrocher. Une portion de code trouvé sur le net :

Code :

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

oSkype.ActiveCalls.Item(1).InputDevice(SKYPE4COMLib.TCallIoDeviceType.callIoDeviceTypeFile) = "test.wav"

est censé envoyer le fichier audio mais rien ne se passe.

Ce que je souhaite ce n'est pas d'envoyer le fichier mais que le son soit joué sur l'ordinateur distant.

Merci d'avance pour toute aide utile.

[SfJ5Rpw8]

bonsoir,

tiens en attendant mieux tu peu passer par un "command" , pour cela utilise le projet skypeEvent du tuto

rajoute 2 boutons et le code :

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
16
17
18
19
20
21
22
23
24
'
' Appel 123
'
Private Sub CdAppel123_Click()
 LblRetour = "... En cours ..."
 oCde.Blocking = True
 oCde.Id = 123
 oCde.Command = "CALL echo123"
 oSkype.SendCommand oCde
 LblRetour = oCde.Reply
End Sub
'
' Envoi fichier son
'
 Private Sub CdEnvoiWav_Click()
    Dim LasID As Integer
     oCde.Id = 124
     oCde.Blocking = True
     'Il faut récupérer l'ID du retour, considérant qu'un seul "call" est en route
     LastID = oSkype.ActiveCalls.Item(1).Id
     oCde.Command = "ALTER CALL " & LastID & " SET_INPUT file=""D:\users\test.wav"""
     oSkype.SendCommand oCde
     LblRetour = oCde.Reply
End Sub

Clique sur le premier bouton, puis après le beep .. sur le second..

[Edit] Finalement après essai supplémentaire pour l'envoi du fichier tu peu faire aussi simplement :

Code :

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

1
2
3
 Private Sub CdEnvoiWav_Click()
 oSkype.ActiveCalls.Item(1).InputDevice(callIoDeviceTypeFile) = "D:\users\test.wav"
End Sub

[bennouz]

Bonsoir,
Merci pour ta réponse mais l'ordi distant reste désespérément muet avec les deux codes proposés.

J'ai loggué l'activité lors de la communication :

RetCde : 123 : #123 CALL Mehd95 => #123 CALL 460 STATUS UNPLACED
RetCde : 0 : => CONTACTS FOCUSED
RetCde : 0 : => CALL 460 STATUS UNPLACED
RetCde : 0 : => CALL 460 STATUS ROUTING
RetCde : 0 : => CALL 460 STATUS RINGING
RetCde : 3 : #3 GET CALL 460 TYPE => #3 CALL 460 TYPE OUTGOING_P2P
RetCde : 0 : => CALL 460 VAA_INPUT_STATUS FALSE
RetCde : 0 : => CALL 460 STATUS INPROGRESS
RetCde : 0 : => CALL 460 VIDEO_SEND_STATUS AVAILABLE
RetCde : 0 : => CALL 460 VIDEO_STATUS VIDEO_SEND_ENABLED
RetCde : 4 : #4 SEARCH ACTIVECALLS => #4 CALLS 460
RetCde : 5 : #5 GET CALL 460 INPUT => #5 CALL 460 INPUT SOUNDCARD="default"
RetCde : 6 : #6 ALTER CALL 460 SET_INPUT SOUNDCARD="default", FILE="test.wav" => #6 ALTER CALL 460 SET_INPUT SOUNDCARD="default", FILE="test.wav"
J'ai aussi essayé en mettant le chemin complet vers le .wav --> Idem
Une autre soluce ? merci d'avance

[SfJ5Rpw8]

b'sr

je ne vois pas la ... je n'ai fais l'essai qu'avec echo123 .. et c'était OK ... c'est quoi le chemin complet de ton Wav ?

[bennouz]

Le wav est dans le répertoire courant du tuto SkypeEvents.vbp comme ce n'est pas à la racine je te précisais seulement que j'ai essayé les deux :
"test.wav" et "e:\skype\test.wav"
Sinon, si tu le souhaites, je peux te filer mon pseudo skype en message privé mais là j'abuse peut-être

[SfJ5Rpw8]

Je suis pas chez moi ... la .. essai avec echo123...

hier j'ai eu des problèmes avec un wav .. j'ai commencé par en créer un ..(en enregistrant echo123)

Code :

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

1
2
3
4
5
6
7
8
9
10
 Private Sub CdEnvoiWav_Click()
    Dim LasID As Integer
     oCde.Id = 124
     oCde.Blocking = True
     'Il faut récupérer l'ID du retour, considérant qu'un seul "call" est en route
     LastID = oSkype.ActiveCalls.Item(1).Id
     oCde.Command = "ALTER CALL " & LastID & " SET_OUTPOUT file=""D:\users\test.wav"""
     oSkype.SendCommand oCde
     LblRetour = oCde.Reply
End Sub

et avec ce .wav c'était mieux...


[Edit] après une petite recherche Skype serai allergique au .wav dont il n'est pas l'auteur.. on devrai chercher dans cette direction ..