Авторизация "В контакте"

[vilix]

Запросы дальше надо было) для работы дальше с контактом))
Проблему свою решил.. тоже при .get давало код странички логина . решил так :

IdHTTP1.Request.CustomHeaders.Text := 'Cookie: remixsid='+SID+';';
IdHTTP1.get('www');

[raxp]

после авторизации прекрасно заходит в группы через idhttp.get, парсить нужно немного по-другому

[spamer]

Кстати, я вот только заметил, что страничку не получается получить...
raxp, а как вы парсите? Ведь страничка выше приведенным кодом не забирается... Можете показать пример?

EDIT:
ну если повесить куки, как предложил vilix, то вроде работает...но все же интересно увидеть, как raxp забрал информацию...

[xakil]

Сообщение от vilix

IdHTTP1.Request.CustomHeaders.Text := 'Cookie: remixsid='+SID+';';
IdHTTP1.get('www');

А где ты получил SID?

Я попробовал вытянуть так:

s := IdCookieManager1.CookieCollection[1].Value;

Но он получился какой-то неправильный. И с ним не работает. Если же беру ID сессии из Mozill'ы то работает нормально. Но как получить его в программе?

[raxp]

куки изначально поставил, это само собой разумеется при работе с такими сайтами ...при заходе в группу после авторизации страничка имеет другой вид и нужно искать тег picture, ссылка на картинку тоже имеет другой вид ...все будет ясно, если загнать в memo сами ответы или сохранить их в файл.

[Lemo]

Авторизировался(так как в мемо "Авторизация удалась") -> зашёл в группу -> и просмотри или уникальные посещения не поменялись...... Что я неправильно делаю?

IdHTTP1.AllowCookies:=true;
 IdHTTP1.HandleRedirects:=false;
 data:=tstringlist.create;
 data.Add('email=ххххххх'); // логин для авторизации
 data.Add('pass=ххххххх');  // пароль для авторизации
 data.Add('expire=');
 data.Add('vk=');
 error:=false;
 try


  PageProfile:=IdHTTP1.Post('http://login.vk.com/?act=login', data);
 except
  error:=true;
 end;

 if not(error) then
  begin
   data.Clear;
   data.Add('s='+Copy(PageProfile, Pos('value', PageProfile)+7, 56));
   data.Add('op=slogin');
   data.Add('redirect=1');
   data.Add('expire=0');
   data.Add('to=');
   IdHTTP1.HandleRedirects:=true;
   try
    PageProfile:=IdHTTP1.Post('http://vkontakte.ru/login.php', data);
   except
   end;
   Memo1.Lines.Add('Авторизация удалась');
  end
 else
  Memo1.Lines.Add('Авторизация не удалась');



IdHTTP1.get('http://vkontakte.ru/clubхххххххх');

 Data.Free;

Или такой случай:
Авторизируюсь -> качаю исходный текст страници -> и понимаю что это код при входе в ВК, но я уже авторизирован .........

 IdHTTP1.AllowCookies:=true;
 IdHTTP1.HandleRedirects:=false;
 data:=tstringlist.create;
 data.Add('email=хххххх'); // логин для авторизации
 data.Add('pass=хххххх');  // пароль для авторизации
 data.Add('expire=');
 data.Add('vk=');
 error:=false;
 try


  PageProfile:=IdHTTP1.Post('http://login.vk.com/?act=login', data);
 except
  error:=true;
 end;

 if not(error) then
  begin
   data.Clear;
   data.Add('s='+Copy(PageProfile, Pos('value', PageProfile)+7, 56));
   data.Add('op=slogin');
   data.Add('redirect=1');
   data.Add('expire=0');
   data.Add('to=');
   IdHTTP1.HandleRedirects:=true;
   try
    PageProfile:=IdHTTP1.Post('http://vkontakte.ru/login.php', data);
   except
   end;
   Memo1.Lines.Add('Авторизация удалась');
  end
 else
  Memo1.Lines.Add('Авторизация не удалась');



//IdHTTP1.ProxyParams.ProxyServer:='192.42.43.23';
//IdHTTP1.ProxyParams.ProxyPort:=3128;
idHttp1.HandleRedirects:=true;
f:=TFileStream.Create('GG.txt',fmCreate);
IdHTTP1.get('http://vkontakte.ru/',f);
f.Free;




 Data.Free;

[spamer]

Вот прикрепляю более правильный вариант данной проблемы - авторизация проходит, данные с любой страницы "В контакте" забираются :
з.ы. код страшный - писал наспех...

[Lemo]

 for I := 0 to 1 do

BEGIN
sleep(500);

   idhttp1.ProxyParams.ProxyServer:=ListBox5.Items[i];
   idhttp1.ProxyParams.Proxyport:=StrToInt(ListBox6.Items[i]);

  IdHTTP1.AllowCookies:=true;
  IdHTTP1.HandleRedirects:=false;
  data:=tstringlist.create;
  data.Add('email='+ListBox2.Items[i]);
  data.Add('pass='+ListBox3.Items[i]);
  data.Add('expire=');
  data.Add('vk=');
  error:=false;
 try
  PageProfile:=IdHTTP1.Post('http://login.vk.com/?act=login', data);

 except
  error:=true;
 end;

 if not(error) then
  begin
    data.Clear;
    s := Copy(PageProfile, Pos('value', PageProfile)+7, 56);
    data.Add('s='+ s);
    data.Add('op=slogin');
    data.Add('redirect=1');
    data.Add('expire=0');
    data.Add('to=');
    IdHTTP1.HandleRedirects:=true;
   try
      PageProfile:=IdHTTP1.Post('http://vkontakte.ru/login.php', data);
   except
   end;

  IdHTTP1.Request.CustomHeaders.Text := 'Cookie: remixsid='+ s +';';     // Куки
  IdHTTP1.get('http://vkontakte.ru/club10767403');

  end
 else
        ShowMessage('Авторизация не удалась');
        Data.Free;

        ShowMessage(inttostr(i+1));   // 1 появляеться, а 2 нет(
END;
end;

В цикле 2 раза решил авторизи роваться и посетить группу, 1-й раз все норм, а вот 2-й раз вообще никак ... никаких ошибок просто как бы програмно виснет программа ...

ЗЫ прокси и акки валидные(сам проверял)

[Alex2009]

Сообщение от spamer

Вот прикрепляю более правильный вариант данной проблемы - авторизация проходит, данные с любой страницы "В контакте" забираются :
з.ы. код страшный - писал наспех...

Как в твоем исходнике сделать вывод СП в Label.
И вывод Имени Подмиси и Фамилии например "Аня ♥♥маленькое чудо♥♥ Кременчук"?

[Alex2009]

Что не кто не знает ответа?? :'(