Delphi-Quellcode:
procedure TWebForm.Button1Click(Sender: TObject);
begin
WebBrowser.Navigate('http://www.mufa.de');
repeat
Application.ProcessMessages;
until DocumentLoaded;
WebBrowser.OleObject.document.forms.item(1).elements.item('xxx').value:= Edit1.Text;
WebBrowser.OleObject.document.forms.item(1).elements.item('yyy').value:= Edit2.Text;
WebBrowser.OleObject.document.forms.item(1).submit;
repeat
Application.ProcessMessages;
until DocumentLoaded;
WebBrowser.Navigate('http://www.mufa.de/free-sms.html');
WebBrowser.OleObject.document.forms.item(1).elements.item('yyy').value:= Edit3.Text;
end;
So nu mein Problem
For to schleife wollte ich 5 mal ablaufen lassen, da stand ich muss die ganzen Befehle in {} malen, mach ich das, läuft er nix, lasse ich die klammern weg, funzt es zwar aber nur in einem durchlauf!
Timer: Zum schluss will ich sagen, das alles in der Schleife aller 10 minuten wiederholt wird.
Und zum schluss On Error goto 0, wie kann ich das in Delphi da reinbringen?!?
MFG und schonmal danke im vorraus!!!