Bon tout est dans le titre ....
http://bbil.developpez.com/tutoriel/vb/skype-vb/
donnez votre avis à la suite ..
![]()
Bon tout est dans le titre ....
http://bbil.developpez.com/tutoriel/vb/skype-vb/
donnez votre avis à la suite ..
![]()
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 :
est censé envoyer le fichier audio mais rien ne se passe.
Code : Sélectionner tout - Visualiser dans une fenêtre à part oSkype.ActiveCalls.Item(1).InputDevice(SKYPE4COMLib.TCallIoDeviceType.callIoDeviceTypeFile) = "test.wav"
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 :
Clique sur le premier bouton, puis après le beep .. sur le second..
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
[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![]()
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
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 ?
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![]()
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)
et avec ce .wav c'était mieux...
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
[Edit] après une petite recherche Skype serai allergique au .wav dont il n'est pas l'auteur.. on devrai chercher dans cette direction ..
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 :
Je fais de plus amples tests avant de marquer ce post comme résolu.
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)
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
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
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager