Авторизация на сайте через компонент 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;
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (Пока оценок нет)
Загрузка...
Добавить комментарий