Delphi авторизация на сайте DLE с помощью idHTTP

dleНедавно задумался над тем что было бы неплохо постить автоматом новости на новостные порталы под чудесной CMS DLE, но для начала надо научиться авторизовываться автоматом, подумал я, и не долго думая достал запылившийся Delphi, запустил.
На форму кинул два Edit-a,  одну кнопку которую успешно обозвал Авторизироваться и компонент idHTTP.
У меня получилась такая страшненькая форма:
form
где:
Edit1 — поле для ввода имени пользователя
Edit2 — поле для ввода пароля
В обработчике нажатия на кнопку написал следующий код:

procedure TForm1.Button1Click(Sender: TObject);
var
LoginData, Response: TStrings;
begin
LoginData := TStringList.Create;
Response := TStringList.Create;
try
LoginData.Add('login_name='+Edit1.Text);
LoginData.Add('login_password='+Edit2.Text);
LoginData.Add('login=submit');
LoginData.Add('x=0');
LoginData.Add('y=0');
Response.Text := IdHTTP1.Post('http://СЮДА ВПИСАТЬ АДРЕС САЙТА/index.php',LoginData);
if Pos('logout',Response.Text)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
finally
LoginData.Free;
end;
end;

Если авторизация прошла успешно, то получим окно с сообщением Авторизовались! иначе Авторизация не удалась!

Похожие посты

23 комментария

  • ovpmusic
    2 года назад

    А как теперь проверить в какой группе этот пользователь с логином и паролем которого произошла авторизация?
    Спасибо!

  • Олег
    2 года назад

    А как теперь проверить в какой группе этот пользователь с логином и паролем которого произошла авторизация?
    Спасибо!

  • Алексей
    5 лет назад

    будет ли обновление?

    • username
      5 лет назад

      немного не понял вопрос) можно конкретнее его поставить?)

  • username
    6 лет назад

    Проверь снифером, что отправляет браузер и что отправляет программа.
    Возможно необходимо переписать алгоритм авторизации под себя

  • Spot
    6 лет назад

    но, на стороне сервера клиент еще не авторизован, т. е. ид юзера сохраняется в пременной сессии, только при переходе по login.php?user=testuser

  • username
    6 лет назад

    if Pos(‘login.php?user=testuser’,Response.Text)>0 then
    ShowMessage(‘Авторизовались!’)

  • Spot
    6 лет назад

    а если в Response.Text
    переход на другую страницу
    например
    document.location.href=’login.php?user=testuser’

  • username
    6 лет назад

    В точку!
    Абсолютно с тобой согласен!

  • lastwagen
    6 лет назад

    В упор не понимаю, откуда вечно возьмется ложка дегтя?! Вот, никак без нее. Всегда же находиться некая дрянь, которая придет и нагадит без каких либо оснований, а только потому, что свербит в очке.

  • username
    6 лет назад

    Будь проще!
    Если есть чем поделиться — поделись, обсирать каждый может, а напрячь остатки прямых извилин видимо нет!
    Just smile.

  • Пшли нахуй
    6 лет назад

    Полная хуйня а не урок.

  • username
    7 лет назад

    отсылать в правильной кодировке на сайт, проанализируй любым снифером запрос который делашь через сайт, и попробуй реализовать это программно

  • Дмитрий
    7 лет назад

    как сделать чтобы не только английские, но и руские буквы можно было использовать?

  • username
    7 лет назад

    =)))) забавно)

  • Степан
    7 лет назад

    Собственно оставил комментарий только чтобы покрутить картинки в антикаптче ^_^

  • username
    7 лет назад

    если я правильно понял, то измени кусок кода
    if Pos(‘logout’,Response.Text)>0 then
    ShowMessage(‘Авторизовались!’)
    else
    на
    if Pos(‘logout’,Response.Text)>0 then
    ShowMessage(‘Авторизовались!’)
    WebBrowser1.Navigate(‘http://СЮДА ВПИСАТЬ АДРЕС САЙТА/index.php’);
    else
    и все, только не забудь добавить WebBrowser1 на форму

  • Алексей
    7 лет назад

    Спасибо за урок, но мне интересно как сделать авторизацию и что бы в компанент веббраузер все передавало? Если не сложно выложите урок я думаю будет многим полезно

  • username
    8 лет назад

    с капчей не ковырялся ни разу, но не думаю что там сложно, будет время гляну, просто найти идентификатор картинки, загрузить ее, ну как-то так, в общем как попробую выложу рабочий кусок, если есть наработки кидай сюда, сфарганим вместе что-то 🙂

  • Bbb
    8 лет назад

    А вот как с капчей быть?

  • username
    8 лет назад

    без проблем!

  • Gua
    8 лет назад

    Все так легко и просто! Давай еще!

  • Dimitriy
    8 лет назад

    Ух-ты! Интересненько… и как все гениальное просто! А продолжение будет?

Комментировать

Комментировать email не будет опубликован