Bonsoir,
j'arrive pas telecharger multiple file par rapport URL avec webclient. j'arrive a telecharger que le premier fichier.
URL : https://archive.org/download/WiiWare...ionByGhostware
Pouvez-vous m'aider telecharger plusieurs fichier par rapport URL. merci
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 ...etc Private Sub download(sender As Object, e As DownloadStringCompletedEventArgs) Try Dim result As String = e.Result ListView1.Items(LV.Item(sender).Index).ToolTipText = result ListView1.Items(LV.Item(sender).Index).SubItems(1).Text = "Chargement en cours..." ListView1.Items(LV.Item(sender).Index).SubItems(1).ForeColor = Color.Green ListView1.Items(LV.Item(sender).Index).Text = Regex.Match(result, "\<a href=(.*?)\>(.*\.wad)\<\/a\s*?\>").Groups.Item(2).Value Using X As New WebClient AddHandler X.DownloadFileCompleted, AddressOf Complete2 AddHandler X.DownloadProgressChanged, AddressOf Progress X.DownloadFileTaskAsync(New Uri(TextBox1.Text & "/" & Regex.Match(ListView1.Items(LV.Item(sender).Index).ToolTipText, "\<a href=(.*?)\>(.*\.wad)\<\/a\s*?\>").Groups.Item(2).Value), TextBox2.Text & "\" & ListView1.Items(LV.Item(sender).Index).Text) LV.Add(X, ListView1.Items(LV.Item(sender).Index)) End Using Catch ex As Exception End Try End Sub
Partager