Bonjour,
Je voudrais valider un formulaire sur le site www.paris-turf.com. J'ai un champ username, 1 champ password et 1 champ caché csrf_token.
J'ai mis le code :
Mais ça ne marche pas. J'ai l'erreur 500 en retour.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60 Response := TStringStream.Create; Form1.Memo3.Text:= system.UTF8ToAnsi (idhttp1.get ('http://www.paris-turf.com/compte/login')); for I := 0 to Form1.Memo3.lines.Count - 1 do begin If (pos ('_csrf_token',Form1.Memo3.lines[i]) >0) and (pos ('hidden', Form1.Memo3.Lines[i]) >0) then login3:= Form1.Memo3.lines[i]; end; longlogin3:= length (login3); vallogin3:= ''; for i:= 0 to longlogin3-1 do begin if (pos ('u', login3[i]) and pos ('e', login3[i+1]) and pos ('=', login3[i+2]) and pos ('"', login3[i+3])) >0 then begin j:= i+4; while pos ('"', login3[j]) = 0 do begin vallogin3:= vallogin3 + login3[j]; j:= j+1; end; end; end; poststring:=TStringList.Create; IdHTTP1.CookieManager:= idCookieManager1; IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded'; poststring.Add('_username=xxxxxx'); poststring.Add('_password=xxxxxxxx'); poststring.Add('_csrf_token='+ vallogin3); h:= 0; Repeat try IdHTTP1.Post('http://www.paris-turf.com/compte/login_check',poststring, response); connex:= true; break; except begin h:= h + 1; connex:= false; end; end; Until h = 10; ShowMessage(idhttp1.responsetext); poststring.Free; response.Free;
Que me manque t-il ?
D'avance merci pour votre aide.
Partager