| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как автоматически из моей программы входить в почтовик? [D6, WinXP]
Volf_555 © (2006-01-17 13:34:00)Есть следующий html-файл:
<html>
<head>
<body bgcolor=black>
<title> Вход на почтовики </title>
<h3 class=head_1><Font color=lightgreen size=6><center>Авторизация на </h3></center></Font><center><img src="mail.ru.gif"></img></center>
<br>
<p class=abzac><Font color=orange size=4> Для входа в систему введите, пожалуйста, логин и пароль. Если у Вас еще нет логина, Вам необходимо <a href= http://win.mail.ru/cgi-bin/signup><Fontcolor=lightblue>зарегистрироваться.</a></p></Font></Font>
<form name=Auth method=post action=" http://win.mail.ru/cgi-bin/auth">
<input type=hidden name=Mpopl value=378896770>
<input type="hidden" name="page" value="">
<input type="hidden" name="post" value="">
<input type="hidden" name="login_from" value="">
<br><Font color=yellow> Имя</Font>
<br><input type="text" name="Login" value="MYLOGIN" class=w_100></td>
<select class=w_100 name="Domain">
<option value="mail.ru" >@mail.ru</option>
<option value="inbox.ru" >@inbox.ru</option>
<option value="bk.ru" >@bk.ru</option>
<option value="list.ru" SELECTED>@list.ru</option></select>
<br>
<br><Font color=yellow> Пароль</Font>
<br><input type="password" name="Password" value="MYPASSWORD" class=w_100>
<a href=" http://www.mail.ru/pages/help/92.html" target=_new><Font color=magenta> Забыли пароль?</a></Font>
<br>
<p><input type=checkbox name="level" value=1 id="alien"><label for="alien"><Font color=cyan> Чужой компьютер</label></Font>
<br>
<br>
<p><input type="Submit" value=" Войти " style="margin-top:4px">
</form>
</body>
</html>
После нажатия на кнопку Войти - попадаю на свой почтовик.
Как из Delphi автоматически можно было проделать тоже самое?
(открыть IE и отправить форму)
Usamo Ben Laden (2006-02-07 03:43:00) [1]Для начало лучше почитать про HTML там где описывается метод отправки данных, легче будет понять,
а если по теме то всё что есть в теле документа HTML между
тега <form </form> является формой отправки данных на сервер.
Чтобы узнать каккии данные надо отправить ищем первый name= а параметр value= это значение которое можно менять например Mpopl=378896770 потом прибавляеш следущее,и.т.д
из дельфи можно примерно так делать
Var
request : TStringList;AData : TStringStream;D:TStringList;Data:String;
begin
// idhttp1.ProxyParams.ProxyPort := StrToInt(PortEdit.Text);
// idhttp1.ProxyParams.ProxyServer := ProxyEdit.Text;
//Формируем запрос
request.Add('Mpopl=378896770');
request.Add('"page"=""');
request.Add('"post"=""');
request.Add('"login_from"=""');
request.Add('"Login"="MYLOGIN"');
request.Add('"Domain"="mail.ru"');
request.Add('"Password"="MYPASSWORD"');
request.Add('"level"=1');
try
idhttp1.Post(' http://win.mail.ru/cgi-bin/auth',request,Adata);
except on E:Exception do
end;
request.Free;
try
Data := AData.DataString;//Создаём и присваеваем ответ сервера в DATA
AData.Free;
D:=TStringList.Create;
D.Text:=Data;//думаю понятно дальше можеш посмотреть ответ например в мемо
D.Free;
Except
end;
Вот написал с использованием idhttp он у тебя наверно есть в delphi 6 ?,
если нету переделай на winsock
Сам я не проверял лень было проверять, проверь ты, должно работать,возможно гдето есть ошибка но запрос вроде я сформировал правельно,ответ от сервера попробуй в мемо получить чтобы проверить получилось или нет
Neoguru (2006-02-07 02:24:00) [2]в Яндексе отрабатывается метод GET и параметры передаются в командной строке. А в данном случае имеет место метод POST. Это разные вещи. Присоединяюсь к вопросу. КАК?
Neoguru (2006-02-07 02:24:00) [3]в Яндексе отрабатывается метод GET и параметры передаются в командной строке. А в данном случае имеет место метод POST. Это разные вещи. Присоединяюсь к вопросу. КАК?
Volf_555 (2006-01-17 22:22:00) [4]Как отправить форму через Delphi и получить результат?
dimodim (2006-01-17 19:58:00) [5]Смотри на примере yandexa как через параметр yandsearch?= передается
значение поиска
те посмотри как твой html после нажатия кнопки
отправь форму
| |
