Idhttp Post landing (seemingly caught data simple but I very vegetables)-CodePudding

http://shenwufzwp.cccpan.com/password: SWFZ

This is forever to realize E dish website! Want to realize automatic landing! But didn't also the Post a night, I don't know why!

Also please the great god help, thank you!

 procedure TForm1. Button1Click (Sender: TObject); 
Var 
ResParams: TStringStream; 
PostParams: TStringList; 
The begin 
ResParams:=TStringStream. Create ("); 
PostParams:=TStringList. Create; 
IdHTTP1. Request. Accept:='application/x - the rest - flash, image/GIF image/x - xbitmap, image/jpeg, image/pjpeg, */*'; 
IdHTTP1. Request. AcceptEncoding:='gzip, deflate'; 
IdHTTP1. Request. AcceptLanguage:='useful - cn; 
IdHTTP1. Request. CacheControl:='no - cache; 
IdHTTP1. Request. Connection:='Keep - the Alive; 
IdHTTP1. Request. ContentLength:=464; 
IdHTTP1. Request. ContentType:='application/x - WWW - form - urlencoded'; 
PostParams. Add (' teqtbz=SWFZ '); 
IdHTTP1. Post (' http://shenwufzwp.cccpan.com/login.aspx? D=shenwufzwp ', PostParams resParams); 
Memo1. Lines. The Add (resParams DataString); 
end;

This is my code! I'm 30 points! Still hope everyone a great god help the sa! I try to reply to earn points to add

CodePudding user response:

Var
AStr: string;
AStrstrean: TStringStream;
The begin
AStr:='http://shenwufzwp.cccpan.com/login.aspx? D=shenwufzwp& Teqtbz=SWFZ ';
AStrstrean:=TStringStream. Create (' ', TEncoding UTF8);
Try
IdHTTP1. Get (IdHTTP1. URL. URLEncode (aStr), aStrstrean);
AStr:=aStrstrean. DataString;//the return value
The finally
FreeAndNil (aStrstrean);
end;

CodePudding user response:

The

refer to the original poster gfuchao response:

 procedure TForm1. Button1Click (Sender: TObject); 
Var 
ResParams: TStringStream; 
PostParams: TStringList; 
The begin 
ResParams:=TStringStream. Create ("); 
PostParams:=TStringList. Create; 
IdHTTP1. Request. Accept:='application/x - the rest - flash, image/GIF image/x - xbitmap, image/jpeg, image/pjpeg, */*'; 
IdHTTP1. Request. AcceptEncoding:='gzip, deflate'; 
IdHTTP1. Request. AcceptLanguage:='useful - cn; 
IdHTTP1. Request. CacheControl:='no - cache; 
IdHTTP1. Request. Connection:='Keep - the Alive; 
IdHTTP1. Request. ContentLength:=464; 
IdHTTP1. Request. ContentType:='application/x - WWW - form - urlencoded'; 
PostParams. Add (' teqtbz=SWFZ '); 
IdHTTP1. Post (' http://shenwufzwp.cccpan.com/login.aspx? D=shenwufzwp ', PostParams resParams); 
Memo1. Lines. The Add (resParams DataString); 
end;

This is my code! I'm 30 points! Still hope everyone a great god help the sa! I try to reply to earn points to add

This test can't ALao big!

CodePudding user response:

reference 1st floor kevinzhaoyp response:

var
AStr: string;
AStrstrean: TStringStream;
The begin
AStr:='http://shenwufzwp.cccpan.com/login.aspx? D=shenwufzwp& Teqtbz=SWFZ ';
AStrstrean:=TStringStream. Create (' ', TEncoding UTF8);
Try
IdHTTP1. Get (IdHTTP1. URL. URLEncode (aStr), aStrstrean);
AStr:=aStrstrean. DataString;//the return value
The finally
FreeAndNil (aStrstrean);
end;

Not wrong, this test ALao big!

CodePudding user response:

1 ContentLength obviously not 464, if this parameter is written according to caught you, that is the content of the post right
2 take into account the issue of cookies

CodePudding user response:

The

reference 4 floor LGHT reply:

1 ContentLength obviously not 464, if this parameter is written according to caught you, that is the content of the post wrong
2 consider cookies

464 is catch the treasure from the

I want to want to go, still don't know that is wrong, but I am not really understand of the HTTP protocol

CodePudding user response:

ContentLength is the length of the post data, there are so many data, how is it possible to?
__VIEWSTATE=% 2 fwepdwujodk2mjkyotmzd2qwamypzbyizg8pfgiebfrlehqffxnozw53dwz6d3auy2njcgfulmnvbwrkagepdxychwafcnnozw53dwz6d3bkzaifdw8wah8abqbnmbvpmyzkzaigdw8wah8abu % 2 flrqlmni1rue % 2 b8muacquiuvue9ruoagjxhighyzwy9j2xvz2lux3fxlmfzchg % 2 fzgxtyz1zagvud3vmendwjz7ngrnmratorr7nva48l2e % 2 bzgrkmm5edfgmsb96xlakd6rpdr5z0fm6pytaprmljpbiytm % 3 d & amp; __EVENTVALIDATION=% 2 fwewbali6krmdgk5v9xxbqlck8khcqk0mchobaqpliwybntsgrljd1xzcdttqi2eddzuas89fb7ocexc & amp; Teqtbz=swfz& Teqtbz1=& amp; B5 b_dl=% % % % C7 C2 BD

CodePudding user response:

refer to 6th floor LGHT response:

ContentLength is the length of the post data, there are so many data, how is it possible to?
__VIEWSTATE=% 2 fwepdwujodk2mjkyotmzd2qwamypzbyizg8pfgiebfrlehqffxnozw53dwz6d3auy2njcgfulmnvbwrkagepdxychwafcnnozw53dwz6d3bkzaifdw8wah8abqbnmbvpmyzkzaigdw8wah8abu % 2 flrqlmni1rue % 2 b8muacquiuvue9ruoagjxhighyzwy9j2xvz2lux3fxlmfzchg % 2 fzgxtyz1zagvud3vmendwjz7ngrnmratorr7nva48l2e % 2 bzgrkmm5edfgmsb96xlakd6rpdr5z0fm6pytaprmljpbiytm % 3 d & amp; __EVENTVALIDATION=% 2 fwewbali6krmdgk5v9xxbqlck8khcqk0mchobaqpliwybntsgrljd1xzcdttqi2eddzuas89fb7ocexc & amp; Teqtbz=swfz& Teqtbz1=& amp; nullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnull