Discussion :

[Angelus1753]

Bonjour à toute et à tous

Je reviens vers vous pour une toute nouvelle question

Le code ci-dessous à la capacité de diffuser des flux de radio, playlist mp3, wav, etc. etc.
Le tout de manière invisible ce qui est parfait pour moi
Juste avec cette ligne dans le script permet d’avoir la diffusion de ce que l’on veut
Ma question et donc
Je voudrais pouvoir mettre plusieurs lignes dans le même script et les faire réagir en mode aléatoire tout en restant en VBS et invisible.

Merci par avance de vos réponses. Et je reste dans l’attente de pouvoir vous lire
Merci à tous

Code :

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

CreateObject("Wscript.Shell").Run "wmplayer /play /close ""C:\Users\Public\Music\Sample Music\Sleep Away.mp3""", 0, False

[l_autodidacte]

Bonjour;

Tu as déjà posé une question semblable ICI ; le traitement sera presque le même pour la partie Aléatoire​.
Essaie donc de t'en inspirer.

[Angelus1753]

Bonjour l_Autodidacte

Vous pensez que je pourrez ajouter à votre code antant de ligne que l'on veut???

Si oui celà m'intéresse.

Pour dire vrai vôtre code fonctionne à merveille d'où ma question :=)

[l_autodidacte]

Bien sûr, sans aucun problème à condition de savoir où et quoi mettre.

[Angelus1753]

Merci de votre réponse L_Autodidacte, je pense avoir une piste je reviens vers vous très vite pour vous dire ce que sa donne. Encore merci.

[ProgElecT]

Salut l_autodidacte et Angelus1753

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
Dim TblUrlMusic(6)
Dim ChemDossier
ChemDossier = "C:\MesProgs\HTML et JavaScript\RadioAmateurs\EtudeMorse\AudioMorse\"
Dim MusicObj
 
TblUrlMusic(0) = ChemDossier & "QRV.mp3"""
TblUrlMusic(1) = ChemDossier & "QRZ.mp3"""
TblUrlMusic(2) = ChemDossier & "QRA.mp3"""
TblUrlMusic(3) = ChemDossier & "QRT.mp3"""
TblUrlMusic(4) = ChemDossier & "QTH.mp3"""
TblUrlMusic(5) = ChemDossier & "QSA.mp3"""
 
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim Ret
ret = WshShell.Run ("wmplayer /play /close """ & TblUrlMusic(0), 0, True)
MsgBox ret
Set WshShell = Nothing

Le MsgBoxarrive avant la fin du morceau, il a toujours la valeur zéro.
Moi je ne parviens pas à détecter la fin du morceau pour en relancer un nouveau tout ça dans une boucle, c'est pourquoi je n'ai encor rien proposé