[borockov]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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

Код:

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

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

[poli-smen]

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

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

Код:

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

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

[borockov]

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

[poli-smen]

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

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

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

[NumLock]

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

[borockov]

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

[poli-smen]

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

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

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

[NumLock]

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

Код:

1	Document.forms.item(0)

[borockov]

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

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

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

Код:

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

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