• Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Авторизация в ВКонтакте

Lomanu4 Онлайн

Lomanu4

Команда форума
Администратор
Сообщения
1,164
Симпатии
222
Баллы
155
VK
Чтобы программа позволяла снова авторизоваться, нужно чистить куки, например так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Включаем куки
  IdHTTP1.AllowCookies := True;
  // Включаем редиректы
  IdHTTP1.HandleRedirects := True;
  // Указываем юзер агент, необходимо для авторизации. Иначе всегда будет приходить False
  IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; rv:27.0) Gecko/20100101 Firefox/27.0';
  try
    if pos('выйти', IdHTTP1.Get('http://login.vk.com/?act=login&email=' + Edit1.Text + '&pass=' + Edit2.Text))>0 then
    begin
      ShowMessage('Авторизация прошла успешно!');

      // Что-то делаем...

      // Удаляем куки
      IdHTTP1.CookieManager.CookieCollection.Clear;
    end
    else
    begin
      ShowMessage('Не удается войти.');

      // Что-то делаем...

      // Удаляем куки
      IdHTTP1.CookieManager.CookieCollection.Clear;
    end;
  except
    on E: Exception do
    begin
      ShowMessage ('Error: ' + E.Message);
      Exit;
    end;
  end;
end;
 
Polya Оффлайн

Polya

Принятый Кодер
Сообщения
48
Симпатии
12
Баллы
50
Чтобы программа позволяла снова авторизоваться, нужно чистить куки, например так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Включаем куки
  IdHTTP1.AllowCookies := True;
  // Включаем редиректы
  IdHTTP1.HandleRedirects := True;
  // Указываем юзер агент, необходимо для авторизации. Иначе всегда будет приходить False
  IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; rv:27.0) Gecko/20100101 Firefox/27.0';
  try
    if pos('выйти', IdHTTP1.Get('http://login.vk.com/?act=login&email=' + Edit1.Text + '&pass=' + Edit2.Text))>0 then
    begin
      ShowMessage('Авторизация прошла успешно!');

      // Что-то делаем...

      // Удаляем куки
      IdHTTP1.CookieManager.CookieCollection.Clear;
    end
    else
    begin
      ShowMessage('Не удается войти.');

      // Что-то делаем...

      // Удаляем куки
      IdHTTP1.CookieManager.CookieCollection.Clear;
    end;
  except
    on E: Exception do
    begin
      ShowMessage ('Error: ' + E.Message);
      Exit;
    end;
  end;
end;
А что такая авторизация Вконтакте работает? И сколько можно запустить аккаунтов на одном компьютере??)
 
Lomanu4 Онлайн

Lomanu4

Команда форума
Администратор
Сообщения
1,164
Симпатии
222
Баллы
155
VK
Rauchend
 

Вложения:

Sascha Оффлайн

Sascha

Заместитель Администратора
Команда форума
Администратор
Сообщения
1,058
Симпатии
273
Баллы
155
[AUDIO]http://best-muzon.me/dl/online/Os83UkkXeRLHgktRHJkesg/1486264588/songs12/2017/01/richard-orlinski-eva-simons-heartbeat-filatov-(best-muzon.me).mp3[/AUDIO]
 
Последнее редактирование:
Вверх Снизу