Обновлено: 02 декабря, 2018

Авторизация на сайте через компонент Indy в Delphi

Логинимся на сайте на примере сайта Пб.

procedure TForm1.hackPB;
var
  params,responseres:tstringlist;
begin
  params:=TStringList.Create;
  responseres:=TStringList.Create;
 
  params.Add('username='+edit1.Text);
  params.Add('password='+edi2.Text);
  params.Add('redirect=');
  params.Add('login=Вход');
  responseres.Text:=http1.Post('http://forum.pressball.by/login.php',params);
 
  if Pos('logout',responseres.Text)>0 then
  begin
   ss1:=responseres.Text;
   ShowMessage('Авторизировались!');
  end
end;

(7 оценок, среднее: 4,86 из 5)

Загрузка...