Posté le 11 septembre 2018 - 10:09 |
Hello everyone,
I'm trying desperately to log on to the following website but it does not work: http://www.drawinflation.com/user Sending the form seems to work, but when I visit another page (http://www.drawinflation.com/user/3979), I always get the same "Forbidden" message.
The username and password are correct, they work when I enter them directly into the site, but via Windev it does not work. Here is my code below, if someone could tell me where the problem is, I would appreciate it a lot.
Thank you.
i, j are int bExist is a boolean bConnect is a boolean bufResHttp is a Buffer sform_build_id is a string sCh1 is a string
HTTPRequest("http://www.drawinflation.com/user") sCh1=HTTPGetResult(httpResult) i=Position(sCh1,"form_build_id") IF i>0 THEN i=Position(sCh1,"=",i)+1 j=Position(sCh1,"/",i) sform_build_id=StringDelete(NoSpace(Milieu(sCh1,i,j-i),sscAll),"""") ELSE Error("Impossible to login!") RETURN END
HTTPCreateForm("user-login") HTTPAddParameter("user-login", "name", "****") HTTPAddParameter("user-login", "pass", "****") HTTPAddParameter("user-login", "form_build_id", sform_build_id) HTTPAddParameter("user-login", "form_id", "user_login") HTTPAddParameter("user-login", "op", "Log+in") bExist=HTTPSendForm("user-login", "http://www.drawinflation.com/user",httpPost)
Multitask(-1)
IF bExist THEN HTTPRequest("http://www.drawinflation.com/user/3979") bufResHttp = HTTPGetResult(httpHeader) IF Length(bufResHttp)>0 THEN IF Position(bufResHttp,"Forbidden")=0 AND Position(bufResHttp,"ACCESS DENIED")=0 THEN bConnect=True END END END
IF bConnect=False THEN Error("Unrecognized DI username or password!") RETURN END |
| |
| |
|