403 Access Forbiden

Bonjour,

Avant tout voici mon code :

Dim words() As String = Response.Split(New Char(){","c})
            Dim pic_url As String = ""
            Dim urs() As String = Response.Split("""profile_pic_url""")
            Dim locationn As String = "C:\picture.jpg"
            For Each picurl As String In urs
                If picurl.Contains(".jpg") Then
                    pic_url = picurl
                Else

                End If
            Next

            Dim fileExists As Boolean
            fileExists = My.Computer.FileSystem.FileExists("C:\picture.jpg")

            If fileExists = True Then
                My.Computer.FileSystem.DeleteFile("C:\picture.jpg", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)
            Else
                Try
                    Dim picture As New WebClient()
                    picture.DownloadFile(pic_url, locationn)
                    PictureBox2.Load(locationn)
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            End If


Je voudrai récupérer une photo de profil, mais j'obtient l'erreur 403 accès interdit. Pouvez-vous m'aider s'il vous plait ?

5 réponses

  1. Bonjour, oui en effet c'est du VB

    En ce qui concerne les solutions proposés, je pense que c'est la requête de l'agent web qui me pose soucis.
    L'url que j'essaie d'atteindre est celle d'instagram afn de récupérer la photo de profil de celui qui s'est connecté. Je reçois tout sous forme de cookies, que je split afin d'obtenir l'url de la photo de profil. Ainsi, j'essaie de le télécharger pour le charger dans une picturebox mais le soucis se pose : 403 access forbiden.

    Dim Response As String = ""
            Using Request As HttpRequest = New HttpRequest
                With Request
                    .IgnoreProtocolErrors = True
                    .UserAgent = "Instagram 100.1.0.29.135 Android"
                    .AddParam("Content-Type", "application/x-www-form-urlencoded; charset=UTF-8")
                    .AddParam("username", Username)
                    .AddParam("password", Password)
                    .AddParam("device_id", Guid.NewGuid.ToString)
                    .AddParam("login_attempt_count", "0")
                End With
                Dim RequestInfo = Request.Post("https://i.instagram.com/api/v1/accounts/login/")
                Dim RequestCookies = RequestInfo.Cookies
                Cookies = ""
                For Each Cookie In RequestCookies
                    Cookies = $"{Cookies}{Cookie.Key}={Cookie.Value};"
                Next
                Response = RequestInfo.ToString


    Ceci vient s'incrémenter juste au dessus du premier code que j'ai envoyé plus haut.

    Merci beaucoup pour vos réponses !
    0
    1. Modérateur
      Bonjour
      Pour le langage.. il semble que ca soit du vb.net

      Pour ce qui est de l'erreur... Cest un souci lié à l'URL utilisée.
      Pourrais tu nous fournir un exemple d'URL que tu essais d'atteindre ?
      Soit elle n'est bonne... Soit il faut être authentifié avant pour pouvoir y accéder... Soit il faut lui transmettre un "agent" ( lui faire croire que tu utilises un navigateur internet) pour pouvoir y accéder.

      0
      1. Bonjour,

        Pouvez preciser le langage de programmation?
        0