Авторизация на wmmail

[a11a]

Помогите пожалуйсто!!! Нужно на dlephi сделать авторизацию на сайте wmmail.ru кто может помочь??? Ну если не сложно выложить исходник... Уже 2 месяца парюсь

[Пепел Феникса]

1)http://programmersforum.ru/showthread.php?t=38803
читали?
на сайте все просто там(только что смотрел)
2)снифферить пробовали?
3)

Вы что?

мы вроде люди, а не предметы.
4)поменьше знаков вопроса и восклицания, смысла от них положительного нет(в таком количестве)
5)знаете у людей есть и свои дела, и не всегда те кто могут ответить есть на форуме.
6)помогите<>дайте готовое.
7)делайте поменьше грамматических ошибок.

[W0LF]

2 месяца? Ухты, да вы что... Не уж то и правдо 2 месяца?

Вы что?????

Ваше высказывание очень неуважительное...
А на счет вопроса, Alex прав

помогите<>дайте готовое

Авторизировался аж за 3 минуты...

uses
  IdHTTP;

function Authorization_WMMAIL(Login, Pass: string): string;
var
  Source, Post: TStringList;
  Http: TIdHTTP;
begin
  Http := TIdHTTP.Create(nil);
  Http.HandleRedirects := True;
  Http.Request.UserAgent := 'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.5.24 Version/10.53';
// Взял UserAgent из сниффера, если оставить стандартное, авторизироваться нехочет, у меня лично...
  Source := TStringList.Create;
  try
    Source.Text := Http.Get('http://wmmail.ru');
  finally
    if Pos('Добро Пожаловать', Source.Text) = 0 then begin
      Result := 'Не авторизированы, авторизируемся...';
      Post := TStringList.Create;
      Post.Add('cf=akk-login');
      Post.Add('ulogin=' + Login);
      Post.Add('pass=' + Pass);
      Post.Add('x=22');
      Post.Add('y=11');
      Source.Text := Http.Post('http://www.wmmail.ru/index.php', Post);
      if Pos('Добро Пожаловать', Source.Text) <> 0 then
        Result := 'Авторизация прошла успешно!'
      else
        Result := 'Авторизироваться невышло...';
      Post.Free;
    end else Result := 'Мы авторизированы!';
  end;
  Source.Free;
end;

// Использование

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Authorization_WMMAIL('login', 'password'));
end;

Delphi 7, Indy 9

[AquaKlaster]

С помощью IdHTTP отправляем данные параметры пост запросом

cf=akk-login&ulogin=login&pass=pass&Submit =%C2%EE%E9%F2%E8+%E2+%E0%EA%EA%E0%F 3%ED%F2

на адрес:

http://wmmail.ru/index.php

[a11a]

Извеняюсь за грубость

W0LF

Спасибо