RECUPERER LES ENTETES MIMES GET/POST
cs_skyraider
Messages postés
7
Date d'inscription
jeudi 1 février 2001
Statut
Membre
Dernière intervention
1 mai 2005
-
27 nov. 2003 à 13:36
gabchampagne Messages postés 216 Date d'inscription mercredi 2 avril 2003 Statut Membre Dernière intervention 5 mai 2004 - 28 nov. 2003 à 19:01
gabchampagne Messages postés 216 Date d'inscription mercredi 2 avril 2003 Statut Membre Dernière intervention 5 mai 2004 - 28 nov. 2003 à 19:01
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/18255-recuperer-les-entetes-mimes-get-post
https://codes-sources.commentcamarche.net/source/18255-recuperer-les-entetes-mimes-get-post
28 nov. 2003 à 19:01
28 nov. 2003 à 18:55
28 nov. 2003 à 15:08
28 nov. 2003 à 10:56
en fait c'est juste la representation hexadecimal du caractere en question generalement pout tout les caracteres non AlphaNumerique
que ce soit dans la method POST ou GET le content n'est pas obligatoire tout depend de la version HTTP et des preferences
du serveur (voir les RFC correspondante).
@+
27 nov. 2003 à 18:54
Sock1.GetData strData, vbString
dim fso,texte,apppath,col,vars,f
apppath=app.path
if right(apppath,1) <> "" then apppath=apppath & ""
col=split(strdata,chr(13)+chr(10) & chr(13)+chr(10),2)
vars=col(ubound(col))
col=split(strdata,chr(13)+chr(10))
col=split(col(0)," ",3)
if ubound(col)>1 then
f=col(1)
end if
col=split(vars,"&")
set fso=createobject("scripting.filesystemobject")
set texte=fso.opentextfile(apppath & "vars.txt",8,true)
texte.write f & vbcrlf
for i = 0 to ubound(col)
texte.write col(i) & vbcrlf
next
texte.write vbcrlf
texte.close
set fso=nothing
set texte=nothing
27 nov. 2003 à 18:52
Content-Lenght: "TAILLE DU CONTENT"
Il y a aussi Content-Type qui renvoie le type MIME
j'ai une idée si tu veux faire de quoi de hot : Voici ce que ça va faire. Sa va écrire dans un fichier dans le path du programme le fichier auquel le client voulait se connecter et lister tout les champs avec leur valeur. C'est propre.
ajoute sa dans DataArrival :
Sock1.GetData strData, vbString
dim fso,texte,apppath,col,vars,f
apppath=app.path
if right(apppath,1) <> "" then apppath=apppath & ""
col=split(strdata,chr(13)+chr(10) & chr(13)+chr(10),2)
vars=col(ubound(col))
col=split(strdata,chr(13)+chr(10))
col=split(col(10)," ",3)
if ubound(col)>1 then
f=col(1)
end if
col=split(vars,"&")
set fso=createobject("scripting.filesystemobject")
set texte=fso.opentextfile(apppath & "vars.txt",8,true)
texte.write f & vbcrlf
for i = 0 to ubound(col)
texte.write col(i) & vbcrlf
next
texte.write vbcrlf
texte.close
set fso=nothing
set texte=nothing
27 nov. 2003 à 15:11
ainsi pas besoin de modifier la page !
27 nov. 2003 à 14:22
1-Tu envoie un header HTTP "POST"
2- 2 retours de chariots chr(13)+chr(10)
3- Le format :
"champs"="valeur"&"champs"="valeur"
27 nov. 2003 à 13:36