Thema: Delphi Twebbrowser Problem...

Einzelnen Beitrag anzeigen

heribert

Registriert seit: 5. Jun 2005
18 Beiträge
 
#1

Twebbrowser Problem...

  Alt 11. Sep 2005, 10:09
hi, hab folgenden code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://mail.yahoo.de');
  repeat
  Application.ProcessMessages;
  until WebBrowser1.ReadyState >= READYSTATE_COMPLETE;
  WebBrowser1.OleObject.document.forms.item(0).elements.item('login').value:='******';
  WebBrowser1.OleObject.document.forms.item(0).elements.item('passwd').value:='*****';
  WebBrowser1.OleObject.document.forms.item(0).submit;
  repeat
  Application.ProcessMessages;
  until WebBrowser1.ReadyState >= READYSTATE_COMPLETE;
  ClickLink(WebBrowser1, 'Posteingang');
end;
das script loggt sich bei einer mailadresse von yahoo ein und soll dann automatisch auf posteingang klicken (dazu die funktion ClickLink). Nur wird das dann nicht mehr ausgeführt (also er loggt sich ein, klickt aber nicht mehr auf "Posteingang"). Wenn ich aber ClickLink(WebBrowser1, 'Posteingang'); einem anderen button zuweise und nach dem login dann dadrauf klick, funktionierts einwandfrei!
  Mit Zitat antworten Zitat