lakeparty.de einloggen und message senden !

[Magier]

Zitat von Xipe:

nö auf die website hab ich keinen MySQL zugriff

schade, sonst hätte ich dir geratten per mysql zugriff dadrauf zuzugreifen und so eine art email klient zu schreiben halt nur mit diesen messages.

aber ich habe hier gerade mal was geschrieben das müsst dir helfen, allerdings konnte ich es noch nicht sicher testen da ich da nicht angemeldet bin.

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    CoolBar1: TCoolBar;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  geradeerstgeladen:boolean;   // wichtig
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://lakeparty.de');
geradeerstgeladen:=true;
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
if geradeerstgeladen then begin
WebBrowser1.OleObject.document.forms.item(0).elements.item('username').value:=Edit1.Text;
WebBrowser1.OleObject.document.forms.item(0).elements.item('password').value:=Edit2.Text;
Webbrowser1.OleObject.document.forms.item(0).submit;
geradeerstgeladen:=false;
end;
end;

end.

mfg
magier