Mam taki problem :) Mianowicie chodzi mi o automatyczne zalogowanie na pewne forum :) Zrobiłem taki kod:
uses IdMultipartFormData;
...
...
...
...
procedure TForm1.Button1Click(Sender: TObject);
var
data: TIdMultiPartFormDataStream;
begin
data := TIdMultiPartFormDataStream.Create;
try
{ add the used parameters for the script }
data.AddFormField('vb_login_username', 'tutajmojlogin');
data.AddFormField('vb_login_password', 'mojehaslo');
IdHTTP1.Post('http://p2mforum.info/login.php?do=login', data);
finally
data.Free;
end;
begin
memo1.lines.add(IdHTTP1.Post('http://p2mforum.info/login.php?do=login', data));
end;
end;
Po naciśnięciu przycisku wyskakuje mi błąd "HTTP/1.0 302 Found.". Co jest zle? bo zauważyłem, ze kod strony przy metodzie post ma takie cos:
<form action="login.php?do=login" method="post" onSubmit="md5hash(vb_login_password, vb_login_md5password, vb_login_md5password_utf, 0)">
Czyli co? mam hasło na md5 szyfrować? Czy jak? Co robię źle?
Mam jeszcze takie drugie pytanie, jak po zalogowaniu wyświetlić stronę w WebBrowser? Bo tutaj wyświetla mi tylko kod html w memo1, co dla mnie jest troche uciążliwe :(
Z GÓRY WIEELKIE DZIĘKI ZA POMOC!!!!
aaa, gdyby się ktoś pytał dlaczego chce akurat tak logować, to dlatego, że chcę, aby nikt nie widział mi hasła jakie mam do konta (żeby było już zalogowane w programie)
Ps: Link do forum jest przykładowy, żeby nie było że reklama ;] Zależy mi na tym skrypcie forum co jest na nim (vBulletin) :)