'liste des url Dim maliste As New List(Of String) From {"www.google.fr", "www.google.es", "www.google.com"} Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For x As Integer = 0 To maliste.count - 1 'ouverture d'une url au hasard dans 'maliste' Process.Start(maliste(x)) 'pause d'une seconde Threading.Thread.Sleep(1000) Next End Sub
'liste des url Dim maliste As New List(Of String) From {"www.google.fr", "www.google.es", "www.google.com"} Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'lancement d'un thread Dim t As New Threading.Thread(AddressOf job) t.Start() End Sub Sub job() 'boucle Do 'ouverture d'une url au hasard dans 'maliste' Process.Start(maliste(New Random().Next(0, 3))) 'pause d'une seconde Threading.Thread.Sleep(1000) Loop End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questiondim generateur as new random
Process.Start(maliste(generateur.Next(0, 3)))