Discussion :

[tazbox]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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
 
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

[r.morel]

Salut,
Le domaine de YGGTorrent est désormais https://yggtorrent.li/
N'est ce pas du à cela ?