Für deinen Login hab ich das aber so gekürzt...
Delphi-Quellcode:
procedure TForm1.BtStartClick(Sender: TObject);
begin
WB.Navigate('www.******.de');
while (WB.ReadyState <> READYSTATE_COMPLETE)
and not (Application.Terminated) do
begin
Application.ProcessMessages;
Sleep(0);
end;
WB.OleObject.document.forms.item(0).elements.item('player').value:='*******';
WB.OleObject.document.forms.item(0).elements.item('password').value:='*******';
WB.OleObject.document.forms.item(0).submit();
end;
WB = WebBrowser....
