bonjour alors je vous expose mon code ci-dessous
lors du process.start le telechargement se lance bien mais on a l'impression qu il se freeze et il repart mais a faible allure (environ 25ko/sec) quelqu'un aurai il une idée pour augmenter cette vitesse ?

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
45
46
47
48
49
50
51
52
53
54
55
Public Class Form1
    Dim fileid
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim link = urlBox1.Text
        If link.Contains("rapidshare.com/files") Then
            wb.Navigate(link)
            fileid = Mid(link, 34, 10)
        Else
            MsgBox("merci de saisir le lien complet ex : https://rapidshare.com/files/72635215/filename.zip")
        End If



    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        wb.ScriptErrorsSuppressed = True
        
    End Sub

    Private Sub wb_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles wb.DocumentCompleted
        If wb.Url.ToString.Contains("File not found") Then
            MsgBox("lien mort")
        Else

            Dim Answer As MsgBoxResult = MsgBox("Voulez vous telecharger le fichier ?", MsgBoxStyle.YesNo, "Telechargement")
            If Answer.ToString = "Yes" Then

                Timer1.Start()
            End If

        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        For Each ClientControl As HtmlElement In wb.Document.Links
            Try
                If ClientControl.GetAttribute("href").Contains(fileid) Then
                    Dim test = (ClientControl.GetAttribute("href"))
                    MsgBox(test)
                    Process.Start(test)
                    Exit Sub
                End If
            Catch ex As Exception
            End Try


        Next
    End Sub
End Class