Не проходит авторизация Вконтакте

[DKENT]

Здраствуйте!!!
Хочу авторизоваться на сайте Вконтакте посредством GET запроса!

procedure TForm1.Button1Click(Sender: TObject);
var PageProfile:string;
begin
IdHTTP1.AllowCookies:=true;
IdHTTP1.HandleRedirects:=true;
try
PageProfile:=IdHTTP1.Get('http://vkontakte.ru/login.php?email='+Edit1.Text+'&pass ='+Edit2.Text);
except
end;
if Pos('logout', PageProfile)<>0 then
Memo1.Lines.Add('Автоизовались')
else
Memo1.Lines.Add('Не авторизовались');
end;

Но почемуто данный метод неработает!
Прошу помощи)))
Стоит Indi 10

[Пепел Феникса]

а вы уверены что все так просто?

[kangreon]

Indy не хочет принемать некоторые куки.
Посмотреть примеры авторизации можно тут:
http://kdcodes.blogspot.com/2011/02/delphi.html

ну или просто вручную записывать куки.

var
  s, c, remixchk, remixsid: string;
  i: Integer;
  http: TIdHTTP;
begin
  http := TIdHTTP.Create;
  // Москировка под оперу :)
  http.AllowCookies := False;
  http.HandleRedirects := False;
  http.Request.UserAgent :=
    'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.7.62 Version/11.01';
  // Отлавливаем редирект. ВАЖНО!!! Иначе не установятся куки
  try
    // Отправляем Логин и Пароль
    s := http.Get('http://vkontakte.ru/login.php?m=1&email=' + Edit1.Text +
      '&pass=' + Edit2.Text);
  except
    // Если редирект - Редиректим
    if http.ResponseCode = 302 then
    begin
      c := http.Response.RawHeaders.Text;
      i := PosEx('remixchk', c) + 9;
      remixchk := Copy(c, i, PosEx(';', c, i)-i);
      i := PosEx('remixsid', c) + 9;
      remixsid := Copy(c, i, PosEx(';', c, i)-i);
      http.Request.CustomHeaders.Text := 'Cookie: remixchk=' + remixchk +
        '; remixsid=' + remixsid;
      s := http.Get('http://vkontakte.ru' + http.Response.Location);
    end
    else
    begin
      ShowMessage('Ошибка авторизации');
    end;
  end;
  // Авторизация пройдена
 
  // Для проверки загрузим последние Личные Сообщения
  s := http.Get('http://vkontakte.ru/mail.php');
  i := 1;
  while PosEx('new messageBody', s, i) <> 0 do
  begin
    i := PosEx('new messageBody', s, i) + 17;
    ListBox1.Items.Add(Copy(s, i, PosEx('"', s, i) - i));
  end;
  http.Free;

[DKENT]

kangreon
Выдает ошибку


Я так понял ругаеться на редирект!!!
Возможно нужно включить HandleRedirects := True ?

// Для проверки загрузим последние Личные Сообщения

s := http.Get('http://vkontakte.ru/mail.php');
i := 1;
while PosEx('new messageBody', s, i) <> 0 do
begin
i := PosEx('new messageBody', s, i) + 17;
ListBox1.Items.Add(Copy(s, i, PosEx('"', s, i) - i));
end;

Не работает данная функция!!!!

[DKENT]

Народ так что кто нибудь поможет???

[kangreon]

Не работает данная функция!!!!

Да ну?

Вот проект с выше написанным кодом + скомпилированный файл.

PS HandleRedirects в данном случае включать не надо. тк единственный редирект обрабатывается вручную.

Process stopped. Use Step or Run to continue.

Процесс остановился. Используйте Шаг или Запустить, чтобы продолжить.

[DKENT]

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

Да ну?

Вот проект с выше написанным кодом + скомпилированный файл.

PS HandleRedirects в данном случае включать не надо. тк единственный редирект обрабатывается вручную.

Вот что выдает если он невключен!!!


Но если запускаю отделно exe файл то работает!!!!
В чом же может быть проблема?

[Пепел Феникса]

В чом же может быть проблема?

в том что вы даже не знаете настроек того в чем работаете.
Делфи под отладкой по умолчанию всегда показывает исключения.

[MaxNik2009]

DKENT наткнулся на новость по твоей теме "ВКонтакте" закрыла свободную регистрацию.

[Пепел Феникса]

вообще то не по теме оно.
благо новость к авторизации отношения не имеет.