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;