Requête http aléatoire

Version imprimable

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:

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"

14/12/2020, 17h16
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.
14/12/2020, 17h34
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.
14/12/2020, 17h58
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.
14/12/2020, 18h12
Angelus1753

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

Re re re ...

Code:

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.

14/12/2020, 19h19
Angelus1753

Alors que dire, que sa fonctionne à merveille. vraiment bien.

Un grand, grand, bravo à vous ProgElect. merci à tous, le problème et donc résolu et je crois en quelques minutes pour vous. Merci et bravo a vous, et toute l'équipe.