Есть страничка, необходимо залогиниться.

← →
alucard © (2006-10-12 09:26) [0]

Доброго времени суток мастерам.

Есть интернет страничка (локальная), по щелчку на ссылке "Регистрация" вылазит другая страничка(вроде php).

В ней поля ввода логина и пароля и кнопки Вход и Сброс.

Как написать приложение чтоб в определённое время я автоматически Логинился.

Огромное спасибо.

← →
Dmitrij_K (2006-10-12 10:22) [1]

> Как написать приложение чтоб в определённое время я автоматически
> Логинился.

Руками на клавиатуре.
компанентик можно применить idhttp

← →
alucard © (2006-10-12 10:26) [2]

Хорошо, а как адресовать строки ввода и кнопку?

← →
Alvin © (2006-10-12 11:06) [3]

Можно передавать все необходимые данные методом POST, используя Wininet. КУда постить - посмотри action у формы ввода логина и пароля, имена inputов будут именами передаваемых переменных.
Ну а таймер уж я думаю сам напишеш

← →
evvcom © (2006-10-12 12:17) [4]

> [1] Dmitrij_K (12.10.06 10:22)
> компанентик можно применить idhttp

А вся работа будет заключаться только в логине?

> [0] alucard © (12.10.06 09:26)
> Как написать приложение чтоб в определённое время я автоматически
> Логинился

Или тебе действительно только логиниться надо? Если не только, то кинь на форму TWebBrowser и начинай разбираться с интерфейсами вообще и интерфейсами IE в частности.

← →
MetalFan © (2006-10-12 12:31) [5]

проблема в том, что если ты и залогинешься своей прогой, а потом зайдешь на страничку из браузера, то скорее всего окажешься незалогиненым.
ибо кукисы твоей программы неизвестны браузеру...
ежели необходим просто факт залогинивания, то вполне сойдет idHTTP.POST

← →
alucard © (2006-10-12 15:41) [6]

Необходимо просто факт залогивания.

Я так понял нужно этот html сохранить для изучения.

← →
alucard © (2006-10-13 07:59) [7]

Народ. Я понял что POST но куда логин и пароль вводить.

Примерчик у кого-то есть небольшой?

Спасибо.

← →
Zeqfreed © (2006-10-13 08:34) [8]

Сначала стоит проверить не работает ли передача параметров методом GET, т.к. передать GET-запрос несколько легче. Если работает, то http://delphimaster.net/view/2-1160682299/. Ну, а если не работает, тогда почитать что-нибудь по протоколу HTTP и понять как формируется POST-запрос.

← →
alucard © (2006-10-13 08:41) [9]

Ссылка не работает.

← →
Zeqfreed © (2006-10-13 08:48) [10]

> [9] alucard © (13.10.06 08:41)

Ты её плохо попросил.

← →
alucard © (2006-10-13 08:51) [11]

Произошла ошибка:

Не найдена ветка № 1160682299, возможно она была удалена или перенесена в другой форум.
Назад

--------------------------------------------------------------------------------

(c) Мастера

← →
Zeqfreed © (2006-10-13 08:55) [12]

> [11] alucard © (13.10.06 08:51)

Странно. У меня загружается. В общем там ничего особо интересного, пишется за пару минут. Ты сначала определись работает ли GET-запрос с твоей страницой.

← →
alucard © (2006-10-13 09:13) [13]

Ладно, ты скажи какая закладка форума и какая страница и тему.

← →
Zeqfreed © (2006-10-13 09:20) [14]

Начинающие, «html в memo».

← →
alucard © (2006-10-13 09:28) [15]

Вот кое что нашёл.

procedure TForm1.Button1Click(Sender: TObject);
var
LoginInfo: TStrings;
Response: TStringStream;
begin
LoginInfo := TStringList.Create;
Response := TStringStream.Create("");
LoginInfo.Clear;
LoginInfo.Add("username=MyName");
LoginInfo.Add("password=MyPass");
IdHTTP1.Post("http://mywebsite.ru/login.php",LoginInfo,Response);
showmessage(Response.DataString);
Response.Free;
LoginInfo.Free;
end;

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

Но у меня ещё на этой страничке есть кнопка, как её нажать?

← →
Zeqfreed © (2006-10-13 09:34) [16]

> [15] alucard © (13.10.06 09:28)

Предлагаешь нам за тебя решить твою задачу? После «как выйти» будет вопрос как посмотреть погоду на странице, почитать новости и оставить сообщение в гостевой?

← →
alucard © (2006-10-13 09:41) [17]

Вот я нарыл огрызок с http://e.ukr.net/cgi-bin/splash:

Здесь ещё и радиокнопки.
Ну не важно.

Как разобраться что здесь и к чему?
Где здесь переменные для POST?

<tr bgcolor=FCEFCC> <td> <form method="post" action="/cgi-bin/auth"> <input type="hidden" name="Domain" value="ukr.net"> <table width=100% border=0 cellspacing=7 cellpadding=0> <tr> <td align=right> Логин: <input type="text" name="Login" value="" size="10" autocomplete=off> </td> <td> @ukr.net </td></tr> <tr><td align=right valign=top> Пароль: <input type="password" name="Password" value="" size="10" autocomplete=off> </td> <td valign=top> <input type="submit" value=" ОК " name="B1"><br><br> <a href="/pages/help.html#lostpass">забыли пароль?</a> </td></tr> </table> Уровень безопасности: <br> <input type="radio" name="level" value="0" > Обычный вход <br> <input type="radio" name="level" value="1" CHECKED> <a href="/pages/security_level.html#clearinfo">Чужой компьютер</a> <br> <input type="radio" name="level" value="2" > <a href="/pages/security_level.html#savepass">Сохранить пароль</a> </form> </td> </tr> </table>

Спасибо.

← →
alucard © (2006-10-13 10:04) [18]

Где логин я понял, а как мне на кнопку нажать?

← →
alucard © (2006-10-13 10:07) [19]

И как привязать текст к компоненту TWebBrowser вместо TMemo?

Спасибо.

← →
Dmitrij_K (2006-10-13 10:07) [20]

Послать Post на адрес "http://сайт/cgi-bin/auth" с заполненными полями

Делаю так:

procedure TForm1.Button1Click(Sender: TObject); var LoginInfo: TStrings; Response: TStringStream; begin LoginInfo := TStringList.Create; Response := TStringStream.Create(""); LoginInfo.Clear; LoginInfo.Add("Login=vodvorezlaya"); LoginInfo.Add("password=bios"); IdHTTP1.Post("http://e.ukr.net/cgi-bin/splash",LoginInfo,Response); Memo1.Lines.Add(Response.DataString); Response.Free; LoginInfo.Free; end;

Возвращает эту же страницу. Почему-то с заполненым полем пароля???

Что я не правильно делаю?

← →
Dmitrij_K (2006-10-13 10:20) [22]

procedure TForm1.Button1Click(Sender: TObject); var LoginInfo: TStrings; Response: TStringStream; begin LoginInfo := TStringList.Create; Response := TStringStream.Create(""); LoginInfo.Clear; LoginInfo.Add("action=/cgi-bin/auth"); LoginInfo.Add("login=vodvorezlaya"); LoginInfo.Add("password=operation"); IdHTTP1.Post("http://e.ukr.net/cgi-bin/splash",LoginInfo,Response); Memo1.Lines.Add(Response.DataString); Response.Free; LoginInfo.Free; end;

Так?

Всёравно возвращает тоже.

УУРРААА!
Получилось!

Всем агромное спасибо.

Да будет жив Delphi!

procedure TForm1.Button1Click(Sender: TObject);
var
LoginInfo: TStrings;
Response: TStringStream;
begin
LoginInfo := TStringList.Create;
Response := TStringStream.Create("");
LoginInfo.Clear;
// LoginInfo.Add("action=/");
LoginInfo.Add("login=vodvorezlaya");
LoginInfo.Add("password=operation");
IdHTTP1.Post("http://e.ukr.net/cgi-bin/auth",LoginInfo,Response);
Memo1.Lines.Add(Response.DataString);
Response.Free;
LoginInfo.Free;
end;

← →
Dmitrij_K (2006-10-13 10:35) [25]

action - ссылка на скрипт авторизации
это надо указывать в Post

← →
Dmitrij_K (2006-10-13 10:36) [26]

alucard знакомый ник.
Ты на drw случайно не играл?

← →
Dmitrij_K (2006-10-13 10:41) [27]

PS
alucard почту проверь

> PS
> alucard почту проверь

:)

этот ящик мне не нужен

Хотя там много интересного, но по видимости здесь сидят просто дети.

Есть страничка, необходимо залогиниться. Найти похожие ветки