Здрасте я бы хотел написать, как авторизоваться на сайте с помощью Delphi
Внешний вид программы:
На форме: 3 label, 2 edit, 1 memo, IdHTTP1 с вкладки Indy Clients.
У Memo1 в Object Inspector, ScrollBars поставьте значение ssVertical
Для корректной авторизации на сайте нужно авторизоваться под сниффером. Я использую
HTTP Analyzer v 7 (не реклама).
Я не буду писать как пользоваться этой программой, иначе модераторы, подумают, что я обучаю взлому.
(Это я так думаю )
Авторизация будет в моем случае для сайта, который вы увидите в коде. Этот сайт я тоже не рекламирую, а просто нажал на первую попавшую ссылку.
Приступим к кодингу:
Для кнопки ''авторизация"
Код
var
LoginData, Response: TStrings;
begin
Memo1.Text := Memo1.Text + #13#10;
LoginData := TStringList.Create;
Response := TStringList.Create;
try
LoginData.Add('login_name='+Edit1.Text); // login_name это то что было во вкладке Post Data
LoginData.Add('login_password='+Edit2.Text); // login_password это то что было во вкладке Post Data
LoginData.Add('login=submit'); login=submit это то что было во вкладке Post Data
LoginData.Add('x=0');
LoginData.Add('y=0');
Response.Text := IdHTTP1.Post('http://secrets-samprp.at.ua/',LoginData); // скопировали post запрос
if Pos ('logout',Response.Text)>0 then
Memo1.Text:= Memo1.Text + 'Успешная авторизация'
else
Memo1.Text:= Memo1.Text + 'Авторизация не удалась' ;
finally
LoginData.Free;
end;
end;