Recuperer les entetes mimes get/post

Commenter

Contenu du snippet

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

A voir également

Du même auteur (cs_skyraider)