[GriLab]

Доброго времени суток!

Я знаю, что этот вопрос поднимался не один и не десять раз, но мне нужна помощь. Нашел в интернете готовые исходные коды авторизации, но ни один из них не работает (логин и пароль вожу вверно)! Помогите разобраться. Вот код, который я немного подправил:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64

procedure TConverterForm.LoginPageButtonClick(Sender: TObject); const   ValueProp = 'value='''; var   QueryData: TStringList;   PageProfile: String;   ErrorRaised: Boolean;   HashCode: String; begin   QueryData := TStringList.Create;   try     with QueryData do     begin       Add('email=<i>логин</i>');       Add('pass=<i>пароль</i>');       Add('expire=0');       Add('vk=1');     end;       try       HTTPQuery.HandleRedirects := False;       PageProfile := HTTPQuery.Post('http://login.vk.com/?act=login', QueryData);       ErrorRaised := False;     except       on E: Exception do       begin         ErrorRaised := True;         PageProfile := 'Ошибка: ' + E.ClassName + ', ' + E.Message;       end;     end;       if ErrorRaised then Exit;       with QueryData do     begin       Clear;       HashCode := Copy(PageProfile, Pos(ValueProp, PageProfile) + Length(ValueProp), 60);       HashEdit.Text := HashCode;       Add('s=' + HashCode);       Add('op=slogin');       Add('redirect=1');       Add('expire=0');       Add('to=');     end;       try       HTTPQuery.HandleRedirects := True;       PageProfile := HTTPQuery.Post('http://vkontakte.ru/login.php', QueryData);       if Pos('logout', PageProfile) <> 0 then         MessageBox(0, 'Авторизация на сайте ВКонтакте удалась!', 'Информация', MB_ICONINFORMATION)       else         MessageBox(0, 'Ошибка! Авторизация на сайте ВКонтакте неудалась!', 'Внимание', MB_ICONEXCLAMATION);     except       on E: Exception do       begin         ErrorRaised := True;         PageProfile := 'Ошибка: ' + E.ClassName + ', ' + E.Message;       end;     end;   finally     QueryMemo.Text := PageProfile;     QueryData.Free;   end; end;

HTTPQuery = TIdHTTP -
QueryMemo = TMemo - результат запроса
HashEdit = TEdit - HASH-код авторизации

Заранее спасибо!