[Code] [Delphi] Wie Programm bei board.raidrush.ws einloggen?

 Public Function Auth(ByVal Username as String,ByVal Passwort as String)
 Dim wb As New WebBrowser
 wb.Navigate("https://raidrush.net/forums/17/ 
 
 Do While wb.ReadyState <> WebBrowserReadyState.Complete
 My.Application.DoEvents()
 Loop

 If wb.Document.Body.OuterHtml.Contains("vb_login_username") Then
 wb.Document.GetElementById("vb_login_username").SetAttribute("value", Username) 
 wb.Document.GetElementById("vb_login_password").SetAttribute("value", Passwort)
 wb.Document.GetElementById("cookieuser").SetAttribute("checked", "checked")
 wb.Document.Forms(2).InvokeMember("submit")
 End If
 End Sub

wb.Navigate("https://raidrush.net/forums/17/ 
wb.Document.GetElementById("vb_login_username").SetAttribute("value", Username)
wb.Document.GetElementById("vb_login_password").SetAttribute("value", Passwort)
wb.Document.GetElementById("cookieuser").SetAttribute("checked", "checked")
wb.Document.Forms(2).InvokeMember("submit")

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
 Button1: TButton;
 WebBrowser1: TWebBrowser;
 Button2: TButton;
 Edit1: TEdit;
 Button3: TButton;
 Edit2: TEdit;
 procedure Button1Click(Sender: TObject);
 function WbFindField(WebBrowser: TWebBrowser; FieldName: string; var Field: TPoint): boolean;
 function WbBtnClick(WebBrowser: TWebBrowser; FieldName: string): Boolean;
 function WbSetEditField(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
 procedure Button2Click(Sender: TObject);

 procedure Button3Click(Sender: TObject);


 private
 { Private declarations }
 public
 { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}










function tform1.WbFindField(WebBrowser: TWebBrowser; FieldName: string; var Field: TPoint): boolean;
var 
 i, j: Integer; 
 FormItem: Variant; 
begin 
 Result := False;
 //Hat das Dokument Forms? (Frames) 
 if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then 
 begin 
 Exit;
 end;
 //Bearbeite alle Frames
 for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do 
 begin 
 FormItem := WebBrowser.OleObject.Document.forms.Item(I); 
 // Bearbeite alle Felder eines Frames 
 for j := 0 to FormItem.Length - 1 do 
 begin
 try 
 // Feldname wurde gefunden 
 // gebe ihn zurück und ende 
 if FormItem.Item(j).Name = FieldName then 
 begin 
 Field.x := i; // Position speichern 
 Field.Y := j;
 Result := True; 
 exit; 
 end; 
 except 
 Exit; 
 end; 
 end;
 end; 
end; 





function tform1.WbSetEditField(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var 
 Field: TPoint; 
begin 
 // Position des Felds holen 
 if not WbFindField(WebBrowser, FieldName, Field) then
 begin 
 Result := false; // Feld existiert nicht
 exit; // Ende 
 end; 
 try 
 // Feld füllen
 WebBrowser.OleObject.Document.forms.Item(Field.x).Item(Field.y).Value := Value;
 Result := True; 
 except 
 Result := false;
 Exit; 
 end; 
end;


function tform1.WbBtnClick(WebBrowser: TWebBrowser; FieldName: string): Boolean;
var
 Field: TPoint;
begin
 // Position des Felds holen
 if not WbFindField(WebBrowser, FieldName, Field) then
 begin
 Result := false; // Feld existiert nicht
 exit; // Ende
 end;
 try
 // CheckBox setzen
 WebBrowser.OleObject.Document.forms.Item(Field.x).Item(Field.y).Click;
 Result := True;
 except
 Result := false;
 Exit;
 end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.navigate('board.raidrush.ws');
while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do application.processmessages;
WbSetEditField(WebBrowser1, 'vb_login_username', edit1.text);
WbSetEditField(WebBrowser1, 'vb_login_password', edit2.text);
while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do application.processmessages;
WebBrowser1.OleObject.document.forms.item(2).submit;
end;