[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 эти условия срабатывают? Операторы присвоения выполняются?

[NumLock]

значения атрибутов не обязаны на всех сайтах быть одинаковыми!

[borockov]

Вроде все срабатывает нормально. В общем покопаю ещё немного. Спасибо всем.

[poli-smen]

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

значения атрибутов не обязаны на всех сайтах быть одинаковыми!

Там дело даже не в этом, а в том, что ТС выбирает первую попавшуюся форму, вот только на subscribe.ru несколько форм, и как раз та что нужна вовсе и не первая, вот я и учу ТС как находить такие ошибки

[NumLock]

каюсь, я поленился сходить на сайт и проверить формы. понадеялся на правильность константы 0 в:

Код:

Document.forms.item(0)

[borockov]

Сообщение от poli-smen

Там дело даже не в этом, а в том, что ТС выбирает первую попавшуюся форму, вот только на subscribe.ru несколько форм, и как раз та что нужна вовсе и не первая, вот я и учу ТС как находить такие ошибки

Ой блин, большое спасибо. Че то действительно тупанул. Все работает теперь. В цикле чуточку подправил и все.

Код:

html:=WebBrowser1.OleObject.Document.forms.item(2).elements;
        for i:=0 to (html_tag.length-1) do

Всем ещё раз большое спасибо.