Discussion :

[SfJ5Rpw8]

Bon tout est dans le titre ....


http://bbil.developpez.com/tutoriel/vb/skype-vb/



donnez votre avis à la suite ..

[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 ..

[bennouz]

Bonjour,

Ouf! Ta piste semble être la bonne, le fichier ".wav" doit être :
PCM 16 bits 16 Khz mono sinon cela reste muet de l'autre coté
Cela se modifie facilement à l'aide de sndrec32.exe "Fichier" "Propriétés"

Voici la commande utilisée :

Code :

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

oCde.Command = "ALTER CALL " & Trim(Str(LastID)) & " SET_INPUT file=" & Chr(34) & "Chemin_et_nom_du_fichier.wav" & Chr(34)

Je fais de plus amples tests avant de marquer ce post comme résolu.

Un grand merci pour ton aide, c'était mon premier post et dans ma grande impatience j'ai omis de vous saluer tous amis de vb6

[SfJ5Rpw8]

...
PCM 16 bits 16 Khz mono sinon cela reste muet de l'autre coté
Cela se modifie facilement à l'aide de sndrec32.exe "Fichier" "Propriétés"
...

pour l'info cela fonctionne, et j'aurai pas pensé à utiliser le "magnétophone" pour modifier le format du son (on peu nommer ce format "pou Skype" )

[ABOAT]

Boujour ,
J'ai un problème je n'arrive pas a rajouter un script (vbs) dans les gestion d'API
Quand j' exécute mon script , skype ne me demande pas "Accepter-vous ce programme d’être attacher a skype"
et mon script me fait cette erreur :


La ligne :


Comment enlever cette erreur ?
Merci d'avance

PS: Désolé de "déterrer" ce topic mais je n'ai pas trouvé de solution

[l_autodidacte]

On préfère un texte(pour le code) à une image (inexploitable)

La DLL Skype4COM.dll doit exister sur le système et être enregistrée via RegSvr32 selon la version de Windows en cours d'utilisation
par exemple pour moi et sans avoir Skype installé, le code suivant me dit que le client n'est pas installé mais crée l'objet voulu :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Init_Skype()
  Dim oSkype As Skype
  Set oSkype = CreateObject("Skype4COM.Skype")
  If Not oSkype.Client.IsRunning Then
     oSkype.Client.Start
  End If
  While Not oSkype.Client.IsRunning
    DoEvents
  Wend
  oSkype.Attach
End Sub