Discussion :

[Angelus1753]

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"

[ProgElecT]

Salut

Au vue de tes autres discussion, tu dois vraiment avoir un problème avec ton interpréteur VBScript, car ton code ci-dessus fonctionne très bien.

[Angelus1753]

Vous voulez dire que l'URL ce lance. chez moi elle ce lance pas, j'ai le message que l'URL passe en mode aléatoires par un message box mes l'URL ne ce lance pas.

[ProgElecT]

Salut

Le code proposé ne fait que trouver une URL au hasard, en aucun cas il ne contient une commande pour ouvrir l'URL.
Personnellement J'ai pensé que tu avais un problème pour tirer une URL avec le code que tu as mis, il reste à écrire la suite pour lancer l'URL.

[Angelus1753]

C'est justement ce que je veux faire, pouvoir envoyé des requêtes http en mode invisible. Et surtout en mode aléatoires.

[ProgElecT]

Re re re ...

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 = "https://www.zeffyrmusic.com/top/1"'"http://URL/Music1.mp3"
URL2 = "https://www.zeffyrmusic.com/top/2"'"http://URL/Music2.mp3"
URL3 = "https://www.zeffyrmusic.com/top/3"'"http://URL/Music3.mp3"
URL4 = "https://www.zeffyrmusic.com/top/4"'"http://URL/Music4.mp3"
URL5 = "https://www.zeffyrmusic.com/top/5"'"http://URL/Music5.mp3"
URL6 = "https://www.zeffyrmusic.com/top/6"'"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
 
'-------------------------------------------------------------------------------
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=True
Set objExplorer = NotHing
If varType(objExplorer) = 9 Then
        'msgbox "C'est bon"
        Else
        msgbox "Impossible d'ouvrir la page " & TirageAlea
End If

Pour rendre invisible IE, il suffit de supprimer la ligne objExplorer.Visible=True.
ATTENTION les URLs que j'ai choisis ne lance pas directement la musique, il faut que l'utilisateur clique au bonne endroit,
à toi de trouver des sites internet qui lance directement la musique sans intervention de l'internaute.