Hallo
Habe mir ein kleines Programm geschrieben um mich auf einer Seite automatisch einloggen und Aktionen durchführen zu können. Hier mal der Code:
Code:
rocedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled:=false;
timer2.enabled:=false;
timer3.enabled:=true;
end;
procedure TForm1.Timer3Timer(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.die_Seite.de/nochein_Eintrag/');
WebBrowser1.SetFocus;
timer1.enabled:=true;
timer3.enabled:=false;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
WebBrowser1.OleObject.document.forms.item(1).elements.item('password').value:='meinPW';
WebBrowser1.OleObject.document.forms.item(1).elements.item('name').value:='meinName';
WebBrowser1.OleObject.document.forms.item(1).submit;
timer2.enabled:=true;
timer1.enabled:=false;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.die_Seite.de/nochein_Eintrag/start.php');
WebBrowser1.Navigate('http://www.die_Seite.de/nochein_Eintrag/do1.php');
WebBrowser1.Navigate('http://www.die_Seite.de/nochein_Eintrag/outlog');
timer3.enabled:=true;
timer2.enabled:=false;
end;
Das Ganze funktioniert soweit einigermaßen. Allerdings machen mir 2 Stellen Probleme:
Code:
WebBrowser1.OleObject.document.forms.item(1).elements.item('password').value:='meinPW';
WebBrowser1.OleObject.document.forms.item(1).elements.item('name').value:='meinName';
Das ist die erste. Egal welche Reiehenfolge, bei diesen Zeilen gibt es eine EAccessViolation beim Versuch aus der Adresse 000000... zu lesen.
Code:
WebBrowser1.Navigate('http://www.die_Seite.de/nochein_Eintrag/do1.php');
Die beiden Links um diesen Teil werden ausgeführt, dieser jedoch nicht, obwohl er korrekt ist. Woran kann das liegen?