Comment faire pour obtenir Instagram suivre la liste en utilisant le composant http dans Delphi 10

Question

J'essaye d'obtenir ma liste instagram "suivante" en utilisant seulement le composant http. J'ai essayé d'utiliser lHTTP.Get('https://www.instagram.com/Myusername/following/'); mais il n'y a aucun nom d'utilisateur dans le code HTML déchiffré. Cependant, j'ai vu des gars l'utiliser sans instagram API, juste une réponse http dans VB.Net. J'utilise Delphi 10.

MISE À JOUR

procedure TForm1.Button4Click(Sender: TObject); 
var 
    lHTTP: TIdHTTP; 
    IdSSL: TIdSSLIOHandlerSocketOpenSSL; 
    Params, login : TStrings; 
    Reply, Token, X: string; 
    Cookie: TIdCookie; 
begin 

try 
Params := TStringList.Create; 
Params.Add('username=' + Edit1.Text); 
Params.Add('password=' + Edit2.Text); 

lHTTP := TIdHTTP.Create(nil); 
try 
    IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create(lHTTP); 
    IdSSL.SSLOptions.Method := sslvTLSv1; 
    IdSSL.SSLOptions.Mode := sslmClient; 
    lHTTP.IOHandler := IdSSL; 
    lHTTP.ReadTimeout := 30000; 
    lHTTP.HandleRedirects := True; 
    lHTTP.Request.UserAgent := 'Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/46.0.2490.76 Mobile Safari/537.36'; 
    lHTTP.Get('https://www.instagram.com', TStream(nil)); 
    Cookie := lHTTP.CookieManager.CookieCollection.Cookie['csrftoken', 'www.instagram.com']; 
    if Cookie <> nil then 
    Token := Cookie.Value; 

    try 
    lHTTP.Request.CustomHeaders.Values['X-CSRFToken'] := Token; 
    lHTTP.Request.CustomHeaders.Values['X-Instagram-AJAX'] := '1'; 
    lHTTP.Request.CustomHeaders.Values['X-Requested-With'] := 'XMLHttpRequest'; 
    lHTTP.Request.Referer := 'https://www.instagram.com/'; 
    lHTTP.Request.ContentType := 'application/x-www-form-urlencoded'; 
    lHTTP.Request.UserAgent := 'Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/46.0.2490.76 Mobile Safari/537.36'; 
    Reply := lHTTP.Post('https://www.instagram.com/accounts/login/ajax/', Params); 

    finally 
    end; 

    finally 
    end; 

Finally 

    lHTTP.Request.UserAgent := 'Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/46.0.2490.76 Mobile Safari/537.36'; 
    lHTTP.Get('https://www.instagram.com/myusername/following/', TStream(nil)); 
    Memo1.Lines.Add(Reply); 


    Finally 
    end; 
end; 



end; 

Answer 1

Sur cette ligne:

lHTTP.Get('https://www.instagram.com/myusername/following/', TStream(nil)); 

Vous dites Get() d'ignorer le corps de la réponse (AResponseContent=nil), puis vous n'attribuez pas la nouvelle réponse à votre variable Reply, donc vous affichez la vieille valeur Reply de l'oreille r réponse de connexion.

Pour obtenir le code HTML de la page /following, utilisez plutôt

Reply := lHTTP.Get('https://www.instagram.com/myusername/following/'); 

Cependant, si vous regardez les requêtes HTTP réelles qu'un navigateur Web fait, vous verrez qu'en cliquant sur le lien Following sur votre page de profil envoie en fait une requête AJAX POST à l'adresse suivante pour recevoir un document JSON énumérant les disciples:

https://www.instagram.com/query/

contenant une chaîne de requête dans le corps POST. Vous devez répliquer cette demande AJAX, par exemple:

var 
    //... 
    userid: string; // <-- add this 
begin 
    // after your AJAX login... 

    lHTTP.Request.UserAgent := 'Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/46.0.2490.76 Mobile Safari/537.36'; 
    lHTTP.Request.Connection := 'keep-alive'; 
    lHTTP.Get('https://www.instagram.com/myusername/', TStream(nil)); 

    cookie := lHTTP.CookieManager.CookieCollection.Cookie['csrftoken', 'www.instagram.com']; 
    if cookie <> nil then 
    token := cookie.Value 
    else 
    token := ''; 

    cookie := lHTTP.CookieManager.CookieCollection.Cookie['ds_user_id', 'www.instagram.com']; 
    if cookie <> nil then 
    userid := cookie.Value; // <-- add this 

    Params.Clear; 
    Params.Add('q=ig_user(' + userid + ') {'+LF+ 
      ' follows.first(10) {'+LF+ 
      ' count,'+LF+ 
      ' page_info {'+LF+ 
      '  end_cursor,'+LF+ 
      '  has_next_page'+LF+ 
      ' },'+LF+ 
      ' nodes {'+LF+ 
      '  id,'+LF+ 
      '  is_verified,'+LF+ 
      '  followed_by_viewer,'+LF+ 
      '  requested_by_viewer,'+LF+ 
      '  full_name,'+LF+ 
      '  profile_pic_url,'+LF+ 
      '  username'+LF+ 
      ' }'+LF+ 
      ' }'+LF+ 
      '}'+LF); 
Params.Add('ref=relationships::follow_list'); 

lHTTP.Request.CustomHeaders.Values['X-CSRFToken'] := token; 
lHTTP.Request.CustomHeaders.Values['X-Instagram-AJAX'] := '1'; 
lHTTP.Request.CustomHeaders.Values['X-Requested-With'] := 'XMLHttpRequest'; 
lHTTP.Request.Referer := 'https://www.instagram.com/myusername/'; 
lHTTP.Request.ContentType := 'application/x-www-form-urlencoded'; 
lHTTP.Request.UserAgent := 'Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/46.0.2490.76 Mobile Safari/537.36'; 
Reply := lHTTP.Post('https://www.instagram.com/query/', Params); 

// process Reply as needed ... 

maintenant Reply doit recevoir JSON contenant les 10 premiers disciples dans votre liste.