|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.09.2012, 23:02 | #1 |
Новичок
Джуниор
Регистрация: 17.09.2012
Сообщений: 1
|
Заполнение полей (input)
Пишу парсер информации по аккаунту origin, нашёл простейший код по webbrowser, до парсинга инфы так и дело не дошло, в ступор на авторизации. Если заполнить поля, допустим на сайте маил ру, всё выходит и заходит, если же поменять ссылку и импуты из исходного кода страницы авторизации https://www.origin.com/ru/login то ничего не происходит. В чём может быть причина? Спасибо!
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw; type TForm2 = class(TForm) WebBrowser1: TWebBrowser; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin webbrowser1.Navigate('https://www.origin.com/ru/login'); end; procedure TForm2.Button2Click(Sender: TObject); var html_taglevariant; i:integer; s:string; begin html_tag:=WebBrowser1.oleObject.Doc ument.forms.item(0).elements; for i:=0 to (html_tag.length -1) do begin if (html_tag.item(i).name = 'oauthbasiclogin[email]') then html_tag.item(i).value:='почта от акка'; if (html_tag.item(i).name = 'oauthbasiclogin[password]') then html_tag.item(i).value:='пароль от акка'; if (html_tag.item(i).value='Вход') then html_tag.item(i).click; end; end; end. Последний раз редактировалось imax228; 17.09.2012 в 23:37. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Заполнение поля input text кликом по изображению | blax | JavaScript, Ajax | 2 | 12.09.2011 22:21 |
заполнение полей на сайте | Boris-Britva | Работа с сетью в Delphi | 3 | 02.11.2010 10:24 |
masm+winapi ->>> Заполнение структуры INPUT | Wardrag | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 1 | 19.08.2010 01:30 |