Cette petite source sert à récupérer les entêtes mimes d'une page. Pour l'utiliser correctement, il vous faut rediriger la balise "ACTION" de votre formulaire vers "
http://localhost" (par ex:
http://www.blabla.com/redir.asp en
http://localhost).
Il vous suffit ensuite de visualiser le fichier en HTML (rien d'extraordinaire donc) et de valider le formulaire. Les entetes Mimes vont automatiquement être inscrites dans la textbox
Pour ce projet, il vous faut un socket(A renommer en Sock1), un textbox (Text1) (multiligne avec scroll), une form (Form1 ... bah oui, mais c'est pas évident pour certain apparement) et c'est tout.
Source / Exemple :
Private Sub Form_Load()
Show
Sock1.LocalPort = 80
Sock1.Listen
End Sub
Private Sub Sock1_ConnectionRequest(ByVal requestID As Long)
If Sock1.State <> sckClosed Then Sock1.Close
Sock1.Accept requestID
End Sub
Private Sub Sock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Sock1.GetData strData, vbString
Text1.Text = Text1.Text + strData
Sock1.Close
End Sub
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.