Недавно задумался над тем что было бы неплохо постить автоматом новости на новостные порталы под чудесной CMS DLE, но для начала надо научиться авторизовываться автоматом, подумал я, и не долго думая достал запылившийся Delphi, запустил.
На форму кинул два Edit-a, одну кнопку которую успешно обозвал Авторизироваться и компонент idHTTP.
У меня получилась такая страшненькая форма:
где:
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 комментария. Оставить новый
А как теперь проверить в какой группе этот пользователь с логином и паролем которого произошла авторизация?
Спасибо!
А как теперь проверить в какой группе этот пользователь с логином и паролем которого произошла авторизация?
Спасибо!
будет ли обновление?
немного не понял вопрос) можно конкретнее его поставить?)
Проверь снифером, что отправляет браузер и что отправляет программа.
Возможно необходимо переписать алгоритм авторизации под себя
но, на стороне сервера клиент еще не авторизован, т. е. ид юзера сохраняется в пременной сессии, только при переходе по login.php?user=testuser
if Pos(‘login.php?user=testuser’,Response.Text)>0 then
ShowMessage(‘Авторизовались!’)
а если в Response.Text
переход на другую страницу
например
document.location.href=’login.php?user=testuser’
В точку!
Абсолютно с тобой согласен!
В упор не понимаю, откуда вечно возьмется ложка дегтя?! Вот, никак без нее. Всегда же находиться некая дрянь, которая придет и нагадит без каких либо оснований, а только потому, что свербит в очке.
Будь проще!
Если есть чем поделиться — поделись, обсирать каждый может, а напрячь остатки прямых извилин видимо нет!
Just smile.
Полная хуйня а не урок.
отсылать в правильной кодировке на сайт, проанализируй любым снифером запрос который делашь через сайт, и попробуй реализовать это программно
как сделать чтобы не только английские, но и руские буквы можно было использовать?
=)))) забавно)
Собственно оставил комментарий только чтобы покрутить картинки в антикаптче ^_^
если я правильно понял, то измени кусок кода
if Pos(‘logout’,Response.Text)>0 then
ShowMessage(‘Авторизовались!’)
else
на
if Pos(‘logout’,Response.Text)>0 then
ShowMessage(‘Авторизовались!’)
WebBrowser1.Navigate(‘http://СЮДА ВПИСАТЬ АДРЕС САЙТА/index.php’);
else
и все, только не забудь добавить WebBrowser1 на форму
Спасибо за урок, но мне интересно как сделать авторизацию и что бы в компанент веббраузер все передавало? Если не сложно выложите урок я думаю будет многим полезно
с капчей не ковырялся ни разу, но не думаю что там сложно, будет время гляну, просто найти идентификатор картинки, загрузить ее, ну как-то так, в общем как попробую выложу рабочий кусок, если есть наработки кидай сюда, сфарганим вместе что-то 🙂
А вот как с капчей быть?
без проблем!
Все так легко и просто! Давай еще!
Ух-ты! Интересненько… и как все гениальное просто! А продолжение будет?