Piloter Skype en VB6/VBScript

Version imprimable

22/10/2007, 17h30
SfJ5Rpw8

Piloter Skype en VB6/VBScript

Bon tout est dans le titre ....

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

donnez votre avis à la suite ..

:merci:
08/10/2008, 19h05
bennouz

Vb6 et skype

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:

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.

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:

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:

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

;)

09/10/2008, 19h14
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
09/10/2008, 19h28
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 ?
09/10/2008, 19h35
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 :oops:

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:

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

10/10/2008, 13h05
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:

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
11/10/2008, 18h25
SfJ5Rpw8

Citation:

Envoyé par bennouz

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

:merci: 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" ) :king:
11/10/2015, 16h51
ABOAT

2 pièce(s) jointe(s)

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 :
Pièce jointe 189934

La ligne :
Pièce jointe 189935

Comment enlever cette erreur ?
Merci d'avance

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

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:

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