[borockov]

Привет всем друзья, подскажите плз как авторизоваться программно на сайте subscribe.ru
Пробую таким образом

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
html:variant;
i:integer;
begin
 html:=WebBrowser1.OleObject.Document.forms.item(0).elements;
        for i:=0 to (html.length-1) do
        begin
        if (html.item(i).name='credential_0') then
        html.item(i).value:=edit2.Text;      // свой логин

        if (html.item(i).name='credential_1') then
        html.item(i).value:=edit3.Text;   //свой пароль)

        if (html.item(i).value='>') then
        html.item(i).click;
        end;
end;

end. 

Но ничего не получается, из за того что в отличий от других сайтов на данном сайте нет параметра "name" и из за этого не могу понять за что цепляться. На данном сайте есть параметр "input name" но и с ним что то не получается. Заранее спасибо за помощь