Авторизация вконтакте.
Напишем программу которая будет отсылать логин, написанный в Edit1 и пароль, написанный в Edit2 на сервер Вконтакте, и тем самым попробуем авторизоваться.
Создаем новый проект в среде Delphi XE3, кидаем на форму Edit1, Edit2, Button1 с вкладки Standart и IdHTTP1 с вкладки Indy Client.
Вид формы
Изменяем свойство IdHTTP1 - HadleRedirects на true.
Теперь кликаем по кнопке, и переходим в редактор кода. Объявляем переменную a типа TStringList, и b типа string.
Код
var
a: TStringList;
b: string;
begin
...
Теперь пишем сам код авторизации:
КодКод
begin
a:= TStringList.Create;
a.Add('email='+Edit1.Text);
a.Add('pass='+Edit2.Text);
b:=IdHTTP1.Post('[http://login.vk.com/?act=login',a)];
if Pos('logout',b) <> 0 then
ShowMessage('Авторизация прошла успешно')
else
ShowMessage('Авторизация провалена');
Теперь разберем каждую строчку:
a:= TStringList.Create - создается класс TStringList
a.Add('email='+Edit1.Text) - добавляем параметр логин
a.Add('pass='+Edit2.Text) - добавляем параметр пароль
b:=IdHTTP1.Post('[http://login.vk.com/?act=login',a)] - отправляем запрос на login.vk.com с нашими параметрами
if Pos('logout',b) <> 0 then - условие с проверкой. Если на странице присутствует надпись выйти
ShowMessage('Авторизация прошла успешно') - то выводит сообщение о успехе
else - иначе
ShowMessage('Авторизация провалена') - выводит сообщение с ошибкой
Вид кода
Теперь компилируем (F9) программу, вводим свой логин и пароль от ВК и нажимаем на кнопку, и любуемся результатом
| 
|