Агента ты не сделаешь!!! Этим способом (POST)
Ну раз так надо держи код:
///авторизация//
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=' + form1.ulogin.text);
Post.Add('pass=' + form1.pass.text);
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
form2.show
else
Result := 'Неправельный логин или пароль';
Post.Free;
end else Result := 'Мы авторизированы!';
end;
Source.Free;
end;
Теперь например на Button1 пишешь это!!! Все готово!!!
ShowMessage(Authorization_WMMAIL('login', 'password'));
P.S по вопросам писать в личку!!!
Вопрос к программистам
5216.87 
