[VB.NET] Авторизация на сайте

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by AnDrey1636, 7 Sep 2011.

  1. AnDrey1636

    AnDrey1636 New Member

    Joined:
    24 Jul 2010
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    Знаю, что тема уже всем надоела, но к сожалению я так и не смог найти нужной инфы по данному вопросу. Нужны примеры, а не "инструкция в двух словах" как любят писать всякие помощники :) Авторизироваться хочу на http://www.ganjawars.ru/login.php чисто для понимания материала :) Заранее спасибо.
     
  2. dtsey

    dtsey New Member

    Joined:
    4 Sep 2011
    Messages:
    19
    Likes Received:
    1
    Reputations:
    0
    Скачай HTTP Analyzer, включи его, залогинись с браузера, отлови отправленные данные Analyzer'ом, с помощью idhttp & idcookiemanager создай запрос, создав "список" POST-запроса c помощью TStringList.
    Алсо, почитай статьи по авторизации на сайтах в Delphi по средствам Indy (а точнее: idhttp & idcookiemanager).
     
  3. dtsey

    dtsey New Member

    Joined:
    4 Sep 2011
    Messages:
    19
    Likes Received:
    1
    Reputations:
    0
    Code:
    var
    check: string;
    loginfo: TStringList;
    begin 
     {на форме idhttp и idcookiemanager}
     idhttp.CookieManager:=Idcookiemanager1;
     Idhttp1.request.Allowcookies:=true;
     idhttp1.request.HandleRedirect:=true;
     loginfo:=TStringList.Create;
     loginfo.add('handle='+mylogin); 
     loginfo.add('password='+mypassword); 
     IdHttp1.Post('http://lockerz.com/auth/login', loginfo);
     check:=IdHttp1.Get('http://lockerz.com');
     if pos('logout',check)>0 then begin 
     MessageBox(0,'Залогинился!','Info about login',MB_OK);
     end
     else begin
     MessageBox(0,'Капец. Не залогинился','Info about login',MB_OK);
     end;
     loginfo.free;
    end;
    
    Создай себе аккаунт на том сайте, используй программу, о которой я написал выше и разбирайся.
     
    #3 dtsey, 7 Sep 2011
    Last edited: 7 Sep 2011