Авторизация через Idhttp

[xakkkkker]

я пытаюсь авторизоваться на сайте мамба так
procedure TForm1.Button2Click(Sender: TObject);
var
fil:Tstringlist;
begin
fil:=TstringList.Create;
Fil.Add('login=123');
Fil.Add('password=321');
memo1.lines.text := IdHTTP1.Post('http://mamba.ru/tips/?tip=Login&sold=oVbnIEQq6jnDq.dbQSg sEOZP26F2HKcq',fil);
memo1.Lines.SaveToFile('aaa.htm');
Web1.Navigate(extractfilepath(appli cation.exename)+'aaa.htm');
fil.Free;

end;


но не получается

[KORN]

ну че то ты понагарадил

var formlevariant;
f,i:Integer;
begin

for f:=0 to WebBrowser1.OleObject.Document.forms.Length-1 do begin
form:=WebBrowser1.OleObject.Document.forms.Item(f) .elements;
for i:=0 to form.Length-1 do
if form.item(i).name='username' then // посматри в исходнике страницы может не username а просто name или login
form.item(i).value:='Логин'
else
if form.item(i).name='password' then // password обычно так пишится бывает pass
form.item(i).value:='пороль';
Button9.Click;
end;
end;


procedure TForm1.Button9Click(Sender: TObject);
var formlevariant;
f,i:Integer;
begin

for f:=0 to WebBrowser1.OleObject.Document.forms.Length-1 do begin
form:=WebBrowser1.OleObject.Document.forms.Item(f) .elements;
for i:=0 to form.Length-1 do
if (form.item(i).type='submit') and (form.item(i).value='Войти') then form.item(i).click; // submit это кнопка 'Войти' это название кнопки
end;end;

вот нагуглил... и тебе советую... разбирайся