Авторизация на сайте

[vovken1997]

Всем привет!
Хочу сделать информер для сайта. Ни какое сообщение о нахождении объекта не выскакивает.

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://cheaton.ru/f197/');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
html_teg: variant;
i: integer;
begin
html_teg:=WebBrowser1.OleObject.Doc ument.forms.item(0).elements;
for I :=0 to html_teg.length-1 do
begin
if html_teg.item(i).name='vb_login_use rname' then
ShowMessage('ok');

if html_teg.item(i).name='vb_login_pas sword' then html_teg.item(i).value:='Мой пароль';
if html_teg.item(i).value='Вход' then html_teg.item(i).click;

//html_teg.item(i).value:='122';
end;
end;

Я уже не понимаю почему делфи не видит ни один объект сайта. Так на сайте ничего не изменилось:

html_teg.item(i).value:='122';

Помогите пожалуста!

[Delphi_ProGer]

if html_teg.item(i).name='vb_login_use rname' then
ShowMessage('ok');

Я и сам не нашел такого элемента...
Так что проверьте правильность названий.

[Don_Capone]

Зачем так извращатся если есть IDHTTP через него удобней

[Человек_Борща]

Зачем так извращатся если есть IDHTTP через него удобней

Скажи это JavaScript'ам на странице.

[Don_Capone]

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://cheaton.ru/f197/');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
html_teg: variant;
i: integer;
begin
html_teg:=WebBrowser1.OleObject.Doc ument.forms.item(0).elements;
for I :=0 to html_teg.length-1 do
begin
if html_teg.item(i).name='vb_login_use rname' then
ShowMessage('ok');

if html_teg.item(i).name='vb_login_pas sword' then html_teg.item(i).value:='Мой пароль';
if html_teg.item(i).value='Вход' then html_teg.item(i).click;

//html_teg.item(i).value:='122';
end;
end;

все компилируется! и видит все у меня у тя ошибка там была

[vovken1997]

все компилируется! и видит все у меня у тя ошибка там была

И у меня компилируется, но не работает. У вас после нажатия двух кнопок сообщение "ОК" вылазит???

Я и сам не нашел такого элемента...
Так что проверьте правильность названий.

Вопрос остался открытым...

[Don_Capone]

[QUOTE=vovken1997;1267576]И у меня компилируется, но не работает. У вас после нажатия двух кнопок сообщение "ОК" вылазит???




a сударь вы пробовали не name искать а к примеру ID (рядом с name)
Вот пример :P :

var
html_teg: variant;
i: integer;
begin
html_teg:=WebBrowser1.OleObject.Doc ument.forms.item(0).elements;
for I :=0 to html_teg.length do
begin
if html_teg.item(i).id='navbar_usernam e' then
ShowMessage('ok');

выводит сообщение OK потом токо значение value Заполни как обычно! через idhttp лучше ;P

[vovken1997]

a сударь вы пробовали не name искать а к примеру ID (рядом с name)

Пробывал, да только не работает.

Есть ещё предложения?

[Don_Capone]

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

Пробывал, да только не работает.

Есть ещё предложения?

Да предложения есть самое по моему адекватное! используй IDHTTP компанент и спомощью пост запроса авторизуйся!если не знаешь как то могу кодик нацарапать!

[vovken1997]

Напиши, если не сложно