Login Simulieren (WebBrowser)

[Thom]

Zitat von himitsu:

[...]oder es verstößt sogar gegen deren AGB[...]

...wobei nicht alles, was sich einige Leute vorstellen und der Welt als "AGB" präsentieren, auch eine gesetzliche Grundlage hat.

[himitsu]

Ich sagte nicht, daß man dafür gleich im Knast landen könnte.
Aber daß der Betreiber einen dann von seinem Angebot ausschließt, wäre mindestens eine passende Maßnahme/Reaktion.

Wobei es ja, wie gesagt, oftmal auch offizielle Wege gäbe, welche sich manchmal auch leichter/problemloser nutzen lassen.

[GouJetir]

Juhu geschafft ich werde zu einem Pro-Programmierer Ne Spaß - Danke

Edit: Noch ne Frage: Weil ja meine Seite eigentlich für Dshini sein soll,hab ich jetzt ein Problem beim absenden.

Die Seite auf der der sich einloggen soll ist: http://www.dshini.net/de/login

Bei Username hab ich:Webbrowser1.OleObject.document.forms.item(0).elements.item('signin[username]').value := Edit1.Text; und bei Passwort: Webbrowser1.OleObject.document.forms.item(0).elements.item('signin[password]').value := Edit2.Text; Aber ich find den Login-Button nicht.

[GouJetir]

Weiss das keiner oder geht es garnicht?

[API]

Delphi-Quellcode:

Webbrowser1.OleObject.document.forms.item(1).elements.item('signin[username]').value := Edit1.Text;
Webbrowser1.OleObject.document.forms.item(1).elements.item('signin[password]').value := Edit2.Text;
Webbrowser1.OleObject.document.forms.item(1).Submit;
// oder: Webbrowser1.OleObject.document.forms.item(1).elements.item(3).click;

oder kürzer:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  OleObj: Variant;
begin
  OleObj := Webbrowser1.OleObject.document.forms.item(1);
  OleObj.elements.item('signin[username]').value := 'Edit1.Text';
  OleObj.elements.item('signin[password]').value := 'Edit2.Text';
  OleObj.Submit;
end;

oder "sicherer":

Delphi-Quellcode:

uses
  MSHTML;

procedure SetInputText(FormElement: IHTMLFormElement; ItemName, ItemText: string);
var
   field: IHTMLElement;
   inputField: IHTMLInputElement;
begin
   if Supports(FormElement.Item(ItemName,EmptyParam), IHTMLElement, field) then
   begin
     inputField := field as IHTMLInputElement;
     inputField.value := ItemText;
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  htmlDoc2: IHTMLDocument2;
  allForms: IHTMLElementCollection;
  myForm: IHTMLFormElement;
begin
  if Supports(WebBrowser1.Document, IHTMLDocument2, htmlDoc2) then
  begin
    allForms := htmlDoc2.Forms;
    if allForms.length > 1 then
    begin
      myForm := allForms.Item(1, EmptyParam) as IHTMLFormElement;
      SetInputText(myForm, 'signin[username]','username...');
      SetInputText(myForm, 'signin[password]','password...');
      myForm.submit;
    end;
  end;
end;

[GouJetir]

Ah danke aber wieso kommt da jetzt in den Klammern eine (1) ?

[wicht]

Ohne den TWebbrowser zu kennen vermute ich, dass da eine 1 steht, weil es sich um die Zweite Form im Dokument handelt.

Ganz allgemeiner Tipp: Erstmal kleine Sachen versuchen und Tutorials durcharbeiten...

[geskill]

Exakt wicht, die Webseite hat 2 Loginmöglichkeiten. Oben rechts erscheint ein Fenster, wenn man mit der Maus draufklickt oder eben das Login-Formular in der Mitte.

Dieser Code sollte aber eigentlich auch funktionieren:

Delphi-Quellcode:

Webbrowser1.OleObject.document.forms.item(0).elements.item('signin[username]').value := Edit1.Text;
Webbrowser1.OleObject.document.forms.item(0).elements.item('signin[password]').value := Edit2.Text;
Webbrowser1.OleObject.document.forms.item(0).Submit;

Damit ihr euch hier nicht durch den Quellcode wühlt, möchte ich euch mal auf das Webdeveloper FF Plugin aufmerksam machen. Im Anhang ein Sceen wie man schnell und sauber an die Infos kommt.

So sieht man auch am schnellsten, wie sauber die Webseite gemacht wurde ich sag nur Max. Zeichen