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 |
