VPF::Авторизация вконтакте - Форум программистов

ppcumax

Дата 17.1.2009, 05:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 26.4.2007

Репутация: нет
Всего: 1

Код


procedure TForm1.Button1Click(Sender: TObject);
var
http:tidhttp;
vk,request:string;
post:tstringlist;
begin
post := tstringlist.Create;
post.Clear;
http := tidhttp.Create(nil);
http.HandleRedirects := true;
http.ReadTimeout := 30000;
http.Request.UserAgent := 'Mozilla/4.0';
http.Request.Referer := 'http://vkontakte.ru/login.php?u=1';
http.Request.Accept := '*/*';
http.Request.AcceptLanguage := 'ru';
http.Request.ContentType := 'application/x-www-form-urlencoded';
http.Request.Host := 'vkontakte.ru';
http.AllowCookies:=true;
vk := 'http://vkontakte.ru/login.php';
post.Add('email='+edit1.Text);
post.Add('pass='+edit2.Text);
post.Add('try_to_login=1');
post.Add('fail_url=');
post.Add('success_url=');

request := http.Post(vk,post);
memo1.Text := request;
end;

В ответ получаю пустую страницу. Если ввести неправильный email или пароль, то в мемо получаю html код http://vkontakte.ru/login.php?u=1

Rohoss

Дата 17.1.2009, 07:04 (ссылка)

(нет голосов)

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

Репутация: нет
Всего: 18

А какая цель этой автоматизации? Массовая рассылка? smile

--------------------

Файловый менеджер Explorer.Net скачать video

ppcumax

Дата 17.1.2009, 14:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 26.4.2007

Репутация: нет
Всего: 1

Нет. Изъятие необходимой информации

SneG0K

Дата 17.1.2009, 20:45 (ссылка)

(нет голосов)

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 2
Всего: 54

ppcumax, там еще куки какие-то передаются

Код


remixlang=0; remixchk=5

А знак собаки заменяется на %40

ppcumax

Дата 18.1.2009, 01:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 26.4.2007

Репутация: нет
Всего: 1

А как передать куки? просто добавить в post.add()?

bagos

Дата 19.1.2009, 12:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 275
Регистрация: 17.6.2006

Репутация: нет
Всего: 1

тоже интересует данная тема. кто уже делал подобное , помогите!

mr_smit

Дата 20.1.2009, 21:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4

Есть такая штука называется "поиск". Попробуйте. Говорят помогает. Всё уже за вас давно решили.

http://forum.vingrad.ru/topic-159803.html

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »