Ce composant socket est réalisé par la société qui a développé jmail.
Une très ancienne version. Mais c'est plutôt bien. Je l'utilise tout le temps.
Relativement stable. J'ai déjà découvert que XMLhttp ne fonctionnait pas bien sur le serveur Win2003. Si le trafic est important, IIS tombera facilement en panne. Ce composant est assez stable.
paraHost =" www.downcodes.com " ' hôte
paraPort = port 80'
paraFileUrl="/test/test.htm"
Définir Socket = CreateObject("Socket.TCP")
Socket.Host = paraHost & ":" & paraPort
Socket.Timeout = paraTimeout
Si Err.Number <> 0 Alors Err.Clear
Socket.ouvert
' erreur de délai d'attente = 8000ffff
Socket.SendLine "GET" & paraFileUrl & " HTTP/1.0"
Socket.SendLine « HÔTE : » & paraHost
Socket.SendLine ""
Socket.SendLine ""
'Dors 200
Socket.WaitForDisconnect
Si Err.Number <> 0 Alors
réponse.write Err.Number & " -- " & Err.Description
Err.Clear
Autre
réponse.write HTTPResponse(Socket.Buffer, 1) 'texte de sortie du socket
Fin si
Socket.Fermer
Définir la prise = rien
Fonction privée HTTPResponse (ByVal toHTTPResponse, ByVal whichHTTPResponse)
En cas d'erreur, reprendre ensuite
Dim HTTPResponseDelimiter
HTTPResponseDelimiter = Chr(13) & Chr(10) & Chr(13) & Chr(10)
Si (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) <> 0) Alors
Sélectionnez le cas whichHTTPResponse
Cas 0 'En-tête
HTTPResponse = Mid(toHTTPResponse, 1, (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) - 1))
Cas 1 'Corps
HTTPResponse = Mid(toHTTPResponse, (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) + Len(HTTPResponseDelimiter)), (Len(toHTTPResponse) - (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) - 1)))
Fin de la sélection
Fin si
fin de la fonction