Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Rakim4ik
0 / 0 / 2
Регистрация: 16.07.2014
Сообщений: 66
#1

TidHTTP - Delphi

27.02.2016, 19:29. Просмотров 249. Ответов 0
Метки нет (Все метки)

Код авторизации в вк:

Delphi
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
var
Http: TIdHTTP;
Cookie: TIdCookieManager;
SSL: TIdSSLIOHandlerSocketOpenSSL;
a: TStringList;
Source,ip_h,lg_h:string;
begin
a:= TStringList.Create;
Cookie:=TIdCookieManager.Create;
SSL:=TIdSSLIOHandlerSocketOpenSSL.Create;
Http := TIdHTTP.Create;
http.HandleRedirects:=true;
http.IOHandler:=SSL;
http.CookieManager:=Cookie;
HTTP.ReadTimeout:=5000; // 5 секунд
Http.Request.Host:='vk.com';
Http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
Http.Request.Referer:='http://vk.com/';
Source:=HTTP.Get('http://vk.com/');
ip_h:=ParseStr(Source, '"ip_h" value="', '" />');
lg_h:=ParseStr(Source, '"lg_h" value="', '" />');
 
a.Add('ip_h='+ip_h);
a.Add('lg_h='+lg_h);
a.Add('email='+Form1.Login.Text);
a.Add('pass='+Form1.Password.Text);
Source:=HTTP.Post('http://login.vk.com/?act=login',a);
 
if Pos('logout',Source) <> 0 then
begin
ShowMessage('удача');
end
else
begin
ShowMessage('Не удача');
end;
Можете прикрутить к нему прокси работающие с защищённым протоколом ? https.
Целый день вожусь и не хера не выходит.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.02.2016, 19:29
Я подобрал для вас темы с готовыми решениями и ответами на вопрос TidHTTP (Delphi):

Организация докачки файла с помощью TIdHTTP и TMemoryStream
Господа, прошу помочь с решением задачи, непосильной для моих скромных...

Компонент TIdHttp, разница в синтаксисе для Indy7 и Indy10
Добрый день, есть код написанный в ИНДИ7, давно в 2003: procedure...

Компонент TidHTTP
Требуется скачивать страницу http://translate.google.ru/#en/ru/dog и сохранять...

Проблемы с TIdHTTP
Привет всем я новенький на этом форуме.Хочу задать вопрос начал я изучать...

Многопоточность и TIdHTTP
интересует кто уже реализовывал многопоточность с приминение Idhttp или же с...

Работа с TIdHTTP
Я - начинающий программист в сфере C++ Builder, работаю с Delphi уже больше 3-х...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2016, 19:29
Привет! Вот еще темы с решениями:

TIdHTTP, Get и Касперский
Всем здравствуйте, я тут впервые) Сорри, если вопрос дурацкий и боянистый,...

TIdHttp Ошибка
Всем привет, использую idhttp для отправки запроса и получения с него данных....

TIdHTTP редирект
Добрый день Столкнулся со следующей проблемой Считывая веб страницу с...

TServerSocket vs. TIdHTTP
Вобщем случился затык, бьюсь уже несколько дней. Есть сервер. К серверу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru