Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Страницы: 1 2 >
alucard © (2006-10-12 09:26:00)
Доброго времени суток мастерам.

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

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

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

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

alucard (2006-10-13 16:29:00) [1]
Хотя там много интересного, но по видимости здесь сидят просто дети.

alucard (2006-10-13 16:24:00) [2]

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

:)

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

Dmitrij_K (2006-10-13 10:41:00) [3]
PS
alucard почту проверь

Dmitrij_K (2006-10-13 10:36:00) [4]
alucardзнакомый ник.
Ты на drw случайно не играл?

Dmitrij_K (2006-10-13 10:35:00) [5]
action - ссылка на скрипт авторизации
это надо указывать в Post

alucard (2006-10-13 10:35:00) [6]
УУРРААА!
Получилось!

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

Да будет жив 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;

alucard (2006-10-13 10:32:00) [7]
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;

Так?

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

Dmitrij_K (2006-10-13 10:20:00) [8]
<form method="post" action="/cgi-bin/auth">

alucard (2006-10-13 10:16:00) [9]
Делаю так:

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:07:00) [10]
Послать Post на адрес " http://сайт/cgi-bin/auth" с заполненными полями

alucard (2006-10-13 10:07:00) [11]
И как привязать текст к компоненту TWebBrowser вместо TMemo?

Спасибо.

alucard (2006-10-13 10:04:00) [12]
Где логин я понял, а как мне на кнопку нажать?

alucard (2006-10-13 09:41:00) [13]
Вот я нарыл огрызок с 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>

Спасибо.

Zeqfreed (2006-10-13 09:34:00) [14]
> [15] alucard © (13.10.06 09:28)

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

alucard (2006-10-13 09:28:00) [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:20:00) [16]
Начинающие, «html в memo».

alucard (2006-10-13 09:13:00) [17]
Ладно, ты скажи какая закладка форума и какая страница и тему.

Zeqfreed (2006-10-13 08:55:00) [18]
> [11] alucard © (13.10.06 08:51)

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

alucard (2006-10-13 08:51:00) [19]
Произошла ошибка:

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

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

(c) Мастера

Zeqfreed (2006-10-13 08:48:00) [20]
> [9] alucard © (13.10.06 08:41)

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

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »