![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Привет всем друзья, подскажите плз как авторизоваться программно на сайте 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. Последний раз редактировалось borockov, 27.05.2013 в 13:29. |
#2
|
||||
|
||||
![]() input это тэг, name его атрибут - за него и цепляйся
Пишу программы за еду. __________________ |
#3
|
||||
|
||||
![]() Цитата:
Код:
if (html.item(i).name='credential_0') then html.item(i).value:=edit2.Text; // свой логин |
#4
|
||||
|
||||
![]() Цитата:
|
#5
|
||||
|
||||
![]() "Не выходит" - имею ввиду что не заполняется поле для ввода логина. Цепляюсь с помощью тега атрибута name. С циклом тоже все в порядке, к примеру на сайте одноклассники, авторизация проходит без проблем по такому же принципу.
|
#6
|
||||
|
||||
![]() Цитата:
|
#7
|
||||
|
||||
![]() значения атрибутов не обязаны на всех сайтах быть одинаковыми!
Пишу программы за еду. __________________ |
#8
|
||||
|
||||
![]() Вроде все срабатывает нормально. В общем покопаю ещё немного. Спасибо всем.
|
#9
|
||||
|
||||
![]() Цитата:
![]() |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
borockov (27.05.2013)
|
#10
|
||||
|
||||
![]() каюсь, я поленился сходить на сайт и проверить формы. понадеялся на правильность константы 0 в:
Код:
Document.forms.item(0) ![]() Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
borockov (27.05.2013)
|
#11
|
||||
|
||||
![]() Цитата:
Код:
html:=WebBrowser1.OleObject.Document.forms.item(2).elements; for i:=0 to (html_tag.length-1) do |