[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" но и с ним что то не получается. Заранее спасибо за помощь

[NumLock]

input это тэг, name его атрибут - за него и цепляйся

[borockov]

Сообщение от NumLock

input это тэг, name его атрибут - за него и цепляйся

Ну вот же я цепляюсь к атрибуту name

Код:

 if (html.item(i).name='credential_0') then
        html.item(i).value:=edit2.Text;      // свой логин

Но все равно ничего не выходит

[poli-smen]

Сообщение от borockov

Ну вот же я цепляюсь к атрибуту name

Код:

 if (html.item(i).name='credential_0') then
        html.item(i).value:=edit2.Text;      // свой логин

Но все равно ничего не выходит

Что означает "не выходит"? Этот элемент вообще цикл находит?

[borockov]

"Не выходит" - имею ввиду что не заполняется поле для ввода логина. Цепляюсь с помощью тега атрибута name. С циклом тоже все в порядке, к примеру на сайте одноклассники, авторизация проходит без проблем по такому же принципу.

[poli-smen]

Сообщение от borockov

"Не выходит" - имею ввиду что не заполняется поле для ввода логина. Цепляюсь с помощью тега атрибута name. С циклом тоже все в порядке, к примеру на сайте одноклассники, авторизация проходит без проблем по такому же принципу.

А на subscribe.ru эти условия срабатывают? Операторы присвоения выполняются?