Login Simulieren

[Peter.K]

ist es nicht möglich auf die seite von hotmail zu surfen dort was in die loginfelder ein zu geben und dann auf login zu klicken?

ich wll das nur bi hotmail machen bei keinem anderen

[Luckie]

Ja das ist möglich. Und wie man felder ausfüllt und eine Schaltfläche drückt findest du hier im Forum.

[marabu]

Hallo Peter,

wer kann der kann - will meinen, das ist nicht unbedingt die Materie mit der man anfängt - aber egal.

In diesem thread hatte ich eine Lösung für dein Problem beschrieben, die du ohne größere Änderung übernehmen können solltest.

Ziehe ein Panel (Align = alTop) auf eine Form, darunter einen WebBrowser (Align = alClient). Auf das Panel ziehe einen Button.

Delphi-Quellcode:

unit WebFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw, ExtCtrls;

type
  TWebForm = class(TForm)
    ActionPanel: TPanel;
    WebBrowser: TWebBrowser;
    LoginButton: TButton;
    procedure WebBrowserBeforeNavigate2(Sender: TObject;
      const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
      Headers: OleVariant; var Cancel: WordBool);
    procedure WebBrowserDocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure LoginButtonClick(Sender: TObject);
  private
    DocumentLoaded: Boolean;
  end;

var
  WebForm: TWebForm;

implementation

{$R *.dfm}

procedure TWebForm.WebBrowserBeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  if pDisp = WebBrowser.DefaultInterface then
    DocumentLoaded := false;
end;

procedure TWebForm.WebBrowserDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if pDisp = WebBrowser.DefaultInterface then
    DocumentLoaded := true;
end;

procedure TWebForm.LoginButtonClick(Sender: TObject);
begin
  with WebBrowser do
  begin
    OnDocumentComplete := WebBrowserDocumentComplete;
    Navigate('http://www.hotmail.com');
  end;

  repeat
    Application.ProcessMessages;
  until DocumentLoaded;

  with WebBrowser do
  begin
    OnDocumentComplete := nil;
    OleObject.document.forms.item(0).elements.item('login').value:='[e-mail]';
    OleObject.document.forms.item(0).elements.item('passwd').value:='pan';
    OleObject.document.forms.item(0).submit;
  end;
end;

end.

Viel Glück

marabu