[Zigfreed1]

Возникла проблема:
нужно программно через делфи залогиниться на сайте, например эт какой-то варез портал...

[DungeonLords]

А для этого не требуется ввести цифры с картинки?

[Admin]

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

Возникла проблема:
нужно программно через делфи залогиниться на сайте, например эт какой-то варез портал...

Ввести запрос с требуемыми параметрами (обычно логин и пароль).
Можно использовать либо TWebBrowser либо, например, TidHttp.
Узнать что и как вводить можно посмотрев исходный код страницы с которой происходит логин на интересующий сайт.

ПС. Недавно на форуме подобный вопрос уже обсуждался.

[Zigfreed1]

А для этого не требуется ввести цифры с картинки?

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;

[Zigfreed1]

Опа)) работает, спс тем кто откликнулся...

[Кодер]

web 2.0?

а код можно и распознать