Authentification web sur script perl par Delphi
Bonjour à toutes et tous,
Aujourd'hui ayant le cerveau en compote j'ai du mal à simuler un post sur une page web. Le but est de récupérrer des informations contenue dans la page web affichée après l'authentification.
Voici le code que j'utilise :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| var
TsX : TStringList;
begin
TsX := TStringList.Create;
TsX.Add('id=frmLog');
TsX.Add('md5sum='+edit9.Text);
TsX.Add('login='+edit6.Text);
TsX.Add('password='+edit8.Text);
TsX.Add('code='+edit7.Text);
IdHTTP1.Request.From := 'frmLog';
IdHttp1.Request.ContentType := 'application/x-www-form-urlencoded';
listbox1.Items.Text := IdHTTP1.Post('http://www.url.com/login.pl',TsX);
TsX.Free;
end; |
La page web est :
Code:
<FORM action="login" method="post" onSubmit="return connect(this)" id="frmLog"> <input type="hidden" name="md5sum" value="7bca41fd61049dfdec8165f2d6376323"> <TD><input type="text" name="login" class="input" size="18"></TD> <TD><input type="password" name="password" class="input" size="12"></TD> <TD><img src="captcha/7bca41fd61049dfdec8165f2d6376323.png" width="95" height="23"></TD> <TD><input type="text" name="code" class="input" style="height:20" size="8" maxlength="6"></TD> <TD><input type="image" src="images/ok.png" border="0"></TD> </FORM>
J'ai viré les éléments inutiles de mon code et de la page web.... d'ou certaines incohérence sur le code html (des TD mais pas de table, etc ...).
Merci d'avance pour vos proposition.
Icb3@
