403 Access Forbiden

RainMan97 -  
 RainMan97 -
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. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    Pouvez preciser le langage de programmation?
    0
  2. jordane45 Messages postés 30427 Date d'inscription   Statut Modérateur Dernière intervention   4 832
     
    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
  3. RainMan97
     
    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
  4. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question