//--------------------------------------------------------------------------
procedure TForm1.WB3DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
procedure ExecuteScript(doc: OleVariant; script: string; language: string);
var
win: OleVariant;
Olelanguage: Olevariant;
begin
if not VarIsEmpty(doc) then
begin
win := doc.ParentWindow;
if not VarIsEmpty(win) then
begin
Olelanguage := language;
try
win.ExecScript(script, Olelanguage);
except
end;
end;
end;
end;
//\\//\\//\\//\\//\\
procedure wpisz_pole_ing(id,wartosc:string);
var
script:string;
begin
script := 'var elemMain = document.getElementById("'+id+'"); setFocusField(elemMain); writeToPasswdField("'+wartosc+'");';
ExecuteScript(WB3.OleObject.Document,script,'JavaScript');
end;
begin
WB3.Tag := WB3.Tag + 1;
if (WB3.Tag = 1) then
begin
WB3.OleObject.Document.loginForm.login.value := 'identyfikator';
WB3.OleObject.Document.loginForm.submit;
end;
if (WB3.Tag = 2) then
begin
if (WB3.OleObject.Document.loginForm.passwd0.value = '') then
wpisz_pole_ing('passwd0','x');
if (WB3.OleObject.Document.loginForm.passwd1.value = '') then
wpisz_pole_ing('passwd1','x');
if (WB3.OleObject.Document.loginForm.passwd2.value = '') then
wpisz_pole_ing('passwd2','x');
if (WB3.OleObject.Document.loginForm.passwd3.value = '') then
wpisz_pole_ing('passwd3','x');
if (WB3.OleObject.Document.loginForm.passwd4.value = '') then
wpisz_pole_ing('passwd4','x');
if (WB3.OleObject.Document.loginForm.passwd5.value = '') then
wpisz_pole_ing('passwd5','x');
if (WB3.OleObject.Document.loginForm.passwd6.value = '') then
wpisz_pole_ing('passwd6','x');
if (WB3.OleObject.Document.loginForm.passwd7.value = '') then
wpisz_pole_ing('passwd7','x');
if (WB3.OleObject.Document.loginForm.passwd8.value = '') then
wpisz_pole_ing('passwd8','x');
if (WB3.OleObject.Document.loginForm.passwd9.value = '') then
wpisz_pole_ing('passwd9','x');
if (WB3.OleObject.Document.loginForm.passwd10.value = '') then
wpisz_pole_ing('passwd10','x');
if (WB3.OleObject.Document.loginForm.passwd11.value = '') then
wpisz_pole_ing('passwd11','x');
if (WB3.OleObject.Document.loginForm.passwd12.value = '') then
wpisz_pole_ing('passwd12','x');
if (WB3.OleObject.Document.loginForm.passwd13.value = '') then
wpisz_pole_ing('passwd13','x');
ExecuteScript(WB3.OleObject.Document,'extracheck()','JavaScript');
end;
end;
//--------------------------------------------------------------------------
Gotowe logowanie na ING dla hasła 14znakowego, temat do zamknięcia