Speedport IP dynamisch ändern.

[EWeiss]

Habe es jetzt soweit das ich das Passwort automatisch eingeben kann.
Hoffe das ist so richtig.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ChildElement: OleVariant;
  URL: OleVariant;

begin
  if edpasswort.Text = '' then
    exit;

  if edNewIp.Text <> '' then
    edOldIP.Text := edNewIp.Text;

  edNewIp.Text := '';

  // Webseite aufrufen in Offline Modus
  Wb.Navigate ('https://speedport.ip');
  // Warte bis Webseite geladen
  WaitForBrowser(Wb, 50);

  if not Assigned(WB.Document) then
    Exit;

  ChildElement := Wb.OleObject.document.forms.item(0);
  ChildElement.Elements.item('login_pwd').value := 0;

  if not VarIsDispatchObject(ChildElement) then
   raise Exception.CreateFmt('Web-Formalar %s nicht gefunden', ['input']);

  ChildElement.Elements.Item('pws').value := edpasswort.Text;

  SubmitWebForm(ChildElement);

  // Router beenden
  URL := 'http://' + edSpeedportHost.Text + '/cgi-bin/disconnect.exe';
  wb.Navigate2(URL);

  // etwas längere Pause das kann dauern bis die IP
  // aktualisiert wurde
  WaitForBrowser(Wb, 100);

  // Router neustarten
  URL := 'http://' + edSpeedportHost.Text + '/cgi-bin/connect.exe';
  Wb.Navigate2(URL);

  btnNewIP.Enabled := True;

end;

Habe aber immer noch das Problem mit dem Script Fehler.
Seltsamer weise tritt das bei dir im MSHTML_Tools nicht auf
Würde mich mal interessieren warum nicht bzw. was ich da falsch mache.

gruss