Twebbrowswer

[juliman_c]

Moin Leute!

Ich will ein programm programmieren, das auf eine website geht und dort ein usernamen + passwd aus einer liste lädt, die dort eingibt, und wenn das passwort richtig ist, dann soll es diesen usernamen + passwd ausgeben, wenn es nicht richtgi war, dann soll er den nächsten Usernamen + passwd probieren!

Ich hoffe ihr könnt mir helfen!
Danke Julian



Davon geschafft habe ich folgendes:

° Auf eine bestimmte seite gehen
° Dort passwd + usernamen eingeben



Was mir aber fehlt:


1.) Überprüfung, ob es einen erfolgreichen Login gab!

=> mögliche Lösungen, von denen ich nicht weiß wie:

° nach einem bestimmtem Begriff auf der Seite suchen



2.) Usernamen + passwd aus einer Datei laden!

=> ich habe schon was ausprobiert, hat aber nicht
geklappt (s.u.):

° Problem: Wie kann ich das machen, dass das
Programm nach dem nichterfolgreichen Login
den nächsten usernamen nimmt aus der Liste?


Die Liste(.txt/.ini) soll so aussehen:

[usernames]
username1
username2
...

[passwort]]
passwort1
passwort2
...



Hier ist noch der Code, den ich bisher habe:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin

WebBrowser1.OleObject.document.forms.item('SignInForm').item('userid').value := edit1.text;
WebBrowser1.OleObject.document.forms.item('SignInForm').item('pass').value := edit2.text;
WebBrowser1.OleObject.document.forms.item('SignInForm').item('signinButton').click;
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
showMessage ('connected!');
end;


procedure TForm1.FormCreate(Sender: TObject);
//var
// Liste: TStringList;
// Password, Username: String;
begin
WebBrowser1.Navigate('-seite-');
// try
// Liste := TStringList.Create;
// Liste.LoadFormFile('c:\Liste.txt');
// Username := Liste.Strings[0];
// Password := Liste.Strings[1];
// finally
// Liste.Free;

end;
//end;