Bonjour à Tous !

je reviens vers Vous pour une nouvelle information qui j'espère pourra aider d'autres personnes

merci par avance de vos réponse et merci à tous les membres de ce forum.

J'ai vue qu'il était possible d'envoyer des requête http en mode aléatoires

Le code ci dessous n'arrive pas envoyé les url

Le but et de pouvoir contacter la box domotique avec des requête http
En vous remerciant...

code VBS

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
Function MusicAuHasard()
URL1 = "http://URL/Music1.mp3" 
URL2 = "http://URL/Music2.mp3"
URL3 = "http://URL/Music3.mp3"
URL4 = "http://URL/Music4.mp3"
URL5 = "http://URL/Music5.mp3"
URL6 = "http://URL/Music6.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
MsgBox MusicAuHasard(),64,"Music au Hasard"