télécharger source d'une page web.

Bonjour. J'utilisais un programme pour récuprere du texte d'un code source d'une page web.
Mais pour je ne sais quel raison cela ne fonctionne plus il y a une erreur à la ligne 22

Code:

source = wcli.DownloadString(website)

L'erreur c'est

Le serveur distant a retourné une erreur : (403) Interdit.

Quelqu'un peut m'aider svp ?

Voila le code

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
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i As Integer = 0 To NumericUpDown1.Value
 
 
            Dim website As String = "https://www.yggtorrent.me/engine/search?do=search&page=" & i & "#paginator"
            Dim source As String
            Dim wcli As WebClient
 
 
            wcli = New WebClient()
            wcli.Headers.Add("user-agent", "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/91.0.4472.77 Safari/537.36\r\n")
            wcli.Headers.Add("Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9\r\n")
            wcli.Headers.Add("Accept-Language", "Accept-Encoding: gzip, deflate\r\n")
            wcli.Headers.Add("Accept-Encoding", "gzip, deflate")
 
 
            source = wcli.DownloadString(website)
 
 
            Dim r As New Regex("</tbody></table>(.*)</tbody>")
            For Each m As Match In r.Matches(source)
                Dim res As String = m.Value.Split("""")(0)
                res = res.Remove(0, 1)
                Invoke(New MethodInvoker(Sub() Namelist.Items.Add(res)))
            Next
        Next
    End Sub