Je suis en train de me faire une fonction pour envoyer des requêtes POST facilement
Si j'essaye de me connecter sur le forum de PB, ca marche, le serveur me renvoie bien quelque chose
Par contre avec le forum developpez.net ca ne marche plus....le serveur ne me répond jamais et je ne comprend pas pourquoi
Pour tester, j'ai regardé ce que mon browser envoi grâce à Wireshark, et j'ai mis la requête en dur dans ma fonction et ca ne marche non plus
Dois-je me pendre maintenant ou attendre un peu ?
Merci d'avance pour votre aide
L'appelle de la fonction :
Code : Tout sélectionner
HTTPPost ("www.developpez.net", 80, "", "")Code : Tout sélectionner
Procedure HTTPPost(Host$,Port,Page$,Datas$)
Protected conn, envoi.s, Spaces.s, Result
reset:
If InitNetwork() = 0
MessageRequester("error","Impossible d'initialiser la lib network")
End
EndIf
Conn = OpenNetworkConnection(Host$, Port)
If Conn = #Null
Delay(1000)
Goto reset:
EndIf
;//la requête
envoi = "POST /forums/login.php?do=login HTTP/1.1" + Chr (10)
envoi + "User-Agent: Opera/9.80 (Windows NT 6.1; U; fr) Presto/2.9.168 Version/11.51" + Chr (10)
envoi + "Host: www.developpez.net" + Chr (10)
envoi + "Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/webp, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1" + Chr (10)
envoi + "Accept-Language: fr-FR,fr;q=0.9,en;q=0.8" + Chr (10)
envoi + "Accept-Encoding: gzip, deflate" + Chr (10)
envoi + "Referer: http://www.developpez.net/forums/" + Chr (10)
;envoi + "Cookie: IDstack=%2C68790%2C; bblastvisit=1318534585; bblastactivity=0" + Chr (10)
envoi + "Cookie: IDstack=%2C68790%2C" + Chr (10)
envoi + "Connection: Keep-Alive" + Chr (10)
envoi + "Content-Length: 138" + Chr (10)
envoi + "Content-Type: application/x-www-form-urlencoded" + Chr (10) + Chr (10)
envoi + "vb_login_username=monlogin&vb_login_password=monpassword&s=&securitytoken=guest&do=login&vb_login_md5password=&vb_login_md5password_utf="
Debug "envoie requete"
SendNetworkData (Conn, @envoi, Len (envoi) + 1)
Debug "requete envoyée"
Spaces = Space(5000)
Debug "attente reception"
Debug envoi
Repeat
Until NetworkClientEvent(Conn) = #PB_NetworkEvent_Data
Debug "2"
Repeat
Result = ReceiveNetworkData(conn,@Spaces,5000)
Debug Spaces
Until result = 0
Debug "Reception ok"
Debug Spaces
EndProcedure
