Показать сообщение отдельно
  #4  
Старый 10.02.2009, 20:26
Аватар для Zigfreed1
Zigfreed1 Zigfreed1 вне форума
Прохожий
 
Регистрация: 08.02.2009
Сообщения: 44
Репутация: 18
По умолчанию

Цитата:
А для этого не требуется ввести цифры с картинки?
DungeonLords для того чтобы залогиниться - нет. Но вот чтобы зарегистрироваться - да. Ну это уже потом я буду разбираться.
P.s Саму капчу я научился получать, можна будет сделать ввод по таймеру ну эт потом
Через idHttp пробовал, но не получаеться,
Вот нарыл код, щас буду пробовать...))
Код:
var form:olevariant;
f,i:Integer;
begin

for f:=0 to WebBrowser1.OleObject.Document.forms.Length-1 do begin
form:=WebBrowser1.OleObject.Document.forms.Item(f) .elements;
for i:=0 to form.Length-1 do
if form.item(i).name='username' then // посматри в исходнике страницы может не username а просто name или login
form.item(i).value:='Логин'
else
if form.item(i).name='password' then // password обычно так пишится бывает pass
form.item(i).value:='пороль';
Button9.Click;
end;
end;


procedure TForm1.Button9Click(Sender: TObject);
var form:olevariant;
f,i:Integer;
begin

for f:=0 to WebBrowser1.OleObject.Document.forms.Length-1 do begin
form:=WebBrowser1.OleObject.Document.forms.Item(f) .elements;
for i:=0 to form.Length-1 do
if (form.item(i).type='submit') and (form.item(i).value='Войти') then form.item(i).click; // submit это кнопка 'Войти' это название кнопки
end;end;
Ответить с цитированием