Webbrowser navigate mit Login

[ebber]

Hallo

ich habe mir ein kleines Programm geschrieben gehabt mit dem ich mich in meinen Router einloggen konnte mit dem Webbrowser. Das war einfach so :

Delphi-Quellcode:

webbrowser1.Navigate('http://192.168.2.1/cgi-bin/login.exe?pws=xyz');

jetzt habe ich einen neuen Router und will das gleiche wieder machen, aber jetzt will das nicht mehr.

Delphi-Quellcode:

[url]http://192.168.2.1/cgi-bin/webcm?login:command/password=xyz[/url]

Das wäre die neue url. Also das Feld heisst login:command/password und die url http://192.168.2.1/cgi-bin/webcm.

Wenn ich das jetzt so mache dann komme ich auf die Seite wo man sich einloggen kann, aber das pw steht nicht in dem Feld und eingeloggt ist man auch nicht.

Habe ich was falsch gemacht ?

Oder kann man sich noch auf eine andere Weise einloggen ?

MfG

[mkinzler]

Ich vermute mal das der neue Router POST- anstatt GET-Parameter verwendet

[marabu]

Hallo,

da es sich wohl um einen D-Link Router handeln dürfte, ist eine Anmeldung über den URL nicht möglich - Markus hat Recht mit dem POST. Ich würde nach dem Navigate auf die Login-Seite die beiden Variablen setzen und Submit aufrufen (HTML DOM).

Grüße vom marabu

[ebber]

Danke.

Es ist ein Speedport 900.

Wie mache ich das ungefähr mit den Variabeln setzen und submit aufrufen ?

MfG

[marabu]

Hallo,

schau mal, ob du das für deine Zwecke anpassen kannst: klick

Freundliche Grüße

[ebber]

Danke. Ich habe das so anpassen können, aber jetzt ist ein anderes Problem aufgetaucht. Ein sehr seltsames.

Wenn ich

Delphi-Quellcode:

WebBrowser1.Navigate('http://192.168.2.1/cgi-bin/webcm');

mache dann kommt dieser Fehler :

Delphi-Quellcode:

---------------------------
Fehler
---------------------------
Es ist ein Laufzeitfehler aufgetreten.
Möchten Sie den Debugmodus starten?

Zeile: 11
Fehler: 'top.frames.1.location' ist Null oder kein Objekt
---------------------------
Ja   Nein   
---------------------------

Er kommt nur bei dieser Seite, bei einer anderen nicht. Im normalen IE kommt er auch nicht.

Kann man diesen Fehler erklären oder ihn irgendwie unterbinden ? Funktionieren tuts trozdem mit dem einloggen.

MfG

[mkinzler]

Existiert der Frame?

[ebber]

Ich habe nicht wirklich eine Ahnung welcher Frame gemeint ist ?

[mkinzler]

Der Frame mit der Bezeichnung 1.
Ich vermute mal das die Seite eigentlich aus mehreren Frames besteht, du aber eine Unterseite aufrufst, welche versucht auf einen anderen Frame zuzugreifen, der aber dann nicht existiert

[ebber]

Das ist gut möglich da mein Fenster eigentlich der Popup eines anderen Frames ist. Kann ich den Fehler unterbinden, damit er nicht mehr kommt, da er eigentlich irrelevant ist.

[marabu]

Guten Morgen.

Setze WebBrowser.Silent auf True.

Freundliche Grüße

[ebber]

Guten fast schon mittag.

Das habe ich getan, aber nun scheint der Fehler automatisch mit "ja" beantwortet zu werden und ich kann mir einen Debugger aussuchen.

MfG

[marabu]

Hallo,

TWebBrowser ist das Herzstück des Internet-Explorers und verwendet dessen Einstellungen. Wenn du in den erweiterten Internetoptionen einen Haken bei den entsprechenden Optionen machst, dann wird alles gut. Willst du die Einstellungen nur für deine Anwendung, dann musst du etwas mehr Zeit und Code investieren, die Einstellungen werden dann über das API gemacht.

Freundliche Grüße

[ebber]

Danke ich habs geschafft. :-D :thumb:

[ebber]

Ich habe nochmal fast das gleiche Problem.

Ich will die Verbindung trennen. Das ist eigentlich nur ein Button, der geklickt werden muss.
Ich habe hier dann nur die Daten verändert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin

   WebBrowser1.Navigate('http://192.168.2.1/cgi-bin/webcm');

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

   WebBrowser1.OleObject.document.forms.item(0).elements.item
                 ('connection0:settings/cmd_disconnect').value:='1';
     WebBrowser1.OleObject.document.forms.item(0).submit;

end;

Also vorher wars so :

Delphi-Quellcode:

   ('login:command/password').value:='xyz';

Ich habe mal noch die Firefox Seiteninformationen angehängt.

Aufjedenfall geht das jetzt nicht. Kann man das nicht einfach so machen? Kann mir da jemand helfen?

MfG

[marabu]

Hallo,

vielleicht genügt es ja nicht ...disconnect auf 1 zu setzen. Setze ...connect noch auf 0.

Freundliche Grüße

[ebber]

Das hat leider nicht funktioniert.

[ebber]

Ich habe das im Seitenquelltext gefunden

Delphi-Quellcode:

document.getElementById('disconnect').style.visibility = 'visible';

Das 'disconnect' wird wohl der Button sein? Kann ich so auch auf ihn zugreifen und ihn klicken oder sowas ?

MfG

[ebber]

Ich sehe ein das ich das selber hätte rausfinden können.

Aufjedenfall, so geht das :

Delphi-Quellcode:

WebBrowser1.OleObject.document.getElementById('disconnect').click;

MfG