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é

[Angelus1753]

Bonsoir ProgElect

Merci à vous pour votre participation.

c'est exactement ce que je chercher plus exactement un seul morceau a la fois. donc pour moi parfait

mais car il y a un mais :=) pour vous une plaisanterie

le mode invisble parfait

le script ne lis que le premier morceau jamais les autres tous ce lance parfaitement bien mais on enetend toujours le même morceau.

[l_autodidacte]

A partir de la ligne 15, une modification doit être effectuée :

Code :

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

1
2
3
4
5
6
Dim ret, count
count = Ubound(TblUrlMusic)+1
Randomize
Ret = WshShell.Run("wmplayer /play /close " & TblUrlMusic(Int(Rnd*count)), 0, True)
'MsgBox ret
Set WshShell = Nothing

[ProgElecT]

Salut
Dans le titre il y a ce mot playlist , se qui me laisse penser que tu veux jouer x morceaux de façon aléatoire et non un seul morceau de façon aléatoire.

Ce que je n'arrive pas à réaliser, détecter la fin du morceau joué, pour passer à la suite.
Le mode aléatoire d'index du tableau de CheminNomFichier en créant une liste sans doublon, çà je sais faire, me manque cette information/détection de fin du morceau joué pour relancer le morceau suivant.
A votre bon cœur m'sieurs dames ....

[Angelus1753]

bonsoir ProgElect

je voudrai réaliser cela

la même chose mes avec des mp3 ou wav en mode invisible tout en ulisant windows media player

et L_Autoddacte me toture l'esprit :=)

ce qui est certe fort agréable, et ce qui nous permet de réfléchire encore plus

un seule morceau a la fois

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Dim Sortie
Dim objExplorer
Dim READYSTATE_COMPLETE
READYSTATE_COMPLETE = 4
'-------------------------------------------------------------------------------
Function MusicAuHasard()
URL1 = "http://127.0.0.1:8888/?play=medias/Mode_Controle/Mode_Controle_Merci_1.wav"'"http://URL/.mp3"
URL2 = "http://127.0.0.1:8888/?play=medias/Mode_Controle/Mode_Controle_Merci_2.wav"'"http://URL/.mp3"
URL3 = "http://127.0.0.1:8888/?play=medias/Mode_Controle/Mode_Controle_Merci_3.wav"'"http://URL/.mp3"
URL4 = "http://127.0.0.1:8888/?play=medias/Mode_Controle/Mode_Controle_Merci_4.wav"'"http://URL/.mp3"
URL5 = "http://127.0.0.1:8888/?play=medias/Mode_Controle/Mode_Controle_Merci_5.wav"'"http://URL/.mp3"
URL6 = "http://127.0.0.1:8888/?play=medias/Mode_Controle/Mode_Controle_Merci_6.wav"'"http://URL/.mp3"
ListMusic = array(URL1,URL2,URL3,URL4,URL5,URL6)
    Randomize
    For i = 0 To UBound(ListMusic)
        j = Int((UBound(ListMusic) - i + 1) * Rnd + i)
        tmp = ListMusic(i)
        ListMusic(i) = ListMusic(j)
        ListMusic(j) = tmp
    Next
MusicAuHasard=tmp
End Function
 
'-------------------------------------------------------------------------------
Dim TirageAlea
TirageAlea = MusicAuHasard()
'MsgBox TirageAlea,64,"Music au Hasard"
 
 
Set objExplorer = CreateObject("InternetExplorer.Application")
 
Sortie = DateAdd("S", 10, Now) 'ajoute de 10 Sc par apport à l'heure systeme
objExplorer.navigate TirageAlea 'pas de parametre supplementaire
Do
        If Now >= Sortie Then Exit Do
Loop Until objExplorer.readyState = READYSTATE_COMPLETE
 
objExplorer.Visible=false
Set objExplorer = NotHing
If varType(objExplorer) = 9 Then
        'msgbox "C'est bon"
        Else
        msgbox "Impossible d'ouvrir la page " & TirageAlea
End If

[l_autodidacte]

et L_Autoddacte me toture l'esprit :=)

Plutôt aiguiller au lieu de torturer

[l_autodidacte]

Bonjour ProgElecT et Angelus1753
Pour trouver la durée du morceau :

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
Option Explicit 
Dim T, objPlayer 
Set objPlayer = CreateObject("Wmplayer.OCX") ' ou bien "Wmplayer.OCX.7"
With objPlayer  
    .Settings.autoStart = True
    .Settings.volume = 50  ' de 0 à 100
    .Settings.balance = 0   ' de -100 à 100
    .Settings.EnableErrorDialogs = False
    .EnableContextMenu = False
    .URL = "C:\Audio\Fichier.mp3"
    WScript.Sleep(3000)  ' temps pour charger et commencer la lecture du fichier
    T = .currentMedia.Duration ' T = durée en secondes
End With
WScript.Sleep(T*1000) ' Attente égale à la durée de lecture (en ms)
WScript.Echo T

[Angelus1753]

Bonjour à vous Messieurs

L_Autodidacte je viens de tester votre code il y a une erreur en ligne 1 caractère 17 il est fort possible que ce soit mon windows 7 64 bits qui fasse des siennes

en revanche un autre indice ne serai pas du luxe :=)

j'ai passai un bon moment à chercher. Mais j'ai toujours la lecture du premier titre qui ce lance et pas les autres

le but étant, est à chaque clique un nouveau morceaux qui ce lance et la toujours le même. ces frustrant car je suis sur d'être pas loin

merci à vous L_Autodidacte.

[l_autodidacte]

L'erreur à la ligne 1 c'est à cause de sa structure qui était : Option Explicit Dim T, objPlayer; c'est un tour joué soit par mon navigateur(Chrome) soit par Notepad++ (mon éditeur préféré) pendant le Copier/Coller .
Essaie avec le code retouché.

Code :

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

1
2
Option Explicit 
Dim T, objPlayer

[Angelus1753]

effectivement je n'ai plus d'erreur

j'ai modifier mon message.

en pointant bien sur le bon fichier audio, effectivement à la fin de la musique un message s'affiche avec le temps exacte de la durée du fichier audio

en toute sincérité je ne savais même pas que c'étai faisable en vbs bravo à vous L_Autodidacte.

[ProgElecT]

A que coucou

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Option Explicit
Dim T, objPlayer, Durer 
Dim TblUrlMusic() 'tableau Urls de base
Dim TableauFinal() 'tableau d'index aléatoires
Dim Alealiste() 'tableau final Urls en aléatoire
 
Dim ChemDossier
ChemDossier = "https://contrib-vb.developpez.com/ProgElecT/RadioAmateurs/EtudeMorse/AudioMorse/"
Dim MusicObj
 
Redim TblUrlMusic(6)
TblUrlMusic(0) = ChemDossier & "virgule.mp3"
TblUrlMusic(1) = ChemDossier & "QRZ.mp3"
TblUrlMusic(2) = ChemDossier & "QRA.mp3"
TblUrlMusic(3) = ChemDossier & "QRT.mp3"
TblUrlMusic(4) = ChemDossier & "QTH.mp3"
TblUrlMusic(5) = ChemDossier & "interrog.mp3"
 
'---------- mélange des Urls de façon aléatoire -----------------
TirageAleatoire 0, UBound(TblUrlMusic) - 1
ReDim Alealiste(UBound(TblUrlMusic) - 1)
For T = 0 To UBound(TblUrlMusic) - 1
    Alealiste(TableauFinal(T)) = TblUrlMusic(T)
Next
'---------- FIN mélange des Urls de façon aléatoire -----------------
 
'****************** DEBUG A mettre en commentaire par la suite ****************************
'Dim Msg
'For T = 0 To UBound(Alealiste)-1
'	Msg = Msg & Alealiste(T)
'	MsgBox Alealiste(T)
'	If T < UBound(Alealiste)-1 then Msg = Msg & vbNewLine  
'Next
'MsgBox MsG
'****************** FIN DEBUG A mettre en commentaire par la suite ****************************
 
' A ce stade Alealiste() contient les chemins et nom de fichiers mélangés
Set objPlayer = CreateObject("Wmplayer.OCX.7") ' ou bien "Wmplayer.OCX.7"
With objPlayer  
	.Settings.autoStart = True
	.Settings.volume = 100  ' de 0 à 100
	.Settings.balance = 0   ' de -100 à 100
	.Settings.EnableErrorDialogs = False
	.EnableContextMenu = False
End With
 
 
For T = 0 To UBound(TblUrlMusic)-1 
	objPlayer.URL = TblUrlMusic(T)
	WScript.Sleep(500)  ' temps pour charger et commencer la lecture du fichier
	Durer = objPlayer.currentMedia.Duration ' Durer = durée en secondes
	WScript.Sleep(Durer*1000) ' Attente égale à la durée de lecture (en ms)
Next
 
Set objPlayer = Nothing
WScript.Echo "c'est fini"
 
'---------------------------------------------création liste d'index mélangés -----------------------------------------------
Sub TirageAleatoire(MinI, MaxI)
Dim Ch, Nb, NbAleatoire
ReDim TableauFinal(MaxI - MinI)
Ch = MinI
For T = MinI + 1 To MaxI: Ch = Ch & "," & T: Next
Nb = Split(Ch, ",")
Randomize
For T = MaxI - MinI To 0 Step -1
  NbAleatoire = Int((T + 1) * Rnd)
  TableauFinal(MaxI - MinI - T) = Nb(NbAleatoire)
  If NbAleatoire < T Then Nb(NbAleatoire) = Nb(T)
Next
End Sub '--------------------------------------------------------------------------------------------

Cela ne sera pas évidant pour vous, il faut pratiquer le morse (CW en tant que radioamateur F1NHS), mais les 6 morceaux sont joué de façon aléatoire.
Le code ci-dessus est un mélange de chacun des vôtres.

[Angelus1753]

Bonjour ProgElect

j'ai bien le message de fin

indiquant c'est fini mes j'ai pas de son

[ProgElecT]

... j'ai pas de son

avec la ligne de code de ton premier message, CreateObject("Wscript.Shell").Run "wmplayer /play /close ""C:\Users\Public\Music\Sample Music\Sleep Away.mp3""", 0, Falsetu entends le son?

[Angelus1753]

oui avec cette ligne de code on a du son, et tout passe en invisible

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]

Il n'y a pas de son à cause de cette erreur :


J'ai essayé d'ouvrir la page contenant les fichiers à lire mais j'ai reçu le message précédent.