[Помогите!] Авторизация

[Genrih5]

Помогите исправить! на batton2 ничего непроисходит!

type
TForm1 = class(TForm)
Button1: TButton;
WebBrowser1: TWebBrowser;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.Navigate('https://ru.4game.com/pointblank/play/?popupWidget=AuthPopupWidget');

end;

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
s:string;
html_tag:variant;
begin
html_tag:=WebBrowser1.OleObject.Document.forms.ite m(0).elements;

for i:=0 to (html_tag.length-1) do
begin
if (html_tag.item(i).name='Почта или логин') then
html_tag.item(i).value:='*********';

if (html_tag.item(i).name='Пароль') then
html_tag.item(i).value:='*******';

if (html_tag.item(i).value=' Вход ') then
html_tag.item(i).click;
end;

end;

end.

[Роспотребнадзор]

Что это за убогая авторизация с использованием TWebBrowser?
Заюзай TidHttp

[Genrih5]

Это всего лишь часть того что я задумал, и я прошу исправить в ней ошибки!

[Роспотребнадзор]

Цитата: Сообщение от Genrih5 Это всего лишь часть того что я задумал, и я прошу исправить в ней ошибки!

Предоставь кусок кода, в котором возникает ошибка + скриншот или текст ошибки

[Genrih5]

Ошибку невыдает. В полях непрописывает логин и пасс. Может подругому надо?

[metraz]

значит к полям неверно обращаешься. Когда я эксперементировал с подобным, я , кажется , указывал названия этих полей. Их можно найти в исходном коде.

[Genrih5]

Нашел такую строку в исходном коде ( <span class="bUIInput__ePlaceholderText">Почта <i>или</i> логин</span>)
Подскажешь где на что изменить?

[RamDigga]

bUIInput__ePlaceholderText - название поля.

[Genrih5]

Спасибо за помощь!