Guten Tag,
ich will mich einloggen bei diesem Formular :
Delphi-Quellcode:
<form action="login" method="post" name="formular">
<input type="text" class="login_user" name="user" value="Username" onblur="if(this.value=='') this.value='Username';" onfocus="if(this.value=='Username') this.value='';" />
<input type="password" class="login_pw" name="pass" value="Passwort" onblur="if(this.value=='') this.value='Passwort';" onfocus="if(this.value=='Passwort') this.value='';" padding-top:10 px/>
<div class="login_func">
<div class="log">
<input type="submit" name="submit" value="Einloggen" style="padding-left:5px;font-size: 11px; font-weight: bold; color: #FFFFFF; text-decoration: none;background: transparent; border: 0px;" />
</div>
Und versuche es mit
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
stream: TIdMultiPartFormDataStream;
s:
string;
begin
try
try
stream := TIdMultiPartFormDataStream.Create;
Stream.AddFormField('
user','
testuser');
Stream.AddFormField('
pass','
test');
s := idhttp1.Post('
http://www.internetseite.de',stream);
memo1.Lines.add(s);
if (Pos('
Ihr aktueller',s) > 0)
then //Erfolgreich eingeloggt?
ShowMessage('
Du bist Eingeloggt.');
if (Pos('
Falscher Username',s) > 0)
then //Fehler!
ShowMessage('
Leider ist die E-Mail-Adresse oder das Passwort falsch.');
finally
Stream.Free;
end;
except on E:
Exception do
ShowMessage(E.
Message);
end;
end;
In Memo1 wird nur der Quelltext von
www.internetseite.de angezeigt
Was ist daran falsch?
Mit freundlichen Grüßen,
Eistee